2017年11月
      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を優しく終了させる。 »