Office中国论坛/Access中国论坛

标题: 请教VBA设定透视表数值区数字格式问题 [打印本页]

作者: Henry D. Sy 时间: 2021-6-9 14:36
标题: 请教VBA设定透视表数值区数字格式问题
Set xlSheet = xlBook.Worksheets("透视表")
xlSheet.Activate
Set PC = xlApp.ActiveWorkbook.PivotCaches.Create(xlExternal)
Set PC.Recordset = rs
Set PT = xlApp.ActiveSheet.PivotTables.Add(PC, xlApp.ActiveSheet.Range("A1"), "透视")
With xlApp.ActiveSheet.PivotTables("透视")
      .PivotFields("日期").Orientation = xlPageField
      .PivotFields("公司简称").Orientation = xlRowField
      .PivotFields("客户名称").Orientation = xlRowField
      .PivotFields("供应商").Orientation = xlRowField
      .PivotFields("供应商").Subtotals(1) = False
      .PivotFields("发票号").Orientation = xlRowField
      .PivotFields("商品名称").Orientation = xlRowField
      .PivotFields("商品名称").Subtotals(1) = False
      .PivotFields("颜色").Orientation = xlColumnField
      .PivotFields("金额").Orientation = xlDataField

      '明明设定的是美元货币，但在Excel上总是显示人民币符号￥，不知道为何？
      .DataBodyRange.NumberFormat = "$#,##0.00;-$#,##0.00"

      .RowAxisLayout xlCompactRow
      .TableStyle2 = "PivotStyleMedium13"
      '       .ColumnGrand = False
      '       .RowGrand = False
End With

[attach]64077[/attach]

明明设定的是美元货币$，但在Excel上总是显示人民币符号￥，不知道为何？

作者: aslxt 时间: 2021-6-10 11:35
.NumberFormatLocal = "$#,##0.00;-$#,##0.00"

作者: Henry D. Sy 时间: 2021-6-10 13:44

aslxt 发表于 2021-6-10 11:35
.NumberFormatLocal = "$#,##0.00;-$#,##0.00"

谢谢！aslxt
还有一个问题请教
如果数值区还有一个字段，比如“数量”
那么如何分别设置
数量设定为 "#,##0.00"
金额设定为 "$#,##0.00;-$#,##0.00"

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)