返回列表 上一主題 發帖

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

n7822123
　暱稱: 阿龍

中學生Rank: 2

帖子
406 
主題
8 
精華
0 
積分
453 
點名
0  
作業系統
WINDOWS 7 
軟體版本
2007 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2015-2-7 
最後登錄
2021-7-31 
1# 跳轉到 »
發表於 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
程式是依需求寫的，需求表達不清楚
或者沒有上傳附件，愛莫能助

TOP

n7822123
　暱稱: 阿龍

中學生Rank: 2

帖子
406 
主題
8 
精華
0 
積分
453 
點名
0  
作業系統
WINDOWS 7 
軟體版本
2007 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2015-2-7 
最後登錄
2021-7-31 
2#
發表於 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
程式是依需求寫的，需求表達不清楚
或者沒有上傳附件，愛莫能助

TOP

        靜思自在 : 做該做的事是智慧，做不該做的事是愚癡。
返回列表 上一主題