2011年12月11日日曜日

[ExcelVBA] String関数


■構文
String(number, character)

■説明
指定した文字を指定した回数繰り返します。
第一引数:繰り返す回数を指定します。
第二引数:繰り返す文字を指定します。

■サンプルコード
Option Explicit

Sub SampleCode()
    Dim i As Integer
    For i = 0 To 5
        Debug.Print "(" & i & ")" & String(i, "★") & String(5 - i, "☆")
    Next
End Sub

0 件のコメント: