Excel VBA 質問スレ Part14

Excel VBA 質問スレ P ..

405:デフォルトの名無しさん
10/02/25 12:14:46
すみません、もうひとつ聞きたいことがあるんですが、
星の表示で1～ｎ個の＊を順番に表示させるプログラムをつくったんですが、
Sub 星の昇順表示()
'1　～　ｎ個の”*　”を順番に表示
Dim i As Integer, n As Integer
n = 10
Do
Debug.Print Format(i, "00") & String(i, "*")
i = i + 1
Loop While i < 11
End Sub
これをｎ～1個の＊を順番に表示させるためにはDo～Loopを使ってどのように変えればいいのでしょうか？
教えていただけないでしょうか。

次ページ

続きを表示

1を表示