请教数字大写

jongcheol

请问我只是想把数字写成大写应该用什么公式？不是人民币大写。
比如，2015写成大写的话应该是贰零壹伍，而不是贰仟零壹拾伍。
比较着急，知道的同志回答一下。

zongyj

1. NUMBERSTRING（数据，3）

复制代码

jongcheol

zongyj 发表于 2015-4-29 14:03

谢谢解答。如果用这个函数的话，=NUMBERSTRING(A1,2)这样用，但这样的话就变成贰仟零壹拾伍，但我只要显示贰零壹伍，不要中间的仟和拾。

jongcheol

请问哪位能帮帮忙？

zongyj

数字有没有小数，没有的话考虑简单写个自定义函数

jongcheol

zongyj 发表于 2015-4-29 15:39
数字有没有小数，没有的话考虑简单写个自定义函数

数字没有小数，就是正整数。能帮忙吗？

zongyj

1. Option Explicit
   
2. 
   
3. 
   
4. Public Function a(N1) As String
   
5.     Select Case N1
   
6.     Case 0
   
7.         a = "零"
   
8.     Case 1
   
9.         a = "壹"
   
10.     Case 2
    
11.         a = "贰"
    
12.     Case 3
    
13.         a = "叁"
    
14.     Case 4
    
15.         a = "肆"
    
16.     Case 5
    
17.         a = "伍"
    
18.     Case 6
    
19.         a = "陆"
    
20.     Case 7
    
21.         a = "柒"
    
22.     Case 8
    
23.         a = "捌"
    
24.     Case 9
    
25.         a = "玖"
    
26.     End Select
    
27. End Function
    
28. 
    
29. 
    
30. Public Function aa(N2) As String
    
31.     Dim i, str, s
    
32.     For i = 1 To Len(N2)
    
33.         s = Mid(N2, i, 1)
    
34.         str = str & a(s)
    
35.     Next
    
36.     aa = str
    
37. End Function
    

复制代码

zongyj

试一下！！！！！！！

jongcheol

zongyj 发表于 2015-4-29 15:52
试一下！！！！！！！

因为只是想把数字转换为大写的汉字就行，所以用vba有点...
请问有没有函数公式可以用？

zongyj

这个就是自定义公式，单元格里输入=aa(要转换的单元格)