VBA 資料搜尋問題

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

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

41^# 跳轉到 »

發表於 2018-9-16 18:33 | 只看該作者

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

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

SearchData2.rar (76.35 KB)

TOP

Qin

中學生 Rank: 2

帖子: 207
主題: 61
精華: 0
積分: 270
點名: 0
作業系統: Vista
軟體版本: office2003
閱讀權限: 20
性別: 女
註冊時間: 2011-3-20
最後登錄: 2023-6-25

42^#

發表於 2018-9-17 09:03 | 只看該作者

回復 41# 准提部林

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

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

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

43^#

發表於 2018-9-17 09:48 | 只看該作者

回復 42# Qin

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

TOP

Qin

中學生 Rank: 2

帖子: 207
主題: 61
精華: 0
積分: 270
點名: 0
作業系統: Vista
軟體版本: office2003
閱讀權限: 20
性別: 女
註冊時間: 2011-3-20
最後登錄: 2023-6-25

44^#

發表於 2018-9-20 23:16 | 只看該作者

回復 43# 准提部林

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

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

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

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

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

Test again.rar (48.38 KB)

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

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

45^#

發表於 2018-9-21 10:03 | 只看該作者

回復 44# Qin

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

TOP

Qin

中學生 Rank: 2

帖子: 207
主題: 61
精華: 0
積分: 270
點名: 0
作業系統: Vista
軟體版本: office2003
閱讀權限: 20
性別: 女
註冊時間: 2011-3-20
最後登錄: 2023-6-25

46^#

發表於 2018-9-21 22:51 | 只看該作者

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

回復 45# 准提部林

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

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

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

47^#

發表於 2018-9-22 08:37 | 只看該作者

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

回復 46# Qin

沒問題的~~

TOP

Qin

中學生 Rank: 2

帖子: 207
主題: 61
精華: 0
積分: 270
點名: 0
作業系統: Vista
軟體版本: office2003
閱讀權限: 20
性別: 女
註冊時間: 2011-3-20
最後登錄: 2023-6-25

48^#

發表於 2018-9-23 01:21 | 只看該作者

回復 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

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

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

49^#

發表於 2018-9-23 10:33 | 只看該作者

回復 48# Qin

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

TOP

Qin

中學生 Rank: 2

帖子: 207
主題: 61
精華: 0
積分: 270
點名: 0
作業系統: Vista
軟體版本: office2003
閱讀權限: 20
性別: 女
註冊時間: 2011-3-20
最後登錄: 2023-6-25

50^#

發表於 2018-9-25 23:18 | 只看該作者

回復 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 是否也可以做到?

TOP

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]