Excel VBA質問箱 IV

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

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


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

【47036】Do untilの条件 石丸小唄 07/2/26(月) 15:18 質問[未読]
【47038】Re:Do untilの条件 Kein 07/2/26(月) 15:59 発言[未読]
【47039】Re:Do untilの条件 Jaka 07/2/26(月) 16:58 発言[未読]
【47112】Re:Do untilの条件 石丸小唄 07/3/1(木) 11:06 お礼[未読]

【47036】Do untilの条件
質問  石丸小唄  - 07/2/26(月) 15:18 -

引用なし
パスワード
   1.Do until〜Loop文の条件を複数にするには
2.Do until〜Loop文の繰り返しをするには
どうしたらいいのでしょう?

今、予定表のようなものを作っているのですが、いまいちわかりません。
下記がその作成途中のプログラムの一部なので、見てもよくわからないかもしれませんが,参考までに…。


Option Explicit
Dim t1 As String  '先の日付
Dim t2 As String  '後の日付
Dim t3 As String  '先の予定
Dim t4 As String  '後の予定
Private Sub CommandButton1_Click()
'クリアボタン
  UserForm2.TextBox1.Text = ""
  UserForm2.TextBox2.Text = ""
  UserForm2.TextBox3.Text = ""
  UserForm2.TextBox4.Text = ""
End Sub
Private Sub CommandButton2_Click()
'決定ボタン
Dim d As Integer
Dim p As Integer


t1 = Val(TextBox1.Text)
t2 = Val(TextBox2.Text)
t3 = Val(TextBox3.Text)
t4 = Val(TextBox4.Text)


'Do until
'd = 1 to 10 step 1
'dia(日にち)
'Do until
'p = 1 to 10 step 1
'plan(予定)
'a=t2
'b=t4
'Loop
'Loop

End Sub

【47038】Re:Do untilの条件
発言  Kein  - 07/2/26(月) 15:59 -

引用なし
パスワード
   その説明からもコードからも、何をしたいのかさっぱり伝わってきません。
もっと詳しく具体的に説明して下さい。

【47039】Re:Do untilの条件
発言  Jaka  - 07/2/26(月) 16:58 -

引用なし
パスワード
   ▼石丸小唄 さん:
>1.Do until〜Loop文の条件を複数にするには
>2.Do until〜Loop文の繰り返しをするには
>どうしたらいいのでしょう?
良く解らないけど、こう感じのもの?

i = 1
Do Until Cells(i, 1).Value = "" And Cells(i, 2).Value = ""
  i = i + 1
Loop
MsgBox i

【47112】Re:Do untilの条件
お礼  石丸小唄  - 07/3/1(木) 11:06 -

引用なし
パスワード
   すみません。
自己解決いたしました。

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