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


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

ループを使って3

 投稿者:katsuya  投稿日:2007年 4月28日(土)22時03分54秒
  通報
  (2) Do Until….Loop
Do Until….Loopを使って、C列に1から10までの数を入れるマクロを作ります。これは、ループに入る前に条件を調べる方法です。
Dim I As Integer
I = 0
Range("C1").Select
Do Until I > 9 …(1)
ActiveCell.Offset(I, 0).Value = 1 + I …(2)
I = I + 1
Loop …(3)
(1)と(3)以外は、前回のDo….Loop Untilと全く同じです。ここではループに入る前に(1)で変数Iが10以上か調べています。変数Iの値をいろいろ変えて試してみましょう。変数Iが10以上の場合は、ループに入らずに(3)にとんでしまいます。
(2)は、もちろんCells( )でもできます。ぜひ直してみてください。
 
 
》記事一覧表示

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