excel vb中读取单元格的位置信息

2025-01-01 00:41:43

推荐回答（2个）

回答1：

msgbox selection.column '显示列数
msgbox selection.row '显示行数
MsgBox ActiveWorkbook.Name '显示当前工作薄的名字
MsgBox ActiveSheet.Name '显示当前工作表的名字

回答2：

打开工作表后按ALT+F11，进入代码区复制以下代码：

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
MsgBox "显示列数" & Target.Column
MsgBox "显示行数" & Target.Row
MsgBox "显示当前工作薄的名字" & ActiveWorkbook.Name
MsgBox "显示当前工作表的名字" & Sh.Name
End Sub