12345
返回列表 上一主題 發帖

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

jcchiang

帖子
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

帖子
199 
主題
22 
精華
0 
積分
233 
點名
226  
作業系統
Vista 
軟體版本
Office2003 
閱讀權限
20 
性別
男 
來自
高雄 
註冊時間
2020-4-14 
最後登錄
2024-11-22 

2023年全勤獎章2022虎年全勤獎章論壇榮譽勳章論壇贊助勳章
22#
發表於 2021-3-30 12:40 | 只看該作者
回復 21# jcchiang
謝謝 J 大大
我在測試一下再向你報告
謝謝你
敏而好學,不恥下問

TOP

BV7BW

帖子
199 
主題
22 
精華
0 
積分
233 
點名
226  
作業系統
Vista 
軟體版本
Office2003 
閱讀權限
20 
性別
男 
來自
高雄 
註冊時間
2020-4-14 
最後登錄
2024-11-22 

2023年全勤獎章2022虎年全勤獎章論壇榮譽勳章論壇贊助勳章
23#
發表於 2021-3-30 18:33 | 只看該作者
回復 21# jcchiang
J大大你好
經測試後結果完全可運作
再轉至實際工作表中一樣很順暢
有遇到1問題後來才知道原因
在c.Copy Sheets("工作表2").[B4].Resize(, 3)
是未填入資料所以會出現錯誤
現在知道用法.多增學會運用技巧

再次謝謝   J 大大指導 謝謝你
敏而好學,不恥下問

TOP

jcchiang

帖子
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

帖子
199 
主題
22 
精華
0 
積分
233 
點名
226  
作業系統
Vista 
軟體版本
Office2003 
閱讀權限
20 
性別
男 
來自
高雄 
註冊時間
2020-4-14 
最後登錄
2024-11-22 

2023年全勤獎章2022虎年全勤獎章論壇榮譽勳章論壇贊助勳章
25#
發表於 2021-3-31 16:57 | 只看該作者
回復 24# jcchiang
謝謝 J 大大
更改好 .用起來比較順
謝謝你指導 謝謝
敏而好學,不恥下問

TOP

BV7BW

帖子
199 
主題
22 
精華
0 
積分
233 
點名
226  
作業系統
Vista 
軟體版本
Office2003 
閱讀權限
20 
性別
男 
來自
高雄 
註冊時間
2020-4-14 
最後登錄
2024-11-22 

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

帖子
199 
主題
22 
精華
0 
積分
233 
點名
226  
作業系統
Vista 
軟體版本
Office2003 
閱讀權限
20 
性別
男 
來自
高雄 
註冊時間
2020-4-14 
最後登錄
2024-11-22 

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

帖子
976 
主題
7 
精華
0 
積分
1018 
點名
0  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
50 
性別
男 
註冊時間
2013-4-19 
最後登錄
2024-10-30 
28#
發表於 2021-5-19 10:27 | 只看該作者
回復 27# BV7BW


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

TOP

BV7BW

帖子
199 
主題
22 
精華
0 
積分
233 
點名
226  
作業系統
Vista 
軟體版本
Office2003 
閱讀權限
20 
性別
男 
來自
高雄 
註冊時間
2020-4-14 
最後登錄
2024-11-22 

2023年全勤獎章2022虎年全勤獎章論壇榮譽勳章論壇贊助勳章
29#
發表於 2021-5-19 19:24 | 只看該作者
本帖最後由 BV7BW 於 2021-5-19 19:25 編輯

回復 28# samwang

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

TOP

samwang

帖子
976 
主題
7 
精華
0 
積分
1018 
點名
0  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
50 
性別
男 
註冊時間
2013-4-19 
最後登錄
2024-10-30 
30#
發表於 2021-5-19 20:25 | 只看該作者
回復 29# BV7BW


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

TOP

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