[ExcelVBA] Space関数

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

■構文
Space(number)

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

■サンプルコード

view plainprint?

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

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] 関数一覧