VBAMsgBoxかInputBoxの再入力



 ◇-?VBA MsgBoxかInputBoxの再入力-マクロ-06/26-23:22(194)-No.453603
   ┗?!Re:VBA MsgBoxかInputBoxの再入...-独覚-06/27-00:21(193)-No.453611
     ┗?!【ありがとう】Re:VBA MsgBoxかI...-マクロ-06/27-08:37(185)-No.453628

▲このページのトップに戻る
453603VBA MsgBoxかInputBoxの再入力マクロ 2008/06/26-23:22

メーカー名:富士通
OS名:WindowsXp HomeEdition
パソコン名:CE8/85L
ソフト関連:表計算Excel
使用回線:光
--
初めまして。

VBAのMsgBoxかInputBoxの2つともやり方が知りたいんですが、
「いいえ」をクリックした時に再入力させる命令を書きたいです。
どのように表記すればいいのかわかりません。

「質問」
「はい」「いいえ」←質問に対して選択
「はい」の場合
「「はい」が入力されました」
「いいえ」の場合
「再入力してください」
「」←最初の質問に戻る
また「いいえ」の場合
「ちゃんと入力してください」←再入力のメッセージ内容を変える
「」←最初の質問に戻る

↑のような命令文を書きたいんです。
「はい」を押さないとループから抜けられない
命令を書きたいわけです。

わかる方、返事お願いします。

▲このページのトップに戻る
453611Re:VBA MsgBoxかInputBoxの再入力独覚 2008/06/27-00:21

記事番号453603へのコメント
RPGなんかであるような「はい」を選ばないと先に進まない質問みたいですが。

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

Msg_TXT = "再入力してください"

Do Until RET = vbYes

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

End Sub

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

インデントが消えちゃうみたいなのでそこはご容赦を

▲このページのトップに戻る
453628Re:VBA MsgBoxかInputBoxの再入力マクロ 2008/06/27-08:37

記事番号453611へのコメント
独覚さんは No.453611「Re:VBA MsgBoxかInputBoxの再入力」で書きました。

ありがとうございます!!
InputBoxの場合は「はい」「いいえ」もないですもんね。

回答をどうもありがとうございました。

A1.本ページは参考になりましたか? 又はアドバイスがありますか?
解決 参考になった 参考にならなかった アドバイスする

A2.何度目の訪問ですか?
初めて来た   数度目(2〜4) 5回以上来ている   管理人:

A3.何か一言どうぞ(アドレスは書くことができません)

A4.アドレスがあればどうぞ(1つまで)


↑↑↑↑よろしければ押してください↑↑↑↑

何か一言(本ページで参考になったならないを含めて残してあります)
◎:解決 ○:参考になった ×:参考にならなかった !:アドバイスあり

参考回数投稿日時何か一言