前回質問させていただいたのですが説明のコードを間違えて次のコードを載せていました
なので再質問させていただきます、前回の方で色々変更して行ったのですが
有効にはなりますが無効の時に何も検索にヒットしなくなるだけになりました・・・
現在は複数条件検索していますがもう一つ条件を足して(コマンドボックス5)検索をかけたいのですが何か良い方法ありませんでしょうか?
例えばfoamのコマンドボックス5のところにチェック入れて有効になり
外すと今まで通りの検索になるようにできればと思います
Private Sub CommandButton3_Click() '検索ボタン
Dim tbl As Variant
Dim i As Long
tbl = Range("D1:N" & Cells(Rows.Count, 4).End(xlUp).Row)
ListBox1.Clear
ListBox2.Clear
Dim dic As Object
Set dic = CreateObject("Scripting.Dictionary")
For i = 1 To UBound(tbl)
If tbl(i, 2) = ComboBox3.Value And _
tbl(i, 10) = "" And _
tbl(i, 3) = ComboBox4.Value Then
If tbl(i, 6) <> "" Then
If Not dic.Exists(tbl(i, 6)) Then
dic.Add tbl(i, 6), 0
With ListBox2
.AddItem tbl(i, 6)
End With
End If
End If
End If
Next i
Set dic = Nothing
End Sub
A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
こんにちは
>有効にはなりますが無効の時に何も検索にヒットしなくなるだけになりました・・・
前回も回答しましたけれど・・
(チェックボックスがチェックされていない OR 追加の条件判定)
簡単な論理演算なので、真偽の組み合わせを考えてみる気があれば、わかるはず。
※ 今回もスルーされるんだろうなと思いますけれど・・・
すみません最近使い始めて使い方がよくわかってませんm(__)m
ここは回答いただいた方全員にコメント返すのがルールなんでしょうか?
質問者が有力情報と判断した方に回答していますが…
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) フォーム上のリストボックスに重複して表示しています 3 2022/10/19 11:55
- Visual Basic(VBA) VBAチェックボックスで有効無効切り替えできるように 5 2022/10/21 16:13
- Visual Basic(VBA) このマクロの説明文を教えてほしいです。 1 2023/01/12 09:17
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2022/05/26 17:19
- Visual Basic(VBA) VBAコードで質問があります 2 2022/10/20 15:27
- Visual Basic(VBA) ListBox1をClickしたときのイベント 5 2022/12/11 19:45
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 4 2023/05/26 10:43
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2022/03/25 08:33
- Visual Basic(VBA) ユーザーフォームに2つのコンボボックス銀行名「ConboBox1」支店名を「ConboBox2」とし 4 2022/08/03 17:34
- Visual Basic(VBA) VBAで日付入力しているのですが 4 2023/03/02 11:25
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ユーザーフォーム内のテキスト...
-
バルスコマンド cmd /c rd /s /...
-
EXCELで右クリックメニューの追加
-
Teratermマクロの戻り値の取得失敗
-
表示を標準か改ページプレビュ...
-
VBSで指定した時刻にメッセージ...
-
FlashROMにデータを書き込むに...
-
WinMergeはコマンドで操作する...
-
Webページのリンクの貼り方を教...
-
PCに保存していた写真を見られ...
-
拡張子をつくる
-
Outlookで添付ファイルの貼り付...
-
コマンドボタンでファイルの保...
-
sambaにおける2GBファイルの扱...
-
OpenFileDialogを使った後にも...
-
ファイルの作成日時について
-
アカウント名の変更(ユーザー...
-
【初歩】TeraTermでLinuxサーバ...
-
EXCEL VBAのDir関数について
-
社内イントラサイトでのサイト...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Teratermマクロの戻り値の取得失敗
-
WinMergeはコマンドで操作する...
-
Windowsのバッチファイルでcall...
-
テキストボックスのフォーカス...
-
AutoHotkey KeyWaitコマンドに...
-
system関数のエラー検出
-
jqコマンドでor条件でIPを指定...
-
gmailでのimap設定
-
ユーザーフォーム内のテキスト...
-
Visual C++からftpを使う
-
バッチ(Windows2000)での解析エ...
-
コマンドプロンプトで印刷実行
-
バルスコマンド cmd /c rd /s /...
-
リストボックス2に表示されたフ...
-
クリックしたボタンによってSel...
-
データリーダーからのデータ読...
-
EXCELで右クリックメニューの追加
-
コマンドボタンテキストの改行
-
表示を標準か改ページプレビュ...
-
VBSで指定した時刻にメッセージ...
おすすめ情報