设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 2801|回复: 2
打印 上一主题 下一主题

请教VBA设定透视表数值区数字格式问题

[复制链接]
跳转到指定楼层
1#
发表于 2021-6-9 14:36:00 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
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




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

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
发表于 2021-6-10 11:35:35 | 只看该作者
.NumberFormatLocal = "$#,##0.00;-$#,##0.00"
3#
 楼主| 发表于 2021-6-10 13:44:10 | 只看该作者
aslxt 发表于 2021-6-10 11:35
.NumberFormatLocal = "$#,##0.00;-$#,##0.00"

谢谢!aslxt
还有一个问题请教
如果数值区还有一个字段,比如“数量”
那么如何分别设置
数量设定为   "#,##0.00"
金额设定为  "$#,##0.00;-$#,##0.00"
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-25 08:28 , Processed in 0.100128 second(s), 27 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表