关于Excel vba 鼠标事件 记录鼠标点击单元格的内容
发布网友
发布时间：2022-04-26 03:01
共4个回答
热心网友
时间：2022-05-29 22:07
可以使用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
热心网友
时间：2022-05-29 22:07
用VBA，在这个事件Worksheet_SelectionChange 中写代码可以实现
热心网友
时间：2022-05-29 22:08
请看你提的另一个问题的追答。
热心网友
时间：2022-05-29 22:08
打开Excel
Alt+F11（打开VBA编辑器）
输入如下代码即可实现你所需的功能。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 Then
Target.Offset(0, 1) = Target.Value
Target.Offset(0, 1).Select '保证下次选择A列单元格是能激活该过程。
End If
End Sub
