excel vba 点击某单元格，让程序执行某个事件

如a列为姓名
在某个人的名字上点击（如张三），程序能执行某个事件（比如弹出一提示框等等），VBA如何写，请教了。

推荐答案 2008-02-23

点击工作表标签查看代码,将一下代码复制进入光标所在区域内:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 Then
MsgBox "你选中了:" & Target.Text
End If
End Sub

****

点击A列的单元格,且选中的是1个单元格时触发事件

温馨提示：答案为网友推荐，仅供参考

当前网址：http://88.wendadaohang.com/zd/S1VSKVca.html

相似回答

Excel VBA 单击同一个单元格触发事件怎么做?答：Application.ScreenUpdating = False'取消Excel刷新 Sheet1.Range("A65536").Select'关闭窗体后,自动选择另一个固定单元格 Application.ScreenUpdating = True'恢复Excel刷新然后在Worksheet_SelectionChange事件中,加入 if Target.Address(0, 0)="A65536" then exit sub '如果是自动选择的单元格就退出事件...

Excel vba 当某个单元格改变时执行某个过程答：Private Sub Worksheet_Change(ByVal Target As Range)If Target.Row > 5 And Target.Column = 3 Then'在这里写代码，整个代码要放在sheet 模块中 ,放在sheet1 ，sheet1生效，酱紫的End IfEnd Sub

选中EXCEL某单元格,用VBA语言触发事件,直接打开有密码的数据库文件...答：如果要详细的代码最好将.MDB文件上传，或者用录制宏功能录制打开数据库的宏，录制后找到 Password=""" 改为 Password=""2345"" 并将宏命名为“打开数据库”在sheet1页右键点击页标签选查看代码，在VBE编辑器中粘贴以下代码即可 Private Sub Worksheet_SelectionChange(ByVal Target As Range)If Target...

EXCEL中选中某列中的任意单元格就执行单元格事件答：Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)On Error Resume Next If Target.column=4 Then ‘在D列写入你要做的事件 End If End Sub

VBA的我想单击单元格触发某个操作,Worksheet_SelectionChange()为...答：点alt+f11后，点左边的工程窗口，双击其中的sheet1,在其弹出的窗口中输入你的代码即可。

EXCEL的VBA题目:D列中的任意单元格,如果选中单元格为空,且它上一单元...答：亲，这个要在Selection.Change里面写代码。演示效果和代码如下：Private Sub Worksheet_SelectionChange(ByVal Target As Range)On Error Resume NextIf Target.Row > 1 Then If Target = "" And Target.Offset(-1, 0) <> "" Then [A1].Copy Target End IfEnd IfEnd Sub ...

关于Excel vba 鼠标事件记录鼠标点击单元格的内容答：可以使用VBA事件完成该操作。alt+F11 打开VBA编辑器复制粘贴如下代码回到sheet界面操作即可如下代码将选择的内容不断的复制到H列。Private Sub Worksheet_SelectionChange(ByVal Target As Range)Dim Endrow As SingleDim myTarget As RangeEndrow = Cells(65525, 8).End(xlUp).RowApplication....

请问excel vba 某个单元格区域变动,如何自动运行宏?答：选择某个单元格区域，右键单击工作表标签-查看代码- 在1、处选择WorkSheet，在2、处选择SelectionChange，在下面程序框中输入你要运行的内容即可。

大家正在搜