EXCEL VBA：補零

補零
====================================================
設定儲存格格式：
補零（但只是顯示上的改變，其真正的值並未改變）
儲存格格式，選擇『自訂』，0 表示確定要顯示的位數，每多一個 0 表示要增加一個位數。若輸入的位數較少，則前面自動補零

=====================================
'寫在儲存格內的補零公式（將B2表成5位號碼，不足位者自動補零，寫入現在的儲存格）
=REPT("0", 5-LEN(B2))&B2
或
=TEXT(B2,"00000")
=================================
'VBA的寫法一（表成5位號碼）
x = 123
MsgBox String(5 - Len(x), "0") & x
==================================
'VBA的寫法二（表成5位號碼）
x = Range("A1").Value
MsgBox String(5 - Len(x), "0") & x
=================================
'VBA的寫法三（使用自訂函數）（表成5位號碼）
Sub test()
    x = Range("A1").Value
    MsgBox addzero(x, 5)
End Sub

Function addzero(x, n)
    addzero = String(n - Len(x), "0") & x
End Function
=================================