数字の先頭を0(ゼロ)付きの文字列で表示する

＜分類：値変換＞
＜使用例：数字(3)を任意の桁(4)に合わせて先頭から0(ゼロ)を設定して文字列表示(0003)する＞
＜プログラム例＞

Sub 使用例()
   Dim suuji As Long
   Dim keta As Long
   Dim rtn1 As String

   suuji = 3
   keta = 4
   rtn1 = 数字の先頭0埋め(suuji, keta)

   MsgBox ("数字" & suuji & "を" & keta & "桁に合わせて先頭からゼロ埋めした文字列は" & rtn1 & "です")

End Sub

Function 数字の先頭0埋め(suuji As Long, keta As Long) As String
'suuji:変換元数字
'keta：任意の桁
    Dim mojis As String
    Dim cnt As String
    cnt = keta
    Do While cnt > 0
       mojis = mojis & "0"
       cnt = cnt - 1
    Loop
    
    数字の先頭0埋め = Format(suuji, mojis)
    
End Function