[發問] 多條件查詢設定的問題

帖子: 146
主題: 41
精華: 0
積分: 229
點名: 307
作業系統: WIN10
軟體版本: 2010
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2011-6-21
最後登錄: 2024-12-20

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章論壇榮譽勳章論壇贊助勳章

2^#

發表於 2021-7-19 16:42 | 只看該作者

回復 1# dou10801 請教各位先進,表單多條件設定,如何設為,[空白條件]為全部,
原程式:If Cells(i, "A") = Trim(MB1) And Cells(i, "C") = Trim(MB2) And Cells(i, "E") = Val(MB3) Then    '搜尋
例,[市場]空白=表示查全部市場資料,[品種代號]=F1,[等級]=1,會變成:If  Cells(i, "C") = Trim(MB2) And Cells(i, "E") = Val(MB3) Then    '搜尋
例,[市場]空白=,[品種代號]=空白,[等級]=1,會變成:If  Cells(i, "E") = Val(MB3) Then    '搜尋
例,[市場]空白,[品種代號]=F1,[等級]=空白,會變成:If  Cells(i, "C") = Trim(MB2)  Then    '搜尋
三個條件都空白,表示查全部資料,謝謝.

杜小平

版主 Rank: 7 Rank: 7 Rank: 7

准提部林

帖子: 2839
主題: 10
精華: 0
積分: 2895
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-12-20

3^#

發表於 2021-7-19 18:33 | 只看該作者

回復 2# dou10801

可改用"排除法"
for i= 1 to 999
If Trim(MB1)<>"" and  Cells(i, "A") <> Trim(MB1) then goto i01
if Trim(MB2)<>"" and  Cells(i, "C") <> Trim(MB2) then goto i01
if Trim(MB3)<>"" and  Cells(i, "E") <> Val(MB3)  Then  goto i01
符合條件..do something...

i01: next i

samwang

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2024-12-18

4^#

發表於 2021-7-19 19:14 | 只看該作者

回復 1# dou10801

是要這樣嗎? 請測試看看，謝謝

多條件查詢1.zip (61.96 KB)

帖子: 146
主題: 41
精華: 0
積分: 229
點名: 307
作業系統: WIN10
軟體版本: 2010
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2011-6-21
最後登錄: 2024-12-20

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章論壇榮譽勳章論壇贊助勳章

5^#

發表於 2021-7-19 20:00 | 只看該作者

本帖最後由 dou10801 於 2021-7-19 20:01 編輯

回復 3# 准提部林 請教准提大師,因剛學vba還體會不出你提供的用法,是否指導能將[排除法]加入範本中讓小弟學習,感恩.＿

杜小平

n7822123

　暱稱: 阿龍

帖子: 406
主題: 8
精華: 0
積分: 453
點名: 0
作業系統: WINDOWS 7
軟體版本: 2007
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2015-2-7
最後登錄: 2021-7-31

6^#

發表於 2021-7-19 23:25 | 只看該作者

本帖最後由 n7822123 於 2021-7-19 23:31 編輯

回復 1# dou10801

反向思考可以用準大的排除法

要正向思考，可以學習用 "Like" 進行模糊比對

支援擴充N種條件

Dim SrhKey$, T$
For i = 1 To 3
  T = Trim(Controls("TextBox" & i).Text)
  SrhKey = SrhKey & "/" & IIf(T = "", "*", T)
Next i
For R = 2 To UBound(MA1)
  Key = "/" & Cells(R, "A") & "/" & Cells(R, "C") & "/" & Cells(R, "E")
  If Key Like SrhKey Then    '搜尋
'===========
'-----你的程式-----
'===========
  End If
Next R

程式是依需求寫的，需求表達不清楚
或者沒有上傳附件，愛莫能助

帖子: 146
主題: 41
精華: 0
積分: 229
點名: 307
作業系統: WIN10
軟體版本: 2010
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2011-6-21
最後登錄: 2024-12-20

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章論壇榮譽勳章論壇贊助勳章

7^#

發表於 2021-7-20 00:10 | 只看該作者

一個問題,感謝,准提部林, samwang, n7822123三位前輩相助,而且有三種不同方法,會一一好好學習,感恩感恩.

杜小平

帖子: 146
主題: 41
精華: 0
積分: 229
點名: 307
作業系統: WIN10
軟體版本: 2010
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2011-6-21
最後登錄: 2024-12-20

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章論壇榮譽勳章論壇贊助勳章

8^#

發表於 2021-7-23 12:11 | 只看該作者

回復 6# n7822123 請教n7822123大大,如果區段日期,要如何設定,感恩.

多條件查詢6.rar (28.94 KB)

杜小平

n7822123

　暱稱: 阿龍

帖子: 406
主題: 8
精華: 0
積分: 453
點名: 0
作業系統: WINDOWS 7
軟體版本: 2007
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2015-2-7
最後登錄: 2021-7-31

9^#

發表於 2021-7-24 00:37 | 只看該作者

本帖最後由 n7822123 於 2021-7-24 00:52 編輯

回復 8# dou10801

你的I欄並非正常的日期格式，是字串

正常的日期是可以加減運算的，Ex:  A = #7/24/2021# ,  Msgbox A+1 '2021/7/25

要先轉成日期格式，再比大小就好了

日期自 = Cells(2, "J")
日期止 = Cells(2, "K")
For R = 2 To UBound(MA1) + 1
T = Cells(R, "I")
日期Str = Left(T, 7) & "/" & Right(T, 2)
日期 = CDate(日期Str) '字串 => 日期
  If 日期 >= 日期自 And 日期 <= 日期止 Then '搜尋
'===========
'-----你的程式-----
'===========
  End If
Next

程式是依需求寫的，需求表達不清楚
或者沒有上傳附件，愛莫能助

帖子: 146
主題: 41
精華: 0
積分: 229
點名: 307
作業系統: WIN10
軟體版本: 2010
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2011-6-21
最後登錄: 2024-12-20

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章論壇榮譽勳章論壇贊助勳章

10^#

發表於 2021-7-24 10:02 | 只看該作者

回復 9# n7822123
感謝指點，日期判斷+link比對，達成我須求感恩，原先以為link可以區間判斷日期，先在懂了，謝謝。

杜小平