2017年9月
          1 2
3 4 5 6 7 8 9
10 11 12 13 14 15 16
17 18 19 20 21 22 23
24 25 26 27 28 29 30
無料ブログはココログ

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