入力されていないときに、メッセージを出す（エクセルマクロ）

フォームにオプションボタン１個とテキストボックスが6個
配置してあります。コマンドボタンを押したときに、入力漏れの箇所について注意を促したいのですが、コードはどのように書いたらいいですか。

No.4 回答者： Wendy02 回答日時： 2007/09/03 08:33

追伸：

もし、選択肢が１個以上という場合なら、チェックボックスを使ったほうがよいですね。
オプションボタンは、#3 で示したように、本来は、どれか１つが、On になった状態ですから。（全部、オフな状態というのは、設定の問題）

No.3 回答者： Wendy02 回答日時： 2007/09/02 14:57

こんにちは。

>オプションボタンは２個（1セット）です。
オプションの場合は、数に関係なく、1グループになってしまいます。

教本的な書き方をすれば、オプションボタンは、片方のデフォルト値のValue プロパティを、True にしておきます。そうすると、どれか１つは、True になるわけですが、起動時には、そのままですと、本来はありえない、全部が、False になってしまいます。

そうでないなら、#1 さんのようにすればよいと思います。

No.2 回答者： Wendy02 回答日時： 2007/09/02 11:06

こんにちは。

OptionButton が、1個なら、チェックのしようがないと思います。
後は、テキストボックス6個ですから、以下のようにすれば出来ます。
二つ以上あれば、最初に、入力漏れのあった場所が指摘されます。

Private Sub CommandButton1_Click()
Dim i As Integer
　For i = 1 To 6
　　If Controls("TextBox" & i).Text = "" Then
　　　MsgBox "TextBox" & CStr(i) & " が入力されていません。", 32
　　　Controls("TextBox" & i).SetFocus
　　　Exit Sub
　　End If
　Next
End Sub

この回答への補足

オプションボタンは２個（1セット）です。

補足日時：2007/09/02 12:47

この回答へのお礼

有難うございました。参考になりました。

お礼日時：2007/09/16 11:57

No.1 ベストアンサー 回答者： omnibussss 回答日時： 2007/09/02 10:44

たとえばこの様なのはいかがでしょうか？

オプションボタンは１個ではなく、１組だとしています。

Private Sub CommandButton1_Click()
Dim Ch As Integer
Ch = 0
If TextBox1.Value = "" Then
Ch = 1
ElseIf TextBox2.Value = "" Then
Ch = 1
ElseIf TextBox3.Value = "" Then
Ch = 1
ElseIf TextBox4.Value = "" Then
Ch = 1
ElseIf TextBox5.Value = "" Then
Ch = 1
ElseIf TextBox6.Value = "" Then
Ch = 1
ElseIf OptionButton1.Value = False And OptionButton2.Value = False Then
Ch = 1
End If

If Ch <> 0 Then
MsgBox "未入力の箇所があります"
End If
End Sub

これで注意のメッセージが表示されるはずです。

この回答へのお礼

有難うございました。参考になりました。

お礼日時：2007/09/16 11:56