VBA代码全集分析和总结.docxVIP

VBA代码全集 VBA 代码全集 云南农业大学 PAGE 云南农业大学 PAGE 1 目 录 一、引用 3 二、Worksheet_Change 事件： 3 三、相乘 5 四、相减 6 五、高级筛选 6 六、双击事件 8 七．单位汇总（sumif），单条件汇总 10 八、多条件汇总 （连接、sumif） 13 九、多条件汇总、ado 15 十、对账 16 十一、sql 筛选 20 十二、sql 连接、交叉汇总 21 十三、select 语句总结 23 十四、报表（有层次） 24 VBA代码全集 VBA 代码全集 云南农业大学 PAGE 云南农业大学 PAGE 4 一、引用 相对引用 B4 绝对引用$B$4 混合引用$B4、B$4 F4 进行引用切换，$在字母前面则锁定列，在数字前面则锁定行。 二、Worksheet_Change 事件： 二、Worksheet_Change 事件： 1.在单元格中 C4=VLOOKUP(B4,简码表!$B$4:$C$1000,2,FALSE) 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( 简码表 ).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, 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 = Range(a3).End(xldown).Row For i = 4 To irow Cells(i, 3) = Cells(i, 1) * Cells(i, 2) Next i Application.ScreenUpdating = True End Sub 四、相减 Sub 相 减 () Application.ScreenUpdating = False Range(c3:c10000).ClearContents Dim i As Long Dim irow As Long irow = Range(a5000).End(xlUp).Row For i = 3 To irow Cells(i, 3) = VBA.Round((Cells(i, 1) - Cells(i, 2)), 2) Next i Application.ScreenUpdating = True End Sub 五、高级筛选 （工具-宏-录制新宏，宏名改成高级筛选） VBA代码全集 VBA 代码全集 云南农业大学 PAGE 云南农业大学 PAGE 9 Sub 高级筛选() Sheets(业务).Range(A3:I10000).AdvancedFilter Action:=xlFilterCopy, _ CopyToRange:=ActiveCell.Range(A1:B1), Unique:=True End Sub 六、双击事件 插入-名称-定义（修改名称和引用位置） 查看代码-插入-用户窗体 工具箱-多页、列表框-右键属性 点击 page1 修改 caption 为资产类-点击空白列表框修改 rowsource 为box