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

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

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

17^#

發表於 2021-8-15 12:10 | 只看該作者

回復 16# hcm19522 感謝hcm19522大大不用VBA也能達成,好好學習.

杜小平

https://blog.xuite.net/hcm19522/twblog/589937981

hcm19522

大學生 Rank: 4

帖子: 1387
主題: 4
精華: 0
積分: 1397
點名: 0
作業系統: WIN
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2015-9-11
最後登錄: 2024-11-22

熱烈參與勳章

16^#

發表於 2021-8-6 17:12 | 只看該作者

google"EXCEL迷" blog 或google網址:https://hcm19522.blogspot.com/

版主 Rank: 7 Rank: 7 Rank: 7

准提部林

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

15^#

發表於 2021-8-3 20:30 | 只看該作者

回復 14# dou10801

A20~A60

T=arr(i, 1): V=val(mid(T,2))
if left(T, 1) <> "A" or V < 20 or V > 60 then goto i01

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

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

14^#

發表於 2021-8-3 18:05 | 只看該作者

回復 12# 准提部林

明细.rar (8.79 KB)

杜小平

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

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

13^#

發表於 2021-8-3 17:59 | 只看該作者

回復 12# 准提部林 請教准提大大,如果是字串如何下條件,[例]客戶編號從A01-A100,我要找A20-A60的資料,要怎麼判斷,感恩.

杜小平

版主 Rank: 7 Rank: 7 Rank: 7

准提部林

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

12^#

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

回復 11# dou10801

簡單做一個:
1) 只輸入開始日期:取出>=指定日期資料
2) 只輸入結束日期:取出<=指定日期資料
3) 兩種都有:取出>=及<=區間資料, 注意:兩個日期不可倒錯, 即結束日期不可小于開始日期; 若兩個日期相同=只取同一天資料
4) 兩種都空:不比較日期, 視為日期都符合, 僅比對其它條件

Sub TEST()
Dim Arr, D1, D2, X, i&, j%, N&
Sheets(2).UsedRange.ClearContents
D1 = [j2]: D2 = [k2]: X = [L2:N2]
Arr = Range([i1], [a65536].End(xlUp))
For i = 2 To UBound(Arr)
If IsDate(D1) Then If CDate(Arr(i, 9)) < D1 Then GoTo i01
If IsDate(D2) Then If CDate(Arr(i, 9)) > D2 Then GoTo i01
For j = 1 To 3
If X(1, j) <> "" And X(1, j) <> Arr(i, Mid(135, j, 1)) Then GoTo i01
Next j
N = N + 1
For j = 1 To UBound(Arr, 2): Arr(N + 1, j) = Arr(i, j): Next
i01: Next i
If N > 0 Then Sheets(2).[a1].Resize(N + 1, UBound(Arr, 2)) = Arr
End Sub

'============================

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

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

11^#

發表於 2021-7-25 13:10 | 只看該作者

回復 3# 准提部林 學習准提部林大師的排除法,增加兩個IF判斷日期區間,也可達成,區期日期+多條件判斷,感恩.

杜小平

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

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

10^#

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

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

杜小平

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

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