Excel VBA質問箱 IV

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

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


19825 / 76732 ←次へ | 前へ→

【62333】Re:条件文 ループ
回答  Hirofumi  - 09/7/9(木) 22:17 -

引用なし
パスワード
   こんなの?

Option Explicit

Public Sub Sample_1()

  Dim A As Single
  Dim B As Single
  Dim C As Single
  
  A = 0
  B = 50
  C = 2.5
  Do Until A >= B
    A = A + C
    MsgBox A
  Loop
  
  MsgBox A
  
End Sub

Public Sub Sample_2()

  Dim A As Single
  Dim B As Single
  Dim C As Single
  
  A = 0
  B = 50
  C = 2.5
  
  For A = 0 To B - C Step C
    MsgBox A
  Next A
  
  MsgBox A
  
End Sub

59 hits

【62329】条件文 ループ しん 09/7/9(木) 21:09 質問
【62333】Re:条件文 ループ Hirofumi 09/7/9(木) 22:17 回答
【62338】Re:条件文 ループ [名前なし] 09/7/10(金) 18:42 お礼

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