msgbox selection.column '显示列数
msgbox selection.row '显示行数
MsgBox ActiveWorkbook.Name '显示当前工作薄的名字
MsgBox ActiveSheet.Name '显示当前工作表的名字
打开工作表后按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
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024