關鍵字查詢可改為VBA方式按鈕查詢 - Excel程式區

帖子: 234
主題: 19
精華: 0
積分: 276
點名: 0
作業系統: Windows XP
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2013-1-7
最後登錄: 2021-10-7

21^# 跳轉到 »

發表於 2021-3-30 08:45 | 只看該作者

回復 20# BV7BW
1.關鍵字查詢並沒有提到編號只會輸入"A",所以項編是以全相符比對
請將If a = X Or a.Offset(, 1) Like "*" & X & "*" Or a.Offset(, 2) = X Then
改為 If Join(Application.Transpose(Application.Transpose(a.Resize(, 3))), "") Like "*" & X & "*" Then '把Sheets(3) D~F欄字串合併做模糊比對
2.Sheets("工作表2").Range([b4], [b4].End(4).Resize(, 3)).ClearContents '清除資料
是依所提供的資料去寫的,如果實際工作表有不一樣請自行修改
3.工作表3中"A""B""C"欄是原提供資料就有的,程式中並無使用

TOP

BV7BW

中學生 Rank: 2

帖子: 200
主題: 22
精華: 0
積分: 234
點名: 177
作業系統: Vista
軟體版本: Office2003
閱讀權限: 20
性別: 男
來自: 高雄
註冊時間: 2020-4-14
最後登錄: 2026-9-28

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章論壇榮譽勳章論壇贊助勳章

22^#

發表於 2021-3-30 12:40 | 只看該作者

回復 21# jcchiang
謝謝 J 大大
我在測試一下再向你報告
謝謝你

敏而好學,不恥下問

TOP

BV7BW

中學生 Rank: 2

帖子: 200
主題: 22
精華: 0
積分: 234
點名: 177
作業系統: Vista
軟體版本: Office2003
閱讀權限: 20
性別: 男
來自: 高雄
註冊時間: 2020-4-14
最後登錄: 2026-9-28

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章論壇榮譽勳章論壇贊助勳章

23^#

發表於 2021-3-30 18:33 | 只看該作者

回復 21# jcchiang
J大大你好
經測試後結果完全可運作
再轉至實際工作表中一樣很順暢
有遇到1問題後來才知道原因
在c.Copy Sheets("工作表2").[B4].Resize(, 3)
是未填入資料所以會出現錯誤
現在知道用法.多增學會運用技巧

再次謝謝 J 大大指導謝謝你

敏而好學,不恥下問

TOP

jcchiang

中學生 Rank: 2

帖子: 234
主題: 19
精華: 0
積分: 276
點名: 0
作業系統: Windows XP
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2013-1-7
最後登錄: 2021-10-7

24^#

發表於 2021-3-31 08:26 | 只看該作者

回復 23# BV7BW

可以多加一個判斷,當C有資料才去執行資料寫入
If Not c Is Nothing Then c.Copy Sheets("工作表2").[B4].Resize(, 3)

TOP

BV7BW

中學生 Rank: 2

帖子: 200
主題: 22
精華: 0
積分: 234
點名: 177
作業系統: Vista
軟體版本: Office2003
閱讀權限: 20
性別: 男
來自: 高雄
註冊時間: 2020-4-14
最後登錄: 2026-9-28

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章論壇榮譽勳章論壇贊助勳章

25^#

發表於 2021-3-31 16:57 | 只看該作者

回復 24# jcchiang
謝謝 J 大大
更改好 .用起來比較順
謝謝你指導謝謝

敏而好學,不恥下問

TOP

BV7BW

中學生 Rank: 2

帖子: 200
主題: 22
精華: 0
積分: 234
點名: 177
作業系統: Vista
軟體版本: Office2003
閱讀權限: 20
性別: 男
來自: 高雄
註冊時間: 2020-4-14
最後登錄: 2026-9-28

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章論壇榮譽勳章論壇贊助勳章

26^#

發表於 2021-5-19 01:21 | 只看該作者

本帖最後由 BV7BW 於 2021-5-19 01:23 編輯

回復 24# jcchiang
J大大你好
上次關鍵字是否可在所查詢字欄中點其中1欄後.滑鼠指標可自動尋找到同一工作表相同字欄位上?
是否可行?

關鍵字vba.zip (118.14 KB)
項目對項目
客戶名稱對客戶名稱

關鍵字vba.zip (118.14 KB)

敏而好學,不恥下問

TOP

BV7BW

中學生 Rank: 2

帖子: 200
主題: 22
精華: 0
積分: 234
點名: 177
作業系統: Vista
軟體版本: Office2003
閱讀權限: 20
性別: 男
來自: 高雄
註冊時間: 2020-4-14
最後登錄: 2026-9-28

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章論壇榮譽勳章論壇贊助勳章

27^#

發表於 2021-5-19 10:05 | 只看該作者

回復 16# samwang
S大大你好
工作表4中
關於查詢字欄中是否可點其中1欄後滑鼠指標可自動尋找到同一工作表該所查詢字欄相同字欄位置?
而項目則以100項為1欄
列如A101到A200為F欄.B201至B300為P欄.以下類推到KL欄

關鍵字vba.zip (129.61 KB)

敏而好學,不恥下問

TOP

samwang

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2026-5-26

28^#

發表於 2021-5-19 10:27 | 只看該作者

回復 27# BV7BW

不好意思，不太能理解你的意思，可否請你解詳細一點，謝謝

TOP

BV7BW

中學生 Rank: 2

帖子: 200
主題: 22
精華: 0
積分: 234
點名: 177
作業系統: Vista
軟體版本: Office2003
閱讀權限: 20
性別: 男
來自: 高雄
註冊時間: 2020-4-14
最後登錄: 2026-9-28

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章論壇榮譽勳章論壇贊助勳章

29^#

發表於 2021-5-19 19:24 | 只看該作者

本帖最後由 BV7BW 於 2021-5-19 19:25 編輯

回復 28# samwang

s大大你好
謝謝你.
我用意是當關鍵字查詢後出現資料後.點任一項目後.該滑鼠座標會自尋到同一工作表中相同項目位置
列所查詢出"我"關鍵字後點上(項目欄)中"我"那一欄時.而滑鼠座標會到該工作表項目欄中"我"那一欄位置上
列點"我要找"哪一欄時.滑鼠座標會跑到該工作表項目欄中"我要找"那一欄位置上

關鍵字vba.zip (137.06 KB)

敏而好學,不恥下問

TOP

samwang

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2026-5-26

30^#

發表於 2021-5-19 20:25 | 只看該作者

回復 29# BV7BW

不好意思，這個已超出我的能力，可能要請其他大大解題了，謝謝

TOP

[發問] 關鍵字查詢可改為VBA方式按鈕查詢

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

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