[ExcelVBA] Space関数

>Blog Top Page >[ExcelVBA] Top Page >[ExcelVBA] 関数一覧

■構文
Space(number)

■説明
指定した数のスペースを返します
第一引数：スペースの数を指定

■サンプルコード

Option Explicit

Sub SampleCode()
    '1桁～5桁の数字を出力する時、半角スペースを使い1の桁で揃えて出力する
    Dim RndNumber As Integer
    Randomize
    RndNumber = Int(Rnd() * 30000) + 1
    
    Debug.Print Space(5 - Len(CStr(RndNumber))) & RndNumber
End Sub

>Blog Top Page >[ExcelVBA] Top Page >[ExcelVBA] 関数一覧