如何通过Excel VBA获取当前单元格所在行和列?

2016-01-24 14:10 阅读 949 次 评论关闭

如何通过Excel VBA获取当前单元格所在行和列

活动单元格所在的行数使用代码:ActiveCell.Row
活动单元格所在的列数使用代码:ActiveCell.Column

通过Excel VBA获取当前单元格所在行和列详细步骤:

1、ALT+F11,打开VBE对话框

2、双击对应的工作表标签,复制以下代码,粘贴

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[B5] = ActiveCell.Row
End Sub

3、关闭,查看效果

在B5输入=cell("row"),不过你在选择其他单元格时,要双击这个单元格,B5的数值才会改变,如果只想鼠标选中该单元格时B5的数值就改变,那就只有使用VBA代码了。按ALT+F11调出VBA编辑器,双击sheet1,在右边的代码框输入如下代码

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells(5, 2) = ActiveCell.Row
End Sub

如果想要查询列A到列C查询“李明”,并返回“李明”所在单元格的行,如何实现呢?Excel VBA实现代码如下:

x=“李明”

Set C = Range("A:C").Find(x, After:=Selection, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=True, MatchByte:=True, SearchFormat:=True)
If Not C Is Nothing Then
C.Select
xr = Selection.Row '返回行
End If

版权声明:本文著作权归原作者所有,欢迎分享本文,谢谢支持!
转载请注明:如何通过Excel VBA获取当前单元格所在行和列? | 猎微网

评论已关闭!