如题所述
使ç¨VBA代ç 解å³
Excelçæ¬åèï¼2010
1ãALT+F11,æå¼VBE对è¯æ¡
2ãåå»å¯¹åºçå·¥ä½è¡¨æ ç¾ï¼å¤å¶ä»¥ä¸ä»£ç ï¼ç²è´´
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[B5] = ActiveCell.Row
End Sub
3ãå ³éï¼æ¥çææ
温馨提示：答案为网友推荐，仅供参考
第1个回答 2020-03-26
Private
Sub
Worksheet_SelectionChange(ByVal
Target
As
Range)
MsgBox
"您选中了：（注意，以逗号分开的为单个单元格，以：连接的为区域，或整行、整列等"
&
Target.Address(0,
0)
End
Sub
请注意
&
Target.Address(0,
0)与&
Target.Address
的不同
Sub
Worksheet_SelectionChange(ByVal
Target
As
Range)
MsgBox
"您选中了：（注意，以逗号分开的为单个单元格，以：连接的为区域，或整行、整列等"
&
Target.Address(0,
0)
End
Sub
请注意
&
Target.Address(0,
0)与&
Target.Address
的不同
第2个回答 2019-05-11
Private
Sub
Worksheet_SelectionChange(ByVal
Target
As
Range)
MsgBox
"你选中了:"
&
Target.Row
&
"列标为："
&
Target.Column
MsgBox
Target.Address
'ADDRESS能显示单元格绝对地址
End
Sub
给你个思路,把上面代码复制到表的VBE中,回到表中点击任一单元格试试,祝你玩VBA玩得开心,想要用好还是打好基础的好
Sub
Worksheet_SelectionChange(ByVal
Target
As
Range)
MsgBox
"你选中了:"
&
Target.Row
&
"列标为："
&
Target.Column
MsgBox
Target.Address
'ADDRESS能显示单元格绝对地址
End
Sub
给你个思路,把上面代码复制到表的VBE中,回到表中点击任一单元格试试,祝你玩VBA玩得开心,想要用好还是打好基础的好
第3个回答 2020-06-05
使用VBA代码解决
Excel版本参考：2010
1、ALT+F11,打开VBE对话框
2、双击对应的工作表标签，复制以下代码，粘贴
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[B5] = ActiveCell.Row
End Sub
3、关闭，查看效果
Excel版本参考：2010
1、ALT+F11,打开VBE对话框
2、双击对应的工作表标签，复制以下代码，粘贴
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[B5] = ActiveCell.Row
End Sub
3、关闭，查看效果
