TOP > Up > Today 

Date:  Fri, 27 Jun 2008 00:21:16 +0900
From:  no@ann.co.jp
Subject:  [pasml 298053] Re: VBA MsgBox か InputBox の再入力
To:  pasml@ann.co.jp
Message-Id:  <200806261521.m5QFLGbq007389@pas2.jp>
X-Mail-Count: 298053

名前: 独覚 BBSから
質問:http://pasokoma.jp/45/lg453603#453611
携帯:http://pasokoma.jp/m?num=453611&ope=v
--
RPGなんかであるような「はい」を選ばないと先に進まない質問みたいですが。

Sub test()
Dim RET As Integer
Dim Msg_TXT As String

Msg_TXT = &quot;再入力してください&quot;

Do Until RET = vbYes

RET = MsgBox(&quot;質問&quot;, vbYesNo)
If RET = vbNo Then
MsgBox Msg_TXT
Msg_TXT = &quot;ちゃんと入力してください&quot;
End If
Loop
MsgBox &quot;「はい」が入力されました&quot;

End Sub

InputBoxの場合は応用で。
（そもそも「はい」「いいえ」ボタンもないし、どのような仕様にしたいのかわからないので） 

インデントが消えちゃうみたいなのでそこはご容赦を
--
== 掲示板ＵＲＬ： http://pasokoma.jp/bbs ==
   配信の停止： http://pasokoma.jp/taikai
   本メールマガジンへの返信はなさらないで下さい
== 投稿はパソコン困りごと掲示板でお願い致します ===
TOP > Up > Today