方方格子
一个专注Excel学习交流、求助定制的网站
`
  格子社区
阅： 410 | 回： 8
求大神指导，表格-设计里面的分类汇总项的VBA代码是什么。 全部 , 编号:05021 快速回复
woai7jiashe
发表于2023/9/12 11:08:16 楼主 
头像 等级:初学者
积分:8
财富值:4.0
身份:普通用户
 求指点，表格-设计里面的分类汇总项的VBA代码是什么，表格例子附件。
悬赏：8 财富值
下载附件  在线编辑
我的个性签名
信步
发表于 2023/9/12 11:26:14   
头像 等级:传说级人物
积分:2004
财富值:6
身份:系统管理员
可以通过录制宏的方式来获取
方方格子安装教程http://www.ffcell.com/WenKu/article.aspx?id=376
woai7jiashe
发表于 2023/9/12 16:17:38   
头像 等级:初学者
积分:8
财富值:4
身份:普通用户

回复：2楼

    试过，获取不了好像，都是乱码。
我的个性签名
信步
发表于 2023/9/12 16:46:10   
头像 等级:传说级人物
积分:2004
财富值:6
身份:系统管理员
要切换到VB环境，安装了方方格子wps应该是会有vba的
方方格子安装教程http://www.ffcell.com/WenKu/article.aspx?id=376
woai7jiashe
发表于 2023/9/12 17:10:01   
头像 等级:初学者
积分:8
财富值:4
身份:普通用户

回复：4楼

   麻烦你录一下看看代码，这个操作应该很快。我各种方法都试了才来求助的。
我的个性签名
woai7jiashe
发表于 2023/9/12 17:11:13   
头像 等级:初学者
积分:8
财富值:4
身份:普通用户

回复：4楼

目的很简单，就是要用VBA控制透视表不显示分类汇总
我的个性签名
信步
发表于 2023/9/12 17:25:50   最佳方案
头像 等级:传说级人物
积分:2004
财富值:6
身份:系统管理员
With ActiveSheet.PivotTables("数据透视表1")
        .PivotFields("字段n").Subtotals = Array(False, False, False, False, False, False, False, False, False, False, False, False)
    End With
方方格子安装教程http://www.ffcell.com/WenKu/article.aspx?id=376
woai7jiashe
发表于 2023/9/12 17:42:09   
头像 等级:初学者
积分:8
财富值:4
身份:普通用户

回复：7楼

运行报错，能不能把你那个例表上传给我学习一下。
我的个性签名
woai7jiashe
发表于 2023/9/14 11:32:52   
头像 等级:初学者
积分:8
财富值:4
身份:普通用户

回复：7楼


已找到原因，是wpS的问题。
我的个性签名

快速回复

目前不允许游客发表，请 登录 注册 后再发贴。