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

比如表单1中的b1到h1中我点击任意一个单元格，自动在a1单元格显示我所点击的单元格所在的行数如何通过VBA来实现？谢谢了！

推荐答案 2018-03-11

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

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If (Target.Column >= 2 Or Target.Column <= 8) And Target.Row = 1 Then   '选定B1:H1时
    Range("A1") = Target.Row    'A1显示选定的行数
    Range("A2") = Target.Column    'A2显示选定的列数
End If
End Sub

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

当前网址：http://66.wendadaohang.com/zd/n9U2nnv2Dx2ispxis9i.html

相似回答

在EXCEL中如何用VBA查找某特定单元格并返回该单元格的行和列值?答：RngFind过程使用Find方法在工作表Sheet1的A列中查找InputBox函数对话框中所输入的值，并查找该值所在的第一个单元格。第6到第13行代码在工作表Sheet1的A列中查找InputBox函数对话框中所输入的值。应用于Range对象的Find方法在区域中查找特定信息，并返回Range对象，该对象代表用于查找信息的第一个单元格。

Excel 在vba中怎么表示当前行或单元格答：1.Alt+F11，在Sheet1中添加以下事件：Private Sub Worksheet_SelectionChange(ByVal Target As Range)MsgBox "当前单元格内容为 " & Target.Value & Chr(10) & Chr(13) & "当前行数为" & Target.Row End Sub 2.关闭返回Excel中，每选择一个单元格，都会显示单元格内容和对应的行数：...

Excel,请问VBA如何实现查找单元格并获取该单元格的行数?答：下一个单元格的行数 = Cells.FindNext("AB123").Row

vba excel怎么获取指定工作表的行数、列数答：excel获取指定工作表的行数、列数的具体操作方法如下：1.首先，打开Excel软件 2.打开源数据文件，假如需要根据证券代码显示出行业名称。现在，在I1单元格输入”证券代码“，在J1单元格输入”Nnindnme"。3.如图，选中J2单元格，单击工具栏中的"插入函数“4.弹出”插入函数“对话框，选择插入IF函数 5....

用Excel地VBA怎么样获取指定区域单元格里面地所有数据答：使用for each遍历所选择的单元格即可。如下代码将选择区域的单元格输出在立即窗口。Sub Get_Data()Dim myRange As RangeDim myCell As RangeSet myRange = Application.InputBox("选择区域", Type:=8)For Each myCell In myRangeDebug.Print myCell.ValueNextEnd Sub ...

excel查询区域里某个值所在的行值和列值?答：按ctrl+shift+enter往下拉就可以了前两位是行号，后2位是列号只要行列的话可以加一个框套在外边就可以了行=IFERROR(FLOOR(SMALL(IF($A$1:$P$20="公司",ROW($A$1:$A$20)*100+COLUMN($A$1:$P$1),""),ROW(A1))/100,1),"")列=IFERROR(RIGHT(SMALL(IF($A$1:$P$20="公司...

大家正在搜

一点鼠标选中好多单元格 excel光标不能单元格移动 excel方向键不能移动单元格 Excel取消鼠标滚动放大缩小 excel无法用鼠标滚动 excel鼠标滚动设置 excel表跟随鼠标有颜色 excel鼠标变成十字架 excel表格光标怎么设置