VBA001 String、Space関数

VBAで全角スペースを指定数追加する（String）
VBAで半角スペースを指定数追加する（Space）

1，String関数の使用方法
構文
String(Number, Character)

説明
Number：文字をいくつ並べるのかを整数値で指定します。
Character：文字の文字コード、または文字列を指定します。 この文字が引数 Number の回数だけ繰り返されます。

String関数の使用例
ある文字を指定の回数繰り返した文字列を取得する例です。

Sub sample_01()
'文字を指定
Debug.Print "文字指定　　　：" & String(10, "A")
End Sub

マクロ実行結果
文字指定　　　：AAAAAAAAAA

2，Space関数の使用方法

構文
Space(Number)

説明
Number：文字をいくつ並べるのかを整数値で指定します。
Character：文字の文字コード、または文字列を指定します。 この文字が引数 Number の回数だけ繰り返されます。

Space関数の使用例
空白を指定の回数繰り返して取得する例です。

Sub sample_02()
'### このマクロはWindows機で実行してください。###

Dim strAry(1 To 3)  As String
Dim i               As Integer
Dim b               As Integer

strAry(1) = "1,234"
strAry(2) = "Hello World!!"
strAry(3) = "あいうえお"

For i = 1 To 3
    '文字列のバイト数をShift_JIS形式で取得
    b = LenB(StrConv(strAry(i), vbFromUnicode))
    '全体が20バイトとなるように左側にスペースをパディングして表示
    Debug.Print Space(20 - b) & strAry(i)
Next i

End Sub
マクロ実行結果（イミディエイトウィンドウ）
1,234
Hello World!!
あいうえお