vb编程的请教

来源：百度知道 编辑：UC知道 时间：2024/05/23 01:13:57
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Or Target.Row < 5 Then Exit Sub
Select Case Target.Column
Case 1
If IsEmpty(Target) = True Then
Target.Select
Beep
Else
Target.Offset(0, 2).Select
Beep
End If
Case 3
If IsEmpty(Target) = True Then
Target.Select
Beep
Else
Target.Offset(0, 4).Select
Beep
End If
Case 7
If IsEmpty(Target) = True Then
Target.Select
Beep
Else
Target.Offset(1, -6).Select
Beep
End If
End Select
End Sub

请问以上代码每一行是什么意思呢？可否给个详细说明，特别是一些变量的说明，比如（0，2），（1，-6），我不懂vb

上面的代码应该是VB操作EXCEL表的功能
其中Private Sub Worksheet_Change(ByVal Target As Range)这个是WorkSheet表改动时触发的事件，简单来说应该是EXCEL单元格内容改变时触发该事件
返回值 Target表明改变的具体位置（格）
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Or Target.Row < 5 Then Exit Sub '如果Cells数量小于1 或者 Row小于5那么退出
Select Case Target.Column '筛选Target.Column
Case 1
If IsEmpty(Target) = True Then '值为1的情况下选中改变内容，并且发出BEEP声音
Target.Select
Beep
Else
Target.Offset(0, 2).Select '值为1的情况下选中Offset(0, 2)区域，并且发出BEEP声音
Beep
End If
Case 3
If IsEmpty(Target) = True Then
Target.Select
Beep
Else
Target.Offset(0, 4).Select
Beep
End If
Case 7
If IsEmpty(Target) = True Then
Target.Select
Beep
Else
Target.Offset(1, -6).Select
Beep
End If
End Select
End Sub
我对VBA不是很了解，以上解释仅供参考。