excel中如何通过VBA获取指定范围内鼠标所点击的单元格所在的行数

在对应工作表中粘贴以下代码（不要新建模块！！！）

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If (TargetColumn >= 2 Or TargetColumn <= 8) And TargetRow = 1 Then   '选定B1:H1时

    Range("A1") = TargetRow    'A1显示选定的行数

    Range("A2") = TargetColumn    'A2显示选定的列数

End If

End Sub

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

ApplicationEnableEvents = False

Set myTarget = Target

    myTargetCopy

    Cells(Endrow + 1, 8)Select

    ActiveSheetPaste

    ApplicationEnableEvents = True

End Sub

移动光标至文档开始

SelectionHomeKey unit:=wdStory

下面的供参考:

Sub MoveToCurrentLineStart()

'移动光标至当前行首

SelectionHomeKey unit:=wdLine

End Sub

Sub MoveToCurrentLineEnd()

'移动光标至当前行尾

SelectionEndKey unit:=wdLine

End Sub

Sub SelectToCurrentLineStart()

'选择从光标至当前行首的内容

SelectionHomeKey unit:=wdLine, Extend:=wdExtend

End Sub

Sub SelectToCurrentLineEnd()

'选择从光标至当前行尾的内容

SelectionEndKey unit:=wdLine, Extend:=wdExtend

End Sub

Sub SelectCurrentLine()

'选择当前行

SelectionHomeKey unit:=wdLine

SelectionEndKey unit:=wdLine, Extend:=wdExtend

End Sub

Sub MoveToDocStart()

'移动光标至文档开始

SelectionHomeKey unit:=wdStory

End Sub

Sub MoveToDocEnd()

'移动光标至文档结尾

SelectionEndKey unit:=wdStory

End Sub

Sub SelectToDocStart()

'选择从光标至文档开始的内容

SelectionHomeKey unit:=wdStory, Extend:=wdExtend

End Sub

Sub SelectToDocEnd()

'选择从光标至文档结尾的内容

SelectionEndKey unit:=wdStory, Extend:=wdExtend

End Sub

Sub SelectDocAll()

'选择文档全部内容（从WholeStory可猜出Story应是当前文档的意思）

SelectionWholeStory

End Sub

Sub MoveToCurrentParagraphStart()

'移动光标至当前段落的开始

SelectionMoveUp unit:=wdParagraph

End Sub

Sub MoveToCurrentParagraphEnd()

'移动光标至当前段落的结尾

SelectionMoveDown unit:=wdParagraph

End Sub

Sub SelectToCurrentParagraphStart()

'选择从光标至当前段落开始的内容

SelectionMoveUp unit:=wdParagraph, Extend:=wdExtend

End Sub

Sub SelectToCurrentParagraphEnd()

'选择从光标至当前段落结尾的内容

SelectionMoveDown unit:=wdParagraph, Extend:=wdExtend

End Sub

Sub SelectCurrentParagraph()

'选择光标所在段落的内容

SelectionMoveUp unit:=wdParagraph

SelectionMoveDown unit:=wdParagraph, Extend:=wdExtend

End Sub

Sub DisplaySelectionStartAndEnd()

'显示选择区的开始与结束的位置，注意：文档第1个字符的位置是0

MsgBox ("第" & SelectionStart & "个字符至第" & SelectionEnd & "个字符")

End Sub

Sub DeleteCurrentLine()

'删除当前行

SelectionHomeKey unit:=wdLine

SelectionEndKey unit:=wdLine, Extend:=wdExtend

SelectionDelete

End Sub

Sub DeleteCurrentParagraph()

'删除当前段落

SelectionMoveUp unit:=wdParagraph

SelectionMoveDown unit:=wdParagraph, Extend:=wdExtend

SelectionDelete

End Sub

以上就是关于excel中如何通过VBA获取指定范围内鼠标所点击的单元格所在的行数全部的内容，包括:excel中如何通过VBA获取指定范围内鼠标所点击的单元格所在的行数、关于Excel vba 鼠标事件 记录鼠标点击单元格的内容、word vba怎样把光标定位到指定字符串的位置等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！