如何应用vba代码进行分类汇总？

听摇滚的姑凉 2024-05-31 20:56:58

最佳回答

1对表格中的数据进行分类汇总，利用vba分类汇总的效果如图所示。2在工作表中，点击菜单栏【开发工具】，在其工具栏内，点击【v**ual basic】!3进入vba编辑界面！点击菜单栏【插入】，在其下拉菜单中，选择【模块】！4会弹出模块编辑窗口！5在代码编辑窗口输入以下代码：set d = createobject("scripting.dictionary")set d1 = createobject("scripting.dictionary")set d2 = createobject("scripting.dictionary")set d3 = createobject("scripting.dictionary")on error resume nextarr = range("b3", cells(rows.count, "f").end(xlup))for i = 1 to ubound(arr, 1) d.add arr(i, 1), arr(i, 2) d1.add arr(i, 1), arr(i, 3) d2.add arr(i, 1), arr(i, 4) d3(arr(i, 1)) = d3(arr(i, 1)) + arr(i, 5)nextsheets("汇总").[b3].resize(d.count) = application.transpose(d.keys)sheets("汇总").[c3].resize(d.count) = application.transpose(d.items)sheets("汇总").[d3].resize(d1.count) = application.transpose(d1.items)sheets("汇总").[e3].resize(d2.count) = application.transpose(d2.items)sheets("汇总").[f3].resize(d3.count) = application.transpose(d3.items)for j = 1 to d.count - 1 sheets("汇总").cells(j + 2, 1) = jnextsheets("汇总").usedrange.horizontalalignment = xlcentersheets("汇总").usedrange.borders.linestyle = 6end sub6在“开发工具”菜单下，点击“插入”按钮！7在其下拉菜单中，点击插入“表单控件”，并命名为“分类汇总”！8将【分类汇总】按钮与编写代码程序相关联！9点击运行“分类汇总”控件，便可以快速对数据进行分类汇总求和！end 20210311

汇率兑换计算器

兑换金额：

持有货币：

兑换货币：

兑换结果：

类似问答

利用vba代码涂鸦五菱宏光
- 2024-05-31 23:39:53
- 提问者: 未知
11.打开电脑，点击鼠标右键，选择新建一个excel文件。22.插入对应的图片。33.选择excel界面上方的“开发工具”选项，然后点击“宏”选项。44.写上vba代码的名称，然后点击“创建”按钮。55.在vba编辑界面，写入指定的vba代码，然后点击关闭按钮。66.点击插入一个按钮控件。77.将按钮控件命名为“涂鸦五菱宏光”，然后点击右键，选择“指定宏”选项。88.选择已经编写完成的vba代码，...
vba代码问题
- 2024-05-31 20:26:38
- 提问者: 未知
这个函数定义的很模糊，从字面上理解 rng 应该是一个range类型的变量，rng()就是取得其中的一个单元格数据规范写法： function drawone(rng as range,optional recalc as boolean=false) application.volatile recalc drawone=rng(int(rng.count)*rnd+1) end functi...
求vba大佬优化代码~~
- 2024-05-31 18:17:06
- 提问者: 未知
for i = 1 to 80从第1行开始循环，知道第80行结束cells(94 - i, 5) = cells(93 - i, 4) * cells(93 - i, 6) * cells(93 - i, 7) / 100 cells(94 - i, 5)表示e列，d93,当i为1时，5就是e，4就是d，类推cells(93 - i, 4) 表示d列，d92后面的类推还有什么不懂的？
如何区分股权代码和股票代码
- 2024-05-31 15:49:28
- 提问者: 未知
股权代码和股票代码的区别如下： 1、股票(以差价获取收益)，股权(以时间和“企业的高速成长”获取收益)；2、...（三）公开发行的股份达到公司股份总数的百分之二十五以上；...
如何进行进口付汇
- 2024-05-31 01:49:28
- 提问者: 未知
进口付汇基本概念进口付汇，主要是配合**的外汇管制政策，通过"电子底帐+联网核查"的方式，防止不法企业伪造**单或者利用**单进行重复付汇。用于外汇、银行、企业；...
记账时如何对开销进行分类？
- 2024-05-31 15:45:03
- 提问者: 未知
我有自己用excel记账的习惯。一般三列：时间，类别和金额。类别里面有“爱好”，也有“交通”。那么问题…
求教考勤汇总sql代码
- 2024-05-31 07:53:49
- 提问者: 未知
我可以给楼主提供一个大概的思路,语句如下: select t.部门,t.工号,t.日期,t.时间1,t.时间2, round(datediff(second,a.时间2,a.时间1)/3600,2)as 工作时长, case when datediff(second,a.时间2,a.时间1)>=(b.工作时间*3600)then '正常' else '异常' end as 状态 from s...
股东代码卡应如何办理？
- 2024-05-31 10:22:06
- 提问者: 未知
招行不是证券公司不过营业网点可以**
康力电梯故障代码汇总
- 2024-05-31 00:40:38
- 提问者: 未知
你的是新时达系统吧，蓝光的没有36代码，看看kmy接触器的触点
如何应用股票振幅进行数据分析呢？
- 2024-05-31 02:34:21
- 提问者: 未知
股票振幅数据的分析，对考察股票有较大的帮助，一般可以预示几种可能：一、可能是**高度控盘，散户手中流动的**很少，数量不多的成交量就会对股价形成很大波动

如何应用vba代码进行分类汇总？

房贷计算器-九子财经 | 备案号： 桂ICP备19010581号-1 商务联系 企鹅：2790-680461

房贷计算器-九子财经 | 备案号：桂ICP备19010581号-1 商务联系企鹅：2790-680461