返回列表 上一主題 發帖

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

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

回復 21# jcchiang
謝謝 J 大大
我在測試一下再向你報告
謝謝你
敏而好學,不恥下問

TOP

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

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

TOP

回復 23# BV7BW

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

TOP

回復 24# jcchiang
謝謝 J 大大
更改好 .用起來比較順
謝謝你指導 謝謝
敏而好學,不恥下問

TOP

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

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

關鍵字vba.zip (118.14 KB)

敏而好學,不恥下問

TOP

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

關鍵字vba.zip (129.61 KB)

敏而好學,不恥下問

TOP

回復 27# BV7BW


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

TOP

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

回復 28# samwang

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

TOP

回復 29# BV7BW


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

TOP

        靜思自在 : 我們要做好社會的環保,也要做好內心的環保。
返回列表 上一主題