帖子: 76
主題: 19
精華: 0
積分: 145
點名: 0
作業系統: win xp
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2010-5-24
最後登錄: 2014-6-24

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2011-7-19 12:28 | 只看該作者

二個巨集程式問題

1.請問我的巨集程式中有很多個CommandButton (1 2 3)，每個CommandButton下面都有個別巨集程式
現在我要做一個CommandButton4 執行後可以依序執行CommandButton1→CommandButton2→CommandButton3巨集程式？
(在不使用到模組的情況下)
2.如何設計巨集程式來自動啟動excel 樞紐分析表中"更新資料"的功能
以上請各位先進協助~~謝謝

樓主熱帖

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^#

發表於 2011-7-19 16:22 | 只看該作者

回復 1# lone_tiger0303

Private Sub CommandButton4_Click()
CommandButton1_Click
CommandButton2_Click
CommandButton3_Click
End Sub
'***************
Private Sub Workbook_Open()
'可 2 選 1
'Me.RefreshAll '更新指定活頁簿中所有外部資料範圍和樞紐分析表報表。
'Sheet1.QueryTables(1).Refresh '可更新指的工作表(Sheet1)中的第1個查詢表
End Sub

複製代碼

TOP

StanleyVic

中學生 Rank: 2

帖子: 47
主題: 6
精華: 0
積分: 74
點名: 0
作業系統: Windows XP
軟體版本: Office 2003
閱讀權限: 20
性別: 男
來自: Macau
註冊時間: 2011-6-15
最後登錄: 2016-7-4

3^#

發表於 2011-7-19 17:35 | 只看該作者

我也和樓主出現同一樣的問題.
我還一直用 : Call CommandButton1_Click
Y-Y " 怪不得沒實現不了.

學習了.謝謝~

NeverTry , NeverNo !

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^#

發表於 2011-7-19 19:52 | 只看該作者

回復 3# StanleyVic

Call 陳述示 VBA說明
當您要呼叫一個程序時，並不一定要使用 Call 關鍵字。但如果您使用Call 關鍵字來呼叫一個需要引數的程序，那麼 argumentlist 也必須要加上括號。如果省略了 Call 關鍵字，那麼也必須要省略括號。如果您使用 Call 語法來呼叫內建函數或使用者定義函數，則函數的傳回值將會無法傳回。

Y-Y " 怪不得沒實現不了
可能是你呼叫不是同模組的程序, 且如呼叫的是物件模組,前面要指明物件的名稱如 Call Sheet1.Ex 或 Sheet1.Ex

TOP

StanleyVic

中學生 Rank: 2

帖子: 47
主題: 6
精華: 0
積分: 74
點名: 0
作業系統: Windows XP
軟體版本: Office 2003
閱讀權限: 20
性別: 男
來自: Macau
註冊時間: 2011-6-15
最後登錄: 2016-7-4

5^#

發表於 2011-7-20 10:26 | 只看該作者

本帖最後由 StanleyVic 於 2011-7-20 10:27 編輯

請問...如果代碼是以下例如, 其中一個被引用是有屬性(DblClick)

Private Sub CommandButton1_Click()
MsgBox ("AA")
End Sub

Private Sub CommandButton2_Click()
MsgBox ("BB")
End Sub

Private Sub CommandButton3_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
MsgBox ("CC")
End Sub

'~~~ 現在開始引用 Button1~3 ..

Private Sub CommandButton4_Click()
CommandButton1_Click
CommandButton2_Click

'以下兩個我都試過.都不行. 這種情況.我又要如何才實現..謝謝大大建議一下.
'CommandButton3_Click
'CommandButton3_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
End Sub

NeverTry , NeverNo !

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^#

發表於 2011-7-20 12:26 | 只看該作者

回復 5# StanleyVic
Sheet1: Sub CommandButton1_Click() '公用
Call Sheet1.CommandButton1_Click
Sheet1: Private Sub CommandButton1_Click() '私用
Run "Sheet1.CommandButton1_Click"
'CommandButton3_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
這是 CommandButton發生在使用者將指標移至物件上，按兩下滑鼠鍵時。的事件程序

TOP

StanleyVic

中學生 Rank: 2

帖子: 47
主題: 6
精華: 0
積分: 74
點名: 0
作業系統: Windows XP
軟體版本: Office 2003
閱讀權限: 20
性別: 男
來自: Macau
註冊時間: 2011-6-15
最後登錄: 2016-7-4

7^#

發表於 2011-7-20 14:31 | 只看該作者

回復 6# GBKEE

謝謝大大的說明.我開始了解和明白了.
Private Sub CommandButton3_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
' 它是屬私用的, 再加上本身我之前己經定了它的屬性為 ( DblClick ), 所以就不能被調用出來 !

又上了一課 ^,^" thx~

NeverTry , NeverNo !

TOP

lone_tiger0303

中學生 Rank: 2

帖子: 76
主題: 19
精華: 0
積分: 145
點名: 0
作業系統: win xp
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2010-5-24
最後登錄: 2014-6-24

8^#

發表於 2011-8-15 12:41 | 只看該作者

1.請問我的巨集程式中有很多個CommandButton (1 2 3)，每個CommandButton下面都有個別巨集程式，現在我要做一個CommandButton4 執行後可以依序執行commandButton1→CommandButton2→CommandButton3巨集程式？(在不使用到模組的情況下)
針對第一個問題是指再同一個檔案內
但如果再不同檔案時要如何設定呢

TOP

oobird