返回列表 上一主題 發帖

VBA 資料搜尋問題

回復 47# 准提部林

准大,        
       
因為第2個檔有問題,根本搜尋不到資料, 唯有放棄.       
我拿回你給我的第1個檔, 再按照第2個檔的程式碼敲打進去,       
發現這段有問題       
"  xU.AutoFilter Field:=3, Criteria1:=">=" & Ur1(3), Operator:=xlAnd, Criteria2:="<=" & Ur1(4)  "       
只要不寫上這段, 就可以使用.       
但日期的搜尋功能就不管用了       
例: 填上 From Date    01/ 01/2017     to Date    "Today()"       
但它 2015 - 2016 年的資料也跑出了???       
       
麻煩你再幫我看一看…謝謝!!       


New folder1.rar (61.15 KB)

TOP

本帖最後由 准提部林 於 2018-9-22 08:40 編輯

回復 46# Qin

沒問題的~~

TOP

本帖最後由 Qin 於 2018-9-21 22:53 編輯

回復 45# 准提部林


     以品名"楊桃"為例,雙擊觸發, 告之都是"找不到符合的資料!" (.xls)

TOP

回復 44# Qin


你所謂的不能執行, 是指會錯誤中斷(要看程式碼錯在哪一行)?  還是抓不到資料?
我這測是可以(.xls),

TOP

回復 43# 准提部林


准大, 想請你再幫我看一看…
我再次測試,
你第一次給的程式碼, 不論是 Data.xls  或 Data.xlsx 都可以執行

後來,在我要求增加2項玏能后:

1) 日期排序
2) 增加日期搜尋玏能

不論是 Data.xls 或 Data.xlsx 都不能執行.

在此附上2個 xls 檔, 希望可以獲得正確的答案. 謝謝!

Test again.rar (48.38 KB)

TOP

回復 42# Qin


我沒有新版本的EXCEL,
請其他大大是否可測一下, 修改OPEN程式碼~

TOP

回復 41# 准提部林

不知問題出在那里? 為何還是不行?

TOP

本帖最後由 准提部林 於 2018-9-16 18:35 編輯

xN = "Data.xls"  >> xN = "Data.xlsx"  
還有 open 的路徑是錯的, mybook.path 要清掉,
檔案無法打開, 自行去找解決


SearchData2.rar (76.35 KB)

TOP

回復 39# 准提部林

請參考

TOP

回復 38# Qin

1) Data 檔資料持續增加中, 在有新資料更新才會打開更新 (有用密碼鎖上的 " 1234") , 所以希望在 使用 Search Data檔搜尋資料時,  Data 檔是不需要打開的
 _data是以〔唯讀〕開啟的,並不影響原檔自己的資料
2) 希望搜尋結果所呈現的 "Date" 是由現今的年份至較久遠的年份...
 _什麼意思???
3) 臨時想起, 想增加1個"日期"搜尋功能, 請参考 Search Data檔
 _如果日期都不輸入,如何篩?
 _三條件不輸入,只有日期,如何篩?

TOP

        靜思自在 : 受人點水之恩,須當湧泉以報。
返回列表 上一主題