VBA代码全集.doc

目 录 一、引用 2 二、Worksheet_Change 事件： 2 三、相乘 4 四、相减 5 五、高级筛选 5 六、双击事件 7 七．单位汇总（sumif），单条件汇总 9 八、多条件汇总 （连接、sumif） 12 九、多条件汇总、ado 14 十、对账 15 十一、sql筛选 19 十二、sql连接、交叉汇总 20 十三、select语句总结 22 十四、报表（有层次） 23  一、引用 相对引用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(简码表).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 五、高级筛选 （工具-宏-录制新宏，宏名改成高级筛选） Sub 高级筛选() Sheets(业务).Range(A3:I10000).AdvancedFilter Action:=xlFilterCopy, _ CopyToRange:=ActiveCell.Range(A1:B1), Unique:=True End Sub 六、双击事件 1.插入-名称-定义（修改名称和引用位置） 2．查看代码-插入-用户窗体 工具箱-多页、列表框-右键属性 点击page1修改caption为资产类-点击空白列表框修改rowsource为box1 依次类推 3. 业务表-查看代码 Worksheet beforedoubleclick Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Row 3