VBA怎么一单击按钮就获得当前单元格坐标，用msgbox显示

股网金来

Sub dyg()
Dim x As Integer, y As Integer, mingzi As String
x = Selection.Row()
y = Selection.Column()
mingzi = Cells(x, y).Name
msgbox "你选定的当前单元格是："&mingzi
End Sub


请问我的思路正确吗？？为什么执行不了？？

whggwu

直接看都看得出来了吧？顶头的列和最左侧的行，选中的单元格是活动单元格，行列坐标有底色的

山风

Book1.rar (5.52 KB, 下载次数: 86)

2012-10-25 15:57 上传

点击文件名下载附件

Private Sub Worksheet_SelectionChange(ByVal Target As Range)  '代码要放在点击事件中
Dim x As Integer, y As Integer, mingzi As String
x = Selection.Row()
y = Selection.Column()
mingzi = "Cells(" & x & ", " & y & ")"
MsgBox "你选定的当前单元格是：" & mingzi

End Sub

股网金来

非常感谢楼上的回答。
我是想cells(1,1)，翻译成A1
也就是说MsgBox "你选定的当前单元格是：" & mingzi
返回的是你选定的当前单元格是：A1
而不是你选定的当前单元格是：cells(1,1).

山风

Book1.rar (6.27 KB, 下载次数: 71)

2012-10-25 16:24 上传

点击文件名下载附件

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim x As Integer, y As Integer, mingzi As String
x = Selection.Row()
y = Selection.Column()
f = Replace(Mid(Cells(1, y).Address, 2, 2), "$", "") ' 由列数得到列标
mingzi = f & x
MsgBox "你选定的当前单元格是：" & mingzi

End Sub

ggsmart

msgbox "你选定的当前单元格是："&Selection.Address

股网金来

非常感谢楼上的回答，仔细研究了楼上所用的函数，是我学到了很多。

wanghu572

6楼正解，以后多考虑直接的办法，你前面的代码都是在走弯路

yamizak

{:soso_e104:} 受教 受教了 以后慢慢看

standardby

股网金来 发表于 2012-10-25 16:18
非常感谢楼上的回答。
我是想cells(1,1)，翻译成A1
也就是说MsgBox "你选定的当前单元格是：" & mingzi

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)  '代码要放在点击事件中
   
2. 
   
3.     MsgBox "你选定的当前单元格是：" & Replace(Target.Address, "$", "")
   
4. 
   
5. End Sub
   
6. 
   

复制代码