excel vba怎么获得当前选中单元格
发布网友
发布时间：2022-04-24 02:53
共4个回答
热心网友
时间：2023-10-23 03:47
使用VBA代码解决
Excel版本参考：2010
1、ALT+F11,打开VBE对话框
2、双击对应的工作表标签，复制以下代码，粘贴
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[B5] = ActiveCell.Row
End Sub
3、关闭，查看效果
热心网友
时间：2023-10-23 03:47
Sub
Worksheet_SelectionChange(ByVal
Target
As
Range)
MsgBox
"您选中了：（注意，以逗号分开的为单个单元格，以：连接的为区域，或整行、整列等"
&
Target.Address(0,
0)
End
Sub
请注意
&
Target.Address(0,
0)与&
Target.Address
的不同
热心网友
时间：2023-10-23 03:48
Sub
Worksheet_SelectionChange(ByVal
Target
As
Range)
MsgBox
"你选中了:"
&
Target.Row
&
"列标为："
&
Target.Column
MsgBox
Target.Address
'ADDRESS能显示单元格绝对地址
End
Sub
给你个思路,把上面代码复制到表的VBE中,回到表中点击任一单元格试试,祝你玩VBA玩得开心,想要用好还是打好基础的好
热心网友
时间：2023-10-23 03:49
Excel版本参考：2010
1、ALT+F11,打开VBE对话框
2、双击对应的工作表标签，复制以下代码，粘贴
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[B5] = ActiveCell.Row
End Sub
3、关闭，查看效果
热心网友
时间：2023-10-23 03:47
使用VBA代码解决
Excel版本参考：2010
1、ALT+F11,打开VBE对话框
2、双击对应的工作表标签，复制以下代码，粘贴
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[B5] = ActiveCell.Row
End Sub
3、关闭，查看效果
热心网友
时间：2023-10-23 03:47
使用VBA代码解决
Excel版本参考：2010
1、ALT+F11,打开VBE对话框
2、双击对应的工作表标签，复制以下代码，粘贴
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[B5] = ActiveCell.Row
End Sub
3、关闭，查看效果
热心网友
时间：2023-10-23 03:48
Sub
Worksheet_SelectionChange(ByVal
Target
As
Range)
MsgBox
"您选中了：（注意，以逗号分开的为单个单元格，以：连接的为区域，或整行、整列等"
&
Target.Address(0,
0)
End
Sub
请注意
&
Target.Address(0,
0)与&
Target.Address
的不同
热心网友
时间：2023-10-23 03:48
Sub
Worksheet_SelectionChange(ByVal
Target
As
Range)
MsgBox
"你选中了:"
&
Target.Row
&
"列标为："
&
Target.Column
MsgBox
Target.Address
'ADDRESS能显示单元格绝对地址
End
Sub
给你个思路,把上面代码复制到表的VBE中,回到表中点击任一单元格试试,祝你玩VBA玩得开心,想要用好还是打好基础的好
热心网友
时间：2023-10-23 03:49
Excel版本参考：2010
1、ALT+F11,打开VBE对话框
2、双击对应的工作表标签，复制以下代码，粘贴
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[B5] = ActiveCell.Row
End Sub
3、关闭，查看效果
热心网友
时间：2023-10-23 03:48
Sub
Worksheet_SelectionChange(ByVal
Target
As
Range)
MsgBox
"您选中了：（注意，以逗号分开的为单个单元格，以：连接的为区域，或整行、整列等"
&
Target.Address(0,
0)
End
Sub
请注意
&
Target.Address(0,
0)与&
Target.Address
的不同
热心网友
时间：2023-10-23 03:48
Sub
Worksheet_SelectionChange(ByVal
Target
As
Range)
MsgBox
"你选中了:"
&
Target.Row
&
"列标为："
&
Target.Column
MsgBox
Target.Address
'ADDRESS能显示单元格绝对地址
End
Sub
给你个思路,把上面代码复制到表的VBE中,回到表中点击任一单元格试试,祝你玩VBA玩得开心,想要用好还是打好基础的好
热心网友
时间：2023-10-23 03:49
Excel版本参考：2010
1、ALT+F11,打开VBE对话框
2、双击对应的工作表标签，复制以下代码，粘贴
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[B5] = ActiveCell.Row
End Sub
3、关闭，查看效果
