VBA 一つ前の動作を無効にするには？？

質問

エクセル２００２使用です。

ユーザーフォームにコンボボックス１、コンボボックス２のを２つ並べました。
コンボボックス２はコンボボックス１の値によって違う値を取得するため、
コンボボックス１に必ず入力がなければなりません。

そこで

Private Sub ComboBox2_DropButtonClick()

If ComboBox1.ListIndex = -1 Then
MsgBox "コンボボックス１を入力してください"
End If

end　sub

としましたが、DropButtonClickの動作は有効なので、
メッセージボックスを閉じると、適当な値（今回はコンボボックス2設定のの一番最初の値）を
表示してしまいます。

DropButtonClickの動作を無効にする方法がわかりません。
よろしくお願いします。

回答No.1

osamuy · ベストアンサー

無効にする方法は、パッとはわかりませんが、
コンボボックス2の初期状態をDisabledにしておいて、コンボボックス1に有効な値が入れられたタイミングでEnableにするとか。

あるいは、コンボボックス2の値を覚えておいて、無効な変更の場合は、覚えてた値を再代入するとか。

お礼

osamuy様、早速のご回答ありがとうございました。

初期状態で未入力を作り出し解決しました。
ありがとうございました。今後ともよろしくお願いします

回答No.3

Wendy02

こんにちは。

以下は、単に、Index の問題であって、Listを選択するActionとは違うと思いますが。

　ComboBox1.ListIndex = -1
逆の解釈だと、ComboBox1 の表示のまま、次のUserform2 のComboBox1 を選択するというのは、ちょっと、無理がありますね。

タイトルの「VBA 一つ前の動作を無効にするには？？」というのは、一旦、Class 側でインスタンスを作らないといけないと思いますが、その必要はないと思います。

#1 さんのご指摘もごもっともなのですが、ただ単に、Userform2 側のComboBox1 に着目すれば、たぶん、以下のようにすればよいと思います。

もちろん、Userform2側のComboBox1 側は、DropButtonClick でもよいのですが、Changeなら、One Actionです。

'<標準モジュール>
Public myValue As Variant

'<Userform1 モジュール>
Private Sub ComboBox1_Change()
　myValue = Empty
　myValue = ComboBox1.Value
End Sub

Private Sub CommandButton1_Click()
UserForm2.Show
End Sub

'<Userform2 モジュール>
Private Sub ComboBox1_Change()
　If myValue = Empty Then
　　MsgBox "コンボボックス１を入力してください。"
　　Else
　　MsgBox "Userform1: " & myValue & vbCrLf & _
　　　　　　"Userform2: " & ComboBox1.Value
　'次の処理
　End If
　myValue = Empty
End Sub

お礼

Wendy02 さまいつもご丁寧なご回答ありがとうございます。

ご指摘にのっとっていろいろと試したのですが、今回はどうしてもフォームを1つにしたかったので下記のコードで解決しました。

If ComboBox1.ListIndex = -1 Then
MsgBox "コンボボックス１を入力してください"
ComboBox2.Enabled = True
ComboBox1.SetFocus
Else

今後ともよろしくお願いします。

回答No.2

oshietechodai

Private Sub ComboBox2_DropButtonClick()

If ComboBox1.ListIndex = -1 Then
　MsgBox "コンボボックス１を入力してください"
　ComboBox2.ListIndex = -1
End If

end　sub

でいいのでは？

お礼

oshietechodaiさま早速のご回答ありがとうございました。
今回は＃1さんの方法で解決しました。

ちなみに試してみたのですが、初期状態で入力があると　ComboBox2.ListIndex = -1は未入力の状態にできませんでした。

今後ともよろしくお願いします