关于Excel vba 鼠标事件 记录鼠标点击单元格的内容 excel如何做到鼠标点击某单元格,另一单元格就自动显示鼠标...

作者&投稿:墨泰 (若有异议请与网页底部的电邮联系)

可以使用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



用VBA,在这个事件Worksheet_SelectionChange 中写代码可以实现

请看你提的另一个问题的追答。

  1. 打开Excel

  2. Alt+F11(打开VBA编辑器)

  3. 输入如下代码即可实现你所需的功能。

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



关于Excel vba 鼠标事件 记录鼠标点击单元格的内容~

Private Sub Worksheet_SelectionChange(ByVal Target As Range) [IV65536] = IIf([IV65536] = 1, 2, 1) If [IV65536] = 2 Then Target = [IV65535] Else [IV65535] = Target End IfEnd Sub

用VBA写代码即可实现。

详细步骤如下:
1.Alt+F11,打开VBA编辑界面,双击左侧Microsoft Excel对象下的“Sheet1”,确保程序是在sheet1中执行

2.点击下图“通用”右侧的下拉箭头,选择worksheet

3.此时,代码编辑区,自动出现两串代码,如下图所示:

4.补充写上一句代码“Range("h1")=Target.text"

5.关闭VBA界面,返回Sheet1,点击任意单元格,就看到H1的值就等于点击单元格的值