teacup. [ 掲示板 ] [ 掲示板作成 ] [ 有料掲示板 ] [ ブログ ]


新着順:6/219 記事一覧表示 | 《前のページ | 次のページ》

ループを使って4

 投稿者:katsuya  投稿日:2007年 5月 5日(土)19時24分14秒
  通報
  (3) Do While….Loop
Do While….Loopを使って、D列に1から10までの数を入れるマクロを作ります。これもループに入る前に条件調べる方法です。
Dim I As Integer
I = 0
Range("D1").Select
Do While I < 10 …(1)
ActiveCell.Offset(I, 0).Value = 1 + I
I = I + 1
Loop
(1)だけが変わっています。Until I>9では、「変数Iが9より大きくなるまで」でしたが、Whileでは「変数Iが10より小さい間」という意味になります。
ところで、10以下とするにはどうしたらいいでしょう。「I<=10」とすればいいのです。不等号と等号を上下に重ねて書くことができないので、等号を右にして、横に続けて書けばできあがりです。
 
 
》記事一覧表示

新着順:6/219 《前のページ | 次のページ》
/219