« すべてのウィンドウを元のサイズに戻す。 | トップページ | 参照が残って終了しないExcelを優しく終了させる。 »

2007年5月 5日 (土)

文字列の繰り返し関数はないの?

文字の繰り返し関数はString(n,c)ですが、文字列の繰り返し関数はないの?
ないようです。なので作ってみました。

Function Strings(n,s)
Dim a:ReDim a(n):Strings=Join(a,s)
End Function

MsgBox Strings(5,"abc")

しかし、これくらいなら関数を作らずとも簡単に書けますね。

MsgBox Join(Split(Space(5)),"abc")

更に、こういう方法もあります。

MsgBox Replace(Space(5),Chr(32),"abc")

« すべてのウィンドウを元のサイズに戻す。 | トップページ | 参照が残って終了しないExcelを優しく終了させる。 »