Listboxについての質問

いつもお世話になっております
いろいろ検索などしましたが、
わかりませんでした。

内容としては、リストボックス1・2・3
とありそのリストボックス1　選択1つ
　　　　　リストボックス2　選択1つ
　　　　　リストボックス3　選択1つ
されたらコマンドボタンを表示させるには
どうしたらよいですか。

わかる方おしえてくれませんでしょうか

画像も添付いたしました。

リストボックスは一つしか選択できないように
しています。

よろしくお願いいたします。

質問者からの補足コメント

• 

  いつも有難うございます。
  教えて下さい。
  Private Sub ListBox3_Click()
  Call chListBox　　　　　　　<------------これはどういう意味でしょうか
  End Sub
  
  Private Sub chListBox() <------------これはどういう意味でしょうか

  No.2の回答に寄せられた補足コメントです。 補足日時：2020/07/21 07:45

• 

  わかりました。
  有難うございます。

    補足日時：2020/07/21 08:03

No.1 回答者： Qchan1962 回答日時： 2020/07/20 23:59

こんばんは、

実行したいListboxまたは、すべてのListboxのClickに

Private Sub ListBox3_Click()
　If ListBox1.Text <> "" And ListBox2.Text <> "" And ListBox3.Text <> "" Then
　　CommandButton1.Visible = True
　End If
End Sub
と言うのはどうでしょう。

勿論
Private Sub UserForm_Initialize()

CommandButton1.Visible = False

この回答へのお礼

有難うございます。うまくいきました。

お礼日時：2020/07/21 07:54

No.2 ベストアンサー 回答者： めぐみん_ 回答日時： 2020/07/21 06:24

方法は色々ありますけど、コマンドボタンを『無効化⇒有効化』とする案。

Private Sub UserForm_Initialize()

CommandButton1.Enabled = False

End Sub

Private Sub ListBox1_Click()
Call chListBox
End Sub

Private Sub ListBox2_Click()
Call chListBox
End Sub

Private Sub ListBox3_Click()
Call chListBox
End Sub

Private Sub chListBox()
Dim con As Control
Dim lb_count As Integer

lb_count = 0

For Each con In Me.Controls
If TypeName(con) = "ListBox" Then
If con.ListIndex > -1 Then lb_count = lb_count + 1
End If
Next

If lb_count = 3 Then ' ListBox が３個なので 3
CommandButton1.Enabled = True
Else
CommandButton1.Enabled = False
End If

End Sub

この回答へのお礼

いつも有難うございます。
うまくいきました。

お礼日時：2020/07/21 07:55

No.3 回答者： めぐみん_ 回答日時： 2020/07/22 19:32

あれ？

こちらの質問は解決で宜しいのでしょうか？

この回答へのお礼

ありがとうございました。

お礼日時：2020/07/23 21:25