EXCEL VBA 触发事件

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If TargetCount > 1 Then Exit Sub
If Target <> "" Then
   If Not Sheets("sheet2")CellsFind(TargetValue, lookat:=xlWhole) Is Nothing Then
      Sheets(2)Select
      Sheets("sheet2")CellsFind(TargetValue, lookat:=xlWhole)Select
   End If
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If TargetColumn = 1 And TargetRow = 1 Then
MsgBox "你选中了:" & TargetText
End If
If TargetColumn = 3 And TargetRow = 5 Then
MsgBox "你选中了:" & TargetText
End If
End Sub
当你点击A1时，会d出“你选中了美女”
当你点击C5时，会d出“你选中了俊男”

Private Sub Worksheet_Change(ByVal Target As Range)
If TargetColumn = 1 Then
TargetOffset(0, 1) = ""
End If
End Sub

可以使用Call函数调用你原来由文本框所定义的过程:
可以这样写:
Sub 按钮1_单击()
call TXT_change()
End Sub
这个TXT_change()的SUB就是你由文本框所定义的过程
' 调用一个子过程。
Call PrintToDebugWindow("Hello World")
' 上面的语句将控制转移到下面的子过程。
Sub PrintToDebugWindow(AnyString)
DebugPrint AnyString ' 在“立即”窗口中显示。
End Sub

如图，一般加个IF来判断当前单元格量是否是指定的单元格，是就执行代码。

Private Sub Worksheet_Change(ByVal Target As Range)
If TargetAddress = "$A$1" Then
    [a2] = [a2] + 1
End If
End Sub

---