excel单元格完成后的事件响应

[caimps]

想在excel单元格完成后，进入下一个格时调用某个宏，该事件响应如何完成？
谢谢

[OFFICE之门]

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
MsgBox ("tt")

End Sub

[Jneu]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Call 宏1
End Sub

Sub 宏1()
...
End Sub

[caimps]

我刚刚接触这一领域，不当之处请各位谅解。
我是这么做的：
在Excel的VB编辑器中插入一个新模块，写了下面这段代码：
-------------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 5 Then
Call jc1
MsgBox "键入值非常棒!"
End If

End Sub

Public Sub jc1()
.....
End Sub
---------------------------------------------------
保存，回到excel界面准备运行宏，可是列表中只有jc1,没有别的，我试着改动第五列的值，也没有任何反应。

不只在运行前还要做那些设置工作？（其他诸如检索、拷贝粘贴等功能的宏都可以运行）

[clumsy]

这个代码不是放在新插入的模块里, 是放在相应的工作表或工作簿里: 你在VBA中双击工作表或工作簿的标签, 就会出现一个代码窗口, 将那些代码贴在这里, 不需要运行任何宏, excel会在改动时自动调用的.

[caimps]

谢谢两位，但问题弱了点：
我希望每次输完第5列进入第六列时期自动用某个宏来检查第五列的输入，我该把上面这段程序放在哪里，何时启用

[clumsy]

应该是用 Worksheet_Change 事件吧? 照楼主的说法主要目的是在第5列中单元格的内容改变后进行检查. 下面的代码放在你所要检查的那个工作表里, 如果是要对工作簿中的所有工作表执行, 就将它放在工作簿里.

' 放在工作表中的定义
Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 5 Then
' 在此加入你的检查代码
MsgBox "键入值非常棒!"
End If

End Sub

' 放在工作簿中的定义
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

If Target.Column = 5 Then
' 在此加入你的检查代码
MsgBox "键入值非常棒!"
End If

End Sub