一、引用
相对引用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
vlookup和columnDim 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

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。