VBA　Space関数で一定数の空白を追加

 

Space関数で一定数の空白を追加

 

Sub test1()
 ’　Space関数で一定数の空白を追加

 

　　MsgBox "|" & Space(5) & "|：5スペース分"


End Sub

 

構文  Space(数値)

 

実行結果

 

Sub test2()
 ’　Space関数で数字ピラミッド作成

 

    Dim i As Long
    Dim n  As Long
    Dim xlCnt   As Long
    Dim MyStr   As String

    n = 9     '揃えいたい桁数(9にする
    
    For i = 1 To 8  ' 1～８行までループする
    
        'A列の数字の文字数を取得
        xlCnt = Len(Cells(i, 1))
        
         'A列の数値と(9-文字数)分をスペース追加
        MyStr = Cells(i, 1) & Space(n - xlCnt)
        
        'セルに出力
        Cells(i, 2) = "'" & MyStr
    
    Next i


End Sub

 

実行結果

 

 

― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじ へ戻る 

 

参考記事