您现在的位置是:首页 > 生活 > 正文
vba编程从入门到进阶教程第14讲(学习VBA报表做到飞
发布时间:2024-01-17 05:06:05编辑:曲岩若来源:
hello大家好,我是大学网网小航来为大家解答以上问题,vba编程从入门到进阶教程第14讲(学习VBA报表做到飞很多人还不知道,现在让我们一起来看看吧!
第一章 入门篇
1.22 union与intersect
union与intersect就是单元格区域的并集与交集。
有时候我们需要处理的单元格,都在不同的区域,但我们需要对它们进行相同的操作,这个时候可以用Union把它们连接起来成为一个区域,从而实现对多个非连续区域一起进行操作。它的语法是这样的:
union(区域1,区域2,区域3......)
union语句最多可以对30个区域进行连接。
intersect则返回单元格区域的交集,它的语法是这样的:
intersect(区域1,区域2,区域3......)
例句:
union(Cells(2, 1), Cells(4, 1), Cells(6, 1), Cells(8, 1))
'把Cells(2, 1)、Cells(4, 1)、 Cells(6, 1)和Cells(8, 1)四个单元格合并成一个区域,也就是下图中蓝色的部分。
intersect(Range("d4:j12"), Range("f1:h16"))
'获得Range("d4:j12")和Range("f1:h16")两个区域的交集,也就是下图中涂绿色的部分。
小程序:
把下表中资产名称为"音响设备"的整行信息连同表头,拷贝到[k1]开头的单元格区域,填充颜色变为红色,并统计它们的原值合计数和平均值:
卡片号
资产名称
建卡
原值
净值
00007933
空调
2007-12-31
498720.00
14961.60
00007934
台式电脑
2007-12-31
35670.00
1070.10
00012189
音响设备
2007-12-31
12420.00
372.60
00014439
音响设备
2008-06-11
6800.00
204.00
00014437
音响设备
2008-06-11
6800.00
204.00
00014436
音响设备
2008-06-11
6800.00
204.00
00032579
台式微机
2010-12-29
6100.00
183.00
00032578
台式微机
2010-12-29
6100.00
183.00
00034441
电视机
2011-07-07
15600.00
468.00
00047157
空调
2012-09-11
5700.00
171.00
00047156
空调
2012-09-11
5700.00
171.00
00049661
监控设备
2012-12-05
8000.00
240.00
00049664
金库门
2012-12-05
76000.00
2280.00
00059257
笔记本式微机
2012-12-30
5700.00
171.00
00060654
监控设备
2012-12-30
24250.00
727.50
Sub union与intersect()
Dim ss As Range, i%, a&, b&
Set ss = [b1].offset(0, -1).resize(1, 5)
'先把表头赋值给ss变量
For i = 2 To 16
If Cells(i, 2).Value = "音响设备" Then
Set ss = union(ss, Cells(i, 2).offset(0, -1).resize(1, 5))
'把每一个符合条件的单元格,先左移一列,然后扩展到整行,再用union语句把ss变量与新行连接成一个区域。
End If
Next
ss.Copy [k1]
ss.Interior.ColorIndex = 3
' 对区域执行拷贝和涂红操作。
a = Application.Sum(intersect(ss, Range("d:d")))
b = Application.Average(intersect(ss, Range("d:d")))
'对区域和原值列(d列)的交集执行求和与求平均值操作。
MsgBox "选中设备的原值合计为" & a & "元"
MsgBox "选中设备的原值平均值为" & b & "元"
End Sub
往期精彩回顾:
学习VBA,报表做到飞 第一章 入门篇 1.21 specialcells语句
学习VBA,报表做到飞 第一章 入门篇 1.20 Replace语句
学习VBA,报表做到飞 第一章 入门篇 1.19 FindNext语句
我是云飞扬,职场财会人员,愿与大家分享表格制作和数据统计分析的技巧与方法,希望大家的工作更便捷,更轻松!
本文就为大家讲解到这里,希望对大家有所帮助。
标签:
徽章logo制作 徽章类LOGO还能这么玩) 下一篇
最后一页
猜你喜欢
- 全球变暖温度趋势图(未来五年全球将继续变暖)
- ldo工作机制(LDO的工作原理一篇文章看透LDO
- turbo是什么意思 英语词汇turbo是什么意思
- 天问一号登陆火星影像(天问一号拍火星的相机不一般)
- 比亚迪2022年新车型上市汇总(比亚迪重归三甲)
- 15年以上的车取消一年两审辟谣(为何取消15年以上老车一年两审)
- 小学英语教师面试试讲必考题目(小学英语教师面试试讲真题-I
- 神魔大陆平民血魔转职 神魔大陆血魔职业攻略)
- 不爱我就拉倒是什么歌 歌曲不爱我就拉倒完整歌词介绍
- 成长守护者护苗行动一线栏目(以法之名护苗成长)
- 哪种牛奶是营养最好的 喝什么样的牛奶最有营养呢)
- 男生十款发型 15款流行男发推荐
- 实体的保健品市场可以干嘛 保健品专卖店7种模式以及发展趋势)
- 加盟幼儿园的弊端(如何判断是否合理
- 杨幂刘恺威婚礼背后的小秘密 杨幂和刘恺威当年的婚礼有多简陋
- 诛仙手游任务攻略大全(诛仙手游史上难度最高最丧心病狂的隐藏任务盘点)
- 牛津词典公布2022年度词汇 剑桥词典公布2022年度词汇
- 三星gear s3和三星galaxy watch 三星GalaxyWatch断货Gear
- 修身白色小西装怎么搭配才好看 春季少不了可盐可甜的小西装搭配
- 月饼包装设计月饼礼盒 高颜值有温度的中秋月饼礼盒包装设计
最新文章
- vba编程从入门到进阶教程第14讲(学习VBA报表做到飞
- 贵州安顺公交坠湖最新消息(查明贵州安顺公交车坠江原因
- ps1十大经典游戏(日本玩家评选的索尼PS1游戏Top10
- 文玩卡环和跑环的区别(文玩配饰之中的
- 比较常见的120个生僻字 可以给孩子们收藏一下
- 京津城际铁路运营时间表 京津城际铁路8日起提速不提价)
- 人物素描基础入门画法 零基础素描教程
- 凡高有哪些代表作 只有他拿了影帝
- 蛏子的家常做法清蒸(蛏子的家常做法)
- 穆桂英大破天门阵发生在哪(发生在河北大名的穆桂英摆迷魂阵传说)
- 磷矿的市场前景(传统磷化工行业
- 卢正雨最出名的一段(卢正雨一个调皮的80后)
- 徽章logo制作 徽章类LOGO还能这么玩)
- 立春时说的咬春是吃什么 明天立春无论多忙
- 肥料登记指南(肥料登记管理办法高浓度加强赣榆区肥料质量监管)
- 栏杆高度一般不低于多少(一般栏杆高度多少:栏杆高度及可踏面)
- 接引道人和准提道人创了佛教 通天门下八大弟子
- 充满鲜花的世界到底在哪里什么歌 歌词出自哪首歌
- erdos是什么牌子 来看看吧)
- 白岩松十本书 对白岩松产生重要影响的两本书
- 正确立定跳远的方法 立定跳远竟跳出满分标准
- 电脑硬盘分区有哪些方法 一分钟教会你怎么给新电脑硬盘分区)
- 知豆电动车为什么停产了 知豆多次成被告
- 柳演锡最新电影 实力派演员柳演锡)