VBA : パディングするコード
指定した文字数に満たない文字列の先頭を任意の文字で埋めるコードです。
Access で固定長のデータを作る必要があったので書きました。
ゼロパディングやスペースパディング等の処理に使えると思います。
'expression 必ず指定します。処理対象の文字列を指定します。
'padding 必ず指定します。expression の前方に詰め込む文字列を指定します。
'length 必ず指定します。文字数を指定します。
Function Pad(expression As String, padding As String, length As Long) As String
Dim replaceLength As Long
replaceLength = length - Len(expression)
Pad = String(replaceLength, padding) & expression
End Function