Excel中把小写金额转换成大写的技巧

[10-18 20:51:35]   来源：http://www.wenxue9.com  Excel技巧   阅读：8822次

概要： Else: If Mid(D, b - k + 1, 1) = "0" And Mid(D, b - k + 2, 1) <> "0" _ Then C = AAA(10 ^ k) + "零" + C Else: C = Y + C End Select Case 2 C = AAA(Mid(D, b - k + 1, 1)) + " " + C Case 3 C = AAA(Mid(D, b - k + 1, 1)) + AAA(10 ^ k) + C End Select Next abc = CEnd Function上一页 [1] [2] [3]

Excel中把小写金额转换成大写的技巧,标签：Excel教程,电脑基础教程,http://www.wenxue9.com
                  Else: If Mid(D, b - k + 1, 1) = "0" And Mid(D, b - k + 2, 1) <> "0" _
                  Then C = AAA(10 ^ k) + "零" + C Else: C = Y + C
            End Select
         Case 2
            C = AAA(Mid(D, b - k + 1, 1)) + " " + C
         Case 3
            C = AAA(Mid(D, b - k + 1, 1)) + AAA(10 ^ k) + C
      End Select
   Next
   abc = C
End Function

上一页  [1] [2] [3] 

上一篇：Excel 2007数字格式与文本格式的互转