[已解决]把数字自动转换为文字,vba能做到吗？

tt1668

我要把数字自动转换为文字,vba能做到吗？比如说我把1当B，2-C，3-D，4-E，5-F，6-G.......当我输入5431就等于FEDB

最佳答案

月排行榜 / 总排行榜

爱疯

2016-3-31 16:15

Function ch(x As Range) As String
    Dim A()
    Dim i As Integer
    A = Array("K", "B", "C", "D", "E", "F", "G", "H", "I", "J")
    For i = 1 To Len(x)
        ch = ch & A(Mid(x, i, 1))
    Next i
End Function

2.rar (13.9 KB, 下载次数: 12)

2016-3-31 16:15 上传

点击文件名下载附件

跳转到最佳答案楼层

爱疯

如果别人多看几组，也许能猜出字母所代表的数字。

就不保密了啊？

tt1668

爱疯 发表于 2016-3-31 14:40
如果别人多看几组，也许能猜出字母所代表的数字。

就不保密了啊？

哈哈，也无所谓啦，哪些数字代表我的本钱，就算知道了我也是要赚的麻.....

爱疯

Sub test()
    Dim num, str$, i%, n%
    num = InputBox("数字：", "输入", 5431)
    If num = "" Then End

    For i = 1 To Len(num)
        n = Mid(num, i, 1)
        If VBA.IsNumeric(n) Then
            str = str & Chr(65 + n)
        Else
            str = "这不是一个数字"
        End If
    Next i
    MsgBox str, , "结束"
End Sub

2.rar (8.2 KB, 下载次数: 9)

2016-3-31 14:59 上传

点击文件名下载附件

tt1668

爱疯 发表于 2016-3-31 14:59
Sub test()
    Dim num, str$, i%, n%
    num = InputBox("数字：", "输入", 5431)

对了，不过我想把数字输入在A1:A10,文字就更换在B1:B10的，可以吗？因为我懒得一个一个去输入

爱疯

Function ch(x As Range) As String
    Dim A()
    Dim i As Integer
    A = Array("K", "B", "C", "D", "E", "F", "G", "H", "I", "J")
    For i = 1 To Len(x)
        ch = ch & A(Mid(x, i, 1))
    Next i
End Function

2.rar (13.9 KB, 下载次数: 12)

2016-3-31 16:15 上传

点击文件名下载附件

tt1668

感激不尽....