GBKEE

回復 57# emma

1. Option Explicit
   
2. Sub EX()
   
3.     '１２,３４５萬６千７百８十
   
4.     Dim Dot As Long, m As String
   
5.     Dot = 123456789
   
6.     m = "000萬0千0百0十0"
   
7.     If Len(CStr(Dot)) = 1 Then m = "0"
   
8.     If Len(CStr(Dot)) = 2 Then m = "0十0"
   
9.     If Len(CStr(Dot)) = 3 Then m = "0百0十0"
   
10.     If Len(CStr(Dot)) = 4 Then m = "0千0百0十0"
    
11.     MsgBox Format(Dot, m)
    
12. End Sub

複製代碼

GBKEE

回復 59# emma

1. Option Explicit
   
2. Sub EX()
   
3.     '１２,３４５萬６千７百８十
   
4.     Dim Dot As Long, m As String
   
5.     Dot = Int(123456789 / 1000)
   
6.     m = "0萬0千"
   
7.     MsgBox Format(Dot, m)
   
8. End Sub

複製代碼

GBKEE

回復 61# emma

1. Option Explicit
   
2. Private Sub Ex()
   
3.     '１２,３４５萬６千７百８十
   
4.     Dim Dot As Long, m As String, t As String, i  As Integer
   
5.     m = "0萬0仟0佰0拾0 "         '加上一空格:處理個位數為0
   
6.     Dot = Sheets("工作表1").[A1]
   
7.     t = Format(Dot, m)
   
8.     For i = IIf(Len(t) > 10, 3, 1) To Len(m) Step 2
   
9.         'IIf(Len(t) > 10, 3, 1) 處理萬位數為0
   
10.         t = Replace(t, Mid(m, i, 2), "")
    
11.     Next
    
12.     Sheets("工作表1").[A4] = t
    
13.     'Sheets("工作表1").[A4] = RTrim(t)
    
14.     'LTrim、RTrim 與 Trim 函數
    
15.     '傳回一個沒有前頭空白 (LTrim)、後面空白 (RTrim) 或前後均無空白的Variant (String)，
    
16. End Sub

複製代碼