[已解决]将selection.address写入变量

billyzhang0609

无法表达出效果的内容我已经写入代码，请问如何改？

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim i&, j&
Dim x

If Target.Column = 7 And Target.Row <> 1 Then
    If Target.Count = 1 Then
       ActiveCell.Select
       x =Selection.Address   ’这里无法表达出效果，我希望Selection.address的值能写入变量x
    Else
        MsgBox "不支持多单元格编辑"
        Cells(1, 1).Activate
    End If
End If

End Sub

最佳答案

月排行榜 / 总排行榜

爱疯

2016-3-22 09:18

billyzhang0609 发表于 2016-3-22 09:16
问题在于 X无法= selection.address，
X啥都出不来

这不是可以看到吗？

跳转到最佳答案楼层

爱疯

不理解题意。
如果可以表示为变量，该变量将用在什么地方？

billyzhang0609

爱疯 发表于 2016-3-22 08:58
不理解题意。
如果可以表示为变量，该变量将用在什么地方？

注释行如果改成：

msgbox Selection.Address

msgbox上显示出来的是鼠标点中单元格的坐标，我是想如何把这个坐标抠出来赋值给变量X，

后续代码里面就可以直接用 range（x）来做后续操作了

爱疯

billyzhang0609 发表于 2016-3-22 09:05
这一如果改成：

msgbox Selection.Address

Sub test()
    Dim x As String
    x = Selection.Address
    Range(x) = 123
End Sub


不清楚后续要用x做什么？
对于这个test()，可以不必用变量x，直接写成，Selection=123

billyzhang0609

爱疯 发表于 2016-3-22 09:14
Sub test()
    Dim x As String
    x = Selection.Address

问题在于 X的值在调试的时候怎么看不到它的值，本地窗口里面也不显示X=多少。
这是为什么？

爱疯

billyzhang0609 发表于 2016-3-22 09:16
问题在于 X无法= selection.address，
X啥都出不来

这不是可以看到吗？