Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

34901 / 76734

←次へ　｜　前へ→


	【47036】Do untilの条件

石丸小唄 - 07/2/26(月) 15:18 -


	引用なし

	パスワード

１．Do until～Loop文の条件を複数にするには
２．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

2 hits

▼

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

≪