Excel VBA質問箱 IV

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

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


3423 / 13645 ツリー ←次へ | 前へ→

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

【62329】条件文 ループ
質問  しん  - 09/7/9(木) 21:09 -

引用なし
パスワード
   いつもお世話になります。

A=0
B=50
C=2.5

Aの値がC分ずつプラスしていき、Bの値になるまでの条件文
を作成したいのですがうまくいきません。
アドバイスいただけませんか?

【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

【62338】Re:条件文 ループ
お礼  [名前なし]  - 09/7/10(金) 18:42 -

引用なし
パスワード
   ご回答ありがとうございます。
アドバイスをいただいたプログラムの解読がまだできていないので調べさせていただきます。
ありがとうございました。

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