Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


10011 / 76734 ←次へ | 前へ→

【72277】Re:セルに色を付けるマクロDoWhile〜Loop処理
発言  UO3  - 12/7/7(土) 11:38 -

引用なし
パスワード
   ▼杏子 さん:

>DoWhile〜Loopでは構成が立てにくいのでしょうか。

というか、Do/Loopでやらなきゃいけない必要性がないということです。
無理矢理Do/Loop構文を使うなら、

Sub Sample2()
  Dim i As Long
  
  i = 1
  
  Do While i < 11
    Range("A1").Offset(i - 1, i - 1).Interior.Color = vbCyan
    i = i + 1
  Loop
  
End Sub

Sub Sample3()
  Dim i As Long
  
  i = 1
  
  Do Until i = 11
    Range("A1").Offset(i - 1, i - 1).Interior.Color = vbCyan
    i = i + 1
  Loop
  
End Sub

5 hits

【72273】セルに色を付けるマクロDoWhile〜Loop処理 杏子 12/7/7(土) 8:51 質問
【72274】Re:セルに色を付けるマクロDoWhile〜Loop処... UO3 12/7/7(土) 9:07 発言
【72275】Re:セルに色を付けるマクロDoWhile〜Loop処... 杏子 12/7/7(土) 9:20 発言
【72277】Re:セルに色を付けるマクロDoWhile〜Loop処... UO3 12/7/7(土) 11:38 発言
【72278】Re:セルに色を付けるマクロDoWhile〜Loop処... 杏子 12/7/7(土) 12:59 お礼

10011 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free