请问<em>Excel</em>单元格单击事件代码-excel 单元格事件,excel合并单元格

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

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个单元格时触容发事件

if target.column=2 then
sheet2.[d1].select
sheet2.[d1]=target.value
end if

可以使知用VBA事件完成该操作。

• alt+F11

• 打开VBA编辑器

• 复制粘贴如下代码道

• 回到sheet界面操作内即可

如下代码将选择的内容不容断的复制到H列。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Endrow As Single
Dim myTarget As Range
Endrow = Cells(65525, 8).End(xlUp).Row
Application.EnableEvents = False
Set myTarget = Target
    myTarget.Copy
    Cells(Endrow + 1, 8).Select
    ActiveSheet.Paste
    Application.EnableEvents = True
End Sub

选中单百元格，就会激活SELECTIONCHANGE事件度
在没有选别的单元格时，再点当前单元格，就不问能激答活同样的事件

可以在这个事件末尾添加一个专选择别的单元属格的语句
如
APPLICATION.ENABLEEVENTS=0
[A1].SELECT
APPLICATION.ENABLEEVENTS=1