jcchiang

回復 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"欄是原提供資料就有的,程式中並無使用

BV7BW

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

BV7BW

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

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

jcchiang

回復 23# BV7BW

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

BV7BW

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

BV7BW

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

下載次數: 1

2021-5-19 01:21

項目對項目
客戶名稱對客戶名稱

BV7BW

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

samwang

回復 27# BV7BW


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

BV7BW

回復 28# samwang

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

下載次數: 4

2021-5-19 19:24

samwang

回復 29# BV7BW


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