[已解决]数字转字母

cunfu2010

如何用VBA 代码实现在InputBox中输入数字,在单元格输出字母。如：在InputBox中输入1，则A2单元格中填入A，在InputBox中输入2，则A3单元格中填入B，依次类推

最佳答案

月排行榜 / 总排行榜

爱疯

2016-5-11 21:23

Sub test()
    Dim x, i
    '    x = InputBox("", , 1)
    For i = 1 To 26
        Cells(i, 1) = Chr(i + 64)
    Next i
End Sub

根据情况，自行修改

跳转到最佳答案楼层

爱疯

Sub test()
    Dim x
    x = InputBox("", , 1)
    MsgBox VBA.Chr(x + 64)
End Sub


输入一才，写入单元格一次？
重复，重复。。。。。。
那不是不断弹窗口？

cunfu2010

爱疯 发表于 2016-5-11 20:58
Sub test()
    Dim x
    x = InputBox("", , 1)

谢谢版主，这是其中的一部分。如何将MsgBox显示的结果填入单元格内

爱疯

Sub test()
    Dim x, i
    '    x = InputBox("", , 1)
    For i = 1 To 26
        Cells(i, 1) = Chr(i + 64)
    Next i
End Sub

根据情况，自行修改

cunfu2010

爱疯 发表于 2016-5-11 21:23
Sub test()
    Dim x, i
    '    x = InputBox("", , 1)

谢谢！！！！