如何将1.2.3转换成一\二\三

写一个自定义函数,可以完成你的要求.

'调用示例:   = LLX("1.2.3")  返回 "一\二\三"
Public Function LLX(str1) As String
    For N = 1 To Len(str1)
        Select Case Mid(str1, N, 1)
        Case 0
            str2 = "零"
        Case 1
            str2 = "一"
        Case 2
            str2 = "二"
        Case 3
            str2 = "三"
        Case 4
            str2 = "四"
        Case 5
            str2 = "五"
        Case 6
            str2 = "六"
        Case 7
            str2 = "七"
        Case 8
            str2 = "八"
        Case 9
            str2 = "九"
        Case "."
            str2 = "\"
        End Select
        str1 = Replace(str1, Mid(str1, N, 1), str2, 1, 1)
    Next N
    LLX = str1
End Function