如何循环A-Z当超过26个字母时输出AA,AB,AC.....

meizu9

输入（数字=字母）请见单元格模拟效果02.rar (17.46 KB, 下载次数: 13)

2017-12-3 22:44 上传

点击文件名下载附件

02761752696

Combox2=chr(Combox1+64)

zjdh

输入数字转换字母.rar (17.69 KB, 下载次数: 8)

2017-12-4 09:23 上传

点击文件名下载附件

爱疯

Dim d
Sub Test()
    Dim n
    n = InputBox("", , 27)
    If n <> "" Then Call Dic: MsgBox f(n, 26)
End Sub

Private Sub Dic()
    Dim i
    Set d = CreateObject("scripting.dictionary")
    For i = 1 To 26
        d(i) = Chr(i + 64)
    Next i
End Sub

Function f(x, y)
    Do
        f = d((x Mod y)) & f
        x = x \ y
    Loop Until x = 0
End Function

zjdh

输入数字转换字母(3位).rar (17.73 KB, 下载次数: 15)

2017-12-4 10:00 上传

点击文件名下载附件

meizu9

zjdh 发表于 2017-12-4 10:00

谢谢~！

怎么评最佳？
论坛改版了吗？

大灰狼1976

取单元格列号就行了。

zjdh

大灰狼1976 发表于 2017-12-5 12:33
取单元格列号就行了。

向你学习一下，如何取？

大灰狼1976

zjdh 发表于 2017-12-5 22:38
向你学习一下，如何取？

Sub aaa()
Dim i&
For i = 1 To 100
  MsgBox Split(Cells(1, i).Address, "$")(1)
Next i
End Sub

zjdh

大灰狼1976 发表于 2017-12-6 09:19
Sub aaa()
Dim i&
For i = 1 To 100

脑子僵住了，谢谢你！！