5,139
社区成员
发帖
与我相关
我的任务
分享关于返回EXCEL单元格的座标值:我想要这样一个效果,能实现吗?
在EXCEL文件里,点击鼠标左键,选中一单元格范围(比如A1---B7这么大的一个范围).
要求是:当选中后,就能弹出一个MSGBOX显示"你选中的单元格范围是A1到B7".能不能实现.
如果这样不好实现,哪怕是代码写在宏里也行,也就是说:先选中A1到B7,然后运行宏,弹出"你选中的单元格范围是A1到B7"这样也可以.
要求是:当选中后,就能弹出一个MSGBOX显示"你选中的单元格范围是A1到B7".能不能实现.
如果这样不好实现,哪怕是代码写在宏里也行,也就是说:先选中A1到B7,然后运行宏,弹出"你选中的单元格范围是A1到B7"这样也可以.
...全文
请发表友善的回复…
发表回复
emit 2005-10-13
- 打赏
- 举报
真是太谢谢你们了,今后还请两位高手多多关照.结贴了
northwolves 2005-10-12
- 打赏
- 举报
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
MsgBox "你选中的单元格范围是" & Replace(Replace(Target.Address, "$", ""), ":", "到")
End Sub
MsgBox "你选中的单元格范围是" & Replace(Replace(Target.Address, "$", ""), ":", "到")
End Sub
yigepure 2005-10-12
- 打赏
- 举报
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim RngAddress As String
RngAddress = Target.Address(0, 0)
If InStr(RngAddress, ":") <> 0 Then
RngAddress = "您选择的单元格区域是:" & Replace(RngAddress, ":", "至")
Else
RngAddress = "您选择的单元格是:" & RngAddress
End If
MsgBox RngAddress, 6, "提示信息"
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim RngAddress As String
RngAddress = Target.Address(0, 0)
If InStr(RngAddress, ":") <> 0 Then
RngAddress = "您选择的单元格区域是:" & Replace(RngAddress, ":", "至")
Else
RngAddress = "您选择的单元格是:" & RngAddress
End If
MsgBox RngAddress, 6, "提示信息"
End Sub
emit 2005-10-12
- 打赏
- 举报
up for myself,heihei
emit 2005-10-12
- 打赏
- 举报
偶在这里先谢谢大家啦
