[已解决]列号的表示

爱疯

Sub aa()
    Dim str As String
    Dim x As Integer

    str = InputBox("请输入列号:", , "c")
    x = Columns(str)
   
    Stop
End Sub

请问怎样修改，才可得到x。谢谢！

最佳答案

月排行榜 / 总排行榜

雨狐

2009-9-20 22:02

简单一点的"

Sub aa()
    Dim str As String
    Dim x As Integer

    str = InputBox("请输入列号:", , "c")
    x = Cells(1, str).Column

   
    Stop
End Sub

跳转到最佳答案楼层

不看不看

没看明白，猜猜

Sub aa()
    Dim str As String
    Dim x As Integer

    str = InputBox("请输入列号:", , "c")
    x = Asc(UCase(str)) - 64
   
    Stop
End Sub

这个问题不好

[em03]

领风飞翔

Sub aa()
    Dim str As String
    Dim x As Integer

    str = InputBox("请输入列号:", , "c")
    If Asc(str) < 97 Then
    x = Asc(str) - 64
    Else
    x = Asc(str) - 96
    End If
    MsgBox x
End Sub

是这个意思吗?

领风飞翔

QUOTE:

以下是引用不看不看在2009-9-20 21:37:00的发言：

没看明白，猜猜

Sub aa()
    Dim str As String
    Dim x As Integer

    str = InputBox("请输入列号:", , "c")
    x = Asc(UCase(str)) - 64
   
    Stop
End Sub

这个问题不好

[em03]

学习Ucase函数[em01]

帅

头痛[em06][em06][em06]

爱疯

谢谢不看！

我又没写清楚。我是想通过列号，求出它第几列。如果是常量，直接columns("c")就好了。可当columns()遇上变量，就不能直接用了。不知道有没有好方法解决。比如:

str="c",x=3；

str="iv",x=256

[em04]

雨狐

简单一点的"

Sub aa()
    Dim str As String
    Dim x As Integer

    str = InputBox("请输入列号:", , "c")
    x = Cells(1, str).Column

   
    Stop
End Sub

领风飞翔

[em03]我们犯了一个错误,把函数的思路带到VBA了

不看不看

呵呵，是的，雨狐的办法好

爱疯

谢谢雨狐！！

学习了

[em25]