請教VBA設定透視表數(shù)值區(qū)數(shù)字格式問題

Henry D. Sy

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("發(fā)票號").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




明明設定的是美元貨幣$，但在Excel上總是顯示人民幣符號￥，不知道為何？

aslxt

.NumberFormatLocal = "$#,##0.00;-$#,##0.00"

Henry D. Sy

aslxt 發(fā)表于 2021-6-10 11:35
.NumberFormatLocal = "$#,##0.00;-$#,##0.00"

謝謝！aslxt
還有一個問題請教
如果數(shù)值區(qū)還有一個字段，比如“數(shù)量”
那么如何分別設置
數(shù)量設定為   "#,##0.00"
金額設定為  "$#,##0.00;-$#,##0.00"