No.2ベストアンサー
- 回答日時:
方法は色々ありますけど、コマンドボタンを『無効化⇒有効化』とする案。
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個なので 3
CommandButton1.Enabled = True
Else
CommandButton1.Enabled = False
End If
End Sub
No.1
- 回答日時:
こんばんは、
実行したい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
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルについて教えてください。 2 2023/06/14 11:11
- HTML・CSS HTMLのフォームについてお尋ねします 1 2022/12/03 21:47
- JavaScript jsで診断コンテンツのページ内切り替えについて 1 2023/04/14 17:31
- JavaScript HTML,JS初心者です。 2つのselectボックスが有り その選択の組み合わせにより 指定した文 3 2022/03/31 23:35
- Excel(エクセル) VLOOKUP が機能しない、その原因は何 ? 8 2022/10/19 12:06
- Excel(エクセル) Excelで質問です。 詳細(写真) ①黄色の部分を全てプルダウンを設定する。 ②リストはG列 ③リ 1 2023/06/16 21:54
- Excel(エクセル) IF 関数で「〇〇 という文字を含む場合」の分岐処理で表示された数字はSUMで数字集計できますか? 3 2022/08/02 16:29
- その他(趣味・アウトドア・車) DVDの再生話が選択できません!! 2 2022/09/08 00:50
- Excel(エクセル) 【Excel】指定のセル内容を基に別シートのセルを検索して選択する【VBA】 1 2022/06/16 16:16
- Mac OS Mac iPhoneの連絡帳の大量のリストを削除したい 1 2023/05/12 23:30
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
バッチファイルでキー操作を行う。
-
ttlで戻り値を取得する方法
-
VBユーザーフォームで時間入力
-
コマンドプロンプトが実行中か...
-
コンボボックス(最終行取得)
-
[WSH|JS|VB] telnetコマンドの...
-
コマンドプロンプトで表示が多...
-
TEXの表の位置が・・・
-
RTX1100の削除コマンド
-
Excel VBA コマンドライン(MS-...
-
別のユーザーフォームのコマン...
-
VBA でshell関数を使ってコマン...
-
HEXから元に戻すには
-
Tera Term Proに関する質問です。
-
【C#】 DOSコマンドを使いたい
-
コマンドプロンプトですべてのU...
-
telnetクライアントを模したプ...
-
[ASP]BASICで使えたような「G...
-
N88 BASIC リスト表示方法
-
VBでネットワーク上のコンピュ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
バッチファイルでキー操作を行う。
-
コマンドプロンプトが実行中か...
-
コマンドプロンプトで表示が多...
-
ttlで戻り値を取得する方法
-
別のユーザーフォームのコマン...
-
VBユーザーフォームで時間入力
-
Tera Term Proに関する質問です。
-
コマンドプロンプトですべてのU...
-
コマンドキーがないんですけど...
-
TEXの表の位置が・・・
-
ルーターにつながっている全て...
-
デフォルトのショートカットキ...
-
dosバッチ起動後、画面を閉じな...
-
文字の点滅はどうやるのですか?
-
EEPROMのデータの初期化について
-
RTX1100の削除コマンド
-
JP1起動バッチについて
-
コンボボックス(最終行取得)
-
makeコマンドのエラー
-
ディスクの空き容量を取得する...
おすすめ情報
いつも有難うございます。
教えて下さい。
Private Sub ListBox3_Click()
Call chListBox <------------これはどういう意味でしょうか
End Sub
Private Sub chListBox() <------------これはどういう意味でしょうか
わかりました。
有難うございます。