帖子: 703
主題: 276
精華: 0
積分: 1005
點名: 1
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2024-5-29

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2012-4-27 09:01 | 只看該作者

關於VBA寫在工作表1和Module1內的寫法不同的地方是?(5/2，H大已解決)

本帖最後由 av8d 於 2012-5-2 16:01 編輯

目前出現一個問題~
工作表1打入CommandButton1_Click
以上執行沒問題

到了Module1內打入CommandButton1_Click
會跳出錯誤訊息視窗沒有定義這個Sub或Function

樓主熱帖

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 256
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-26

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

7^#

發表於 2012-5-2 11:59 | 只看該作者

回復 6# av8d
2010的工作表CodeName是中文字"工作表1"

Private Sub CommandButton1_Click()
MsgBox "工作表1!CommandButton1_Click"
End Sub

複製代碼

Sub Ex()
MsgBox "工作表1.CommandButton1_Click將被觸發"
Run "工作表1.CommandButton1_Click"
End Sub

複製代碼

學海無涯_不恥下問

TOP

av8d

大學生 Rank: 4

帖子: 703
主題: 276
精華: 0
積分: 1005
點名: 1
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2024-5-29

6^#

發表於 2012-5-2 11:35 | 只看該作者

回復 5# Hsieh

模組設定後，執行出現

執行階段錯誤'1004'
無法執行此巨集

我按下了說明~Excel 2010 開發人員參考說明及使用方法~但是不知道要按哪一個進去看說明!

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 256
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-26

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

5^#

發表於 2012-4-28 22:52 | 只看該作者

回復 1# av8d

工作表按鈕事件程序，因為CommandButton1是專屬於該工作表物件
所以在設計模式下雙擊該按鈕會自動在工作表模組新增
Private Sub CommandButton1_Click()程序
這是屬於私有程序，只有在該工作表範圍內作用
而可以設置快速鍵的程序是在一般模組內
要由一般模組內的程序來啟動工作表模組內的程序
必須透過Run 方法
例如:
Sheet1模組

Private Sub CommandButton1_Click()
MsgBox "Sheet1!CommandButton1_Click"
End Sub

複製代碼

Module1模組
Ex設快速鍵ctrl+n

Sub Ex()
MsgBox "Sheet1.CommandButton1_Click將被觸發"
Run "Sheet1.CommandButton1_Click"
End Sub

複製代碼

當按下鍵盤ctrl+n就會先出現對話訊息
"Sheet1.CommandButton1_Click將被觸發"
然後觸發Sheet1.CommandButton1_Click程序
出現對話訊息
"Sheet1!CommandButton1_Click"

學海無涯_不恥下問

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兔年全勤獎章

4^#

發表於 2012-4-28 13:14 | 只看該作者

回復 3# av8d
鍵盤的 F1 是說明鍵請再說清楚些

TOP

av8d

大學生 Rank: 4

帖子: 703
主題: 276
精華: 0
積分: 1005
點名: 1
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2024-5-29

3^#

發表於 2012-4-27 09:50 | 只看該作者

回復 2# GBKEE

G大~早安~再次感謝~

可是我寫下去的巨集是設定快捷鍵~然後去執行

也就是說我把它調整成鍵盤按下F1好了~他會幫我點那個按鈕@@

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兔年全勤獎章

2^#

發表於 2012-4-27 09:35 | 只看該作者

回復 1# av8d
會跳出錯誤訊息視窗  沒有定義這個Sub或Function
打入  SUB CommandButton1_Click 移動滑鼠後自動生成
Sub CommandButton1_Click()          ' 程式程序
End Sub

打入  Function CommandButton1_Click 移動滑鼠後自動生成
Function CommandButton1_Click() '函數程序
End Sub

TOP