VBA代码全集模板.pdf

下载文档

29
0
约2.73万字
约 40页
2020-07-11 发布于江西
举报
版权申诉
保障服务

VBA代码全集模板.pdf

1、本文档共40页，可阅读全部内容。
2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。

VBA 代码全集云南农业大学 1 VBA 代码全集云南农业大学 2 VBA 代码全集目录一、引用 4 二、Worksheet_Change 事件： 4 三、相乘 6 四、相减 7 五、高级筛选 7 六、双击事件 9 七．单位汇总（sumif ），单条件汇总11 八、多条件汇总（连接、sumif ） 14 九、多条件汇总、ado 16 十、对账 17 十一、sql 筛选 21 十二、sql 连接、交叉汇总 22 十三、select 语句总结 24 十四、报表（有层次） 25 云南农业大学 3 VBA 代码全集一、引用相对引用B4 绝对引用$B$4 混合引用$B4、B$4 F4 进行引用切换，$在字母前面则锁定列，在数字前面则锁定行。二、Worksheet_Change 事件： 1.在单元格中C4=VLOOKUP(B4,简码表!$B$4:$C$1000,2,FALSE) 2. Worksheet_Change 事件代码： Private Sub Worksheet_Change(ByVal Target As Range) On error resume next If Target.Row > 3 And Target.Column = 2 Then i = Target.Row Cells(i, 3) = Application.WorksheetFunction.VLookup(Cells(i, 2), Sheets(" 简码表云南农业大学 4 VBA 代码全集 ").Range("b4:c100"), 2, False) End If End Sub 备查代码： Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Target.Row > 3 And Target.Column = 5 Then i = Target.Row Cells(i, 6) = Application.WorksheetFunction.VLookup(Cells(i, 5), Sheets("类款项").Range("b2:e2000"), 2, False) Cells(i, 7) = Application.WorksheetFunction.VLookup(Cells(i, 5), Sheets("类款项").Range("b2:e2000"), 3, 云南农业大学 5 VBA 代码全集 False) Cells(i, 8) = Application.WorksheetFunction.VLookup(Cells(i, 5), Sheets("类款项").Range("b2:e2000"), 4, False) End If End Sub 三、相乘 Sub 计算金额() Application.ScreenUpdating = False Dim i As Long Dim irow As Long irow = Ran