准提部林

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


SearchData2.rar (76.35 KB)

下載次數: 5

2018-9-16 18:33

Qin

回復 41# 准提部林

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

下載 (79.12 KB)

2018-9-17 09:02

下載 (7.92 KB)

2018-9-17 09:02

准提部林

回復 42# Qin


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

Qin

回復 43# 准提部林


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

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

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

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

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

Test again.rar (48.38 KB)

下載次數: 4

2018-9-20 23:16

准提部林

回復 44# Qin


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

Qin

回復 45# 准提部林


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

准提部林

回復 46# Qin

沒問題的~~

下載 (28.03 KB)

2018-9-22 08:36

Qin

回復 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 年的資料也跑出了???       
       
麻煩你再幫我看一看…謝謝!!       

下載 (113.86 KB)

2018-9-23 01:20

New folder1.rar (61.15 KB)

下載次數: 2

2018-9-23 01:20

准提部林

回復 48# Qin


實在看不出原因, 或許日期格式有問題吧!

Qin

回復 49# 准提部林

准大
你給的提示, 我也去更改了多個日期格式
但是都是行不通…

後來, 嘗試只用上半句語法來執行, 想不到又可以哦!
xU.AutoFilter Field:=3, Criteria1:=">=" & Ur1(3)

也就是說, 鍵入 01/01/2016  它就只出現 2016 年至之後的資料 (雖然有些遺憾, 但至少, 是達到我想要的某部份需求)
我想唯有讓這下半句語法"Operator:=xlAnd, Criteria2:="<=" & Ur1(4)" 在一旁沉睡, 待找到厡因時, 才讓它重見天日.

因此, 請問准大,

1) 如果只用 "xU.AutoFilter Field:=3, Criteria1:=">=" & Ur1(3) " 這上半句語法, 在搜尋過程中, 對其他資料會不會有影響. (如: 資料搜尋出來不完整或搜尋速度緩慢等問題.)

2) 我用( .xls OR .xlsx) 共40萬筆資料搜尋時, 大概要花30秒的時間, 請問還可以加速嗎?

3) 在編號搜尋欄位, 例如編號是 " 20000350"  "11005710"  "10003210" 而我只需鍵入 " 2*350 " 或 " 11*5710"... 也可以把資料搜出來.
就好像 Excel 里的 find 功能, 只是不知道VBA 是否也可以做到?