Question

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

请写一段代码,用鼠标点取某个单元格后,得到这个单元格的所在行数、列数及表格的名字。

Answer 1

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

Answer 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