BV7BW

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

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

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2021-3-24 18:28 | 只看該作者

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

各位新進.老師.大家好
我在網路上學習關鍵字查詢用法
其缺點是公式裸露.容易誤觸消除.
是否可改用VBA寫法
按鈕式查詢

關鍵字vba.zip (17.26 KB)

樓主熱帖

敏而好學,不恥下問

Farnsworth

中學生 Rank: 2

帖子: 50
主題: 9
精華: 0
積分: 65
點名: 1
作業系統: WIN10
軟體版本: OFFICE2016
閱讀權限: 20
註冊時間: 2015-6-2
最後登錄: 2024-11-17

46^#

發表於 2021-5-29 12:11 | 只看該作者

感谢各位大神，代码下载试试，支持努力。

TOP

BV7BW

中學生 Rank: 2

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

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

45^#

發表於 2021-5-25 14:02 | 只看該作者

回復 44# samwang

謝謝 s 大大

敏而好學,不恥下問

TOP

samwang

大學生 Rank: 4

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

44^#

發表於 2021-5-25 12:02 | 只看該作者

回復 43# BV7BW

已有加入解釋，請確認看看，謝謝。

關鍵字vba.2超連結0525.zip (982.5 KB)

TOP

BV7BW

中學生 Rank: 2

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

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

43^#

發表於 2021-5-25 08:05 | 只看該作者

回復 42# samwang

S 大大你好
了解感謝你幫忙
能再請你幫注解關鍵字VDA2超連結
謝謝你'

敏而好學,不恥下問

TOP

samwang

大學生 Rank: 4

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

42^#

發表於 2021-5-25 07:53 | 只看該作者

回復 41# BV7BW

不好意思，我的理解能力不好，版上有很多大大都很厲害，建議一個主題提問一個問題比較能了解需求，
也可以讓大家可以互相學習，感謝。

TOP

BV7BW

中學生 Rank: 2

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

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

41^#

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

本帖最後由 BV7BW 於 2021-5-24 22:49 編輯

回復 39# samwang

關鍵字vba.2超連結.zip (982.12 KB)

S大大  你好
"項目編號"對應.字體以改好.想說能改為以項目為連結格.未能找出需修改地方

   滑鼠指標是否可統一滾動至相同一格
   例.當點A102時滑鼠指標會在"I5"格.點"B211"時先滾動10欄滑鼠指標在"S14"格
例  Sub 項目表項目01()
   '

   ' 頂部及項目01 巨集
      Range("I4").Select
   ' 滑鼠位置
      ActiveWindow.ScrollColumn = 310
   ' 列數
      Range("I4").Select
   ' 滑鼠位置
      ActiveWindow.ScrollRow = 1
   ' 欄數
   ' 項目02須加上(ActiveWindow.SmallScroll ToRight:=10)(跳動格數)
      Range("I4").Select
   ' 滑鼠位置
   End Sub

   Sub 項目表項目02()
   ' 頂部及項目02 巨集
   ActiveWindow.ScrollColumn = 310
   Range("I4").Select
   ActiveWindow.SmallScroll ToRight:=10
   Range("S4").Select
   End Sub

"客戶訂購表"字體修改未能統一大小.滑鼠指標變色.因已有客戶連結程式不知如何加上
         變色之程式.
         滑鼠指標是否可指定欄位例如指定在"M欄"內才變色
         [M4:M4300].Interior.Color = xlNone是這段修改?
表單問題.客戶查詢是否可用表單方式

關鍵字vba.2超連結.zip (982.12 KB)