如何將Worksheet_Change的變數宣告，改成在一般模組使用? - Excel程式區

jackson7015

中學生 Rank: 2

帖子: 233
主題: 53
精華: 0
積分: 292
點名: 0
作業系統: WinXp
軟體版本: 2010
閱讀權限: 20
性別: 男
註冊時間: 2012-1-6
最後登錄: 2024-3-8

論壇贊助勳章

8^# 跳轉到 »

發表於 2014-5-5 16:09 | 只看該作者

回復 GBKEE
附上檔案，再請GBKEE版大看看

參考資料庫.rar (992.52 KB)

TOP

jackson7015

中學生 Rank: 2

帖子: 233
主題: 53
精華: 0
積分: 292
點名: 0
作業系統: WinXp
軟體版本: 2010
閱讀權限: 20
性別: 男
註冊時間: 2012-1-6
最後登錄: 2024-3-8

論壇贊助勳章

7^#

發表於 2014-5-5 09:05 | 只看該作者

回復 6# GBKEE

GBKEE版大，想再次麻煩一下
因為我的表達好像有問題..

我想直接將1樓的程式碼
不在Worksheet內編寫，而是編寫在Module

現在的問題是只要一改變儲存格[A5]的內容，就會自動執行1樓的程式碼
我想改成手動方式執行，手動執行 Sub 查詢表格() 巨集才會執行

不曉得這樣解，GBKEE版大是否比較好理解
感謝您再次的回覆

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

6^#

發表於 2014-5-3 15:59 | 只看該作者

回復 5# jackson7015
是這樣嗎?

Sub 清除查詢表格()
' 清除查詢表格巨集
With Sheets("查詢用表單")
.Range("$B5:$BR301").ClearContents
.Range("A5").Select
Run "Module1.Worksheet_Change", .[A5]
'你已將 Worksheet_Change的編寫，改成在Module1模組
End With
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

jackson7015

中學生 Rank: 2

帖子: 233
主題: 53
精華: 0
積分: 292
點名: 0
作業系統: WinXp
軟體版本: 2010
閱讀權限: 20
性別: 男
註冊時間: 2012-1-6
最後登錄: 2024-3-8

論壇贊助勳章

5^#

發表於 2014-5-2 16:00 | 只看該作者

回復 4# GBKEE

GBKEE版大，對不起，沒有陳述清楚需要的部分

宣告在Worksheet_Change的部分，會下列的巨集啟動，儲存格只要一變動，就會自動啟動宣告部分

Sub 清除查詢表格()
' 清除查詢表格巨集
With Sheets("查詢用表單")
Range("$B5:$BR301").Select
Selection.ClearContents
Range("A5").Select
End With
End Sub

複製代碼

我想改成只用巨集手動去搜索，這樣才不會有儲存格有變動的時候，就啟動Worksheet_Change的部分
是否能將Worksheet_Change程式碼，改成在Module1模組的編程
自己研究了幾天，還是不會把在Worksheet_Change的編寫，改成在Module1模組中...

自己資質愚鈍，想麻煩GBKEE版大能否幫忙修正編寫
感謝不盡..

TOP

GBKEE