[VBA・マクロ] 1 を001に変換する方法 (ゼロ埋め、ゼロパディング)

2008/05/16

実行結果

ゼロパディング関数を作ります。

Function padZero(n As Integer, keta As Integer)
    padZero = Right(n + 10 ^ keta, keta)
End Function

関数を呼び出すときは、

Sub test()
  MsgBox padZero(1, 4)  ' 1 →　0001 に変換
End Sub

などと書きます。考え方は、前回紹介したExcelのゼロパディングと全く同じです。 [Excel] "1"を"001"に変換する方法

カテゴリ: VBA Excel Access