標題: [發問] 跨UserForm執行CommandButton [打印本頁]

---

作者: boyao    時間: 2012-10-7 02:29     標題: 跨UserForm執行CommandButton

請問 我想要在UserForm2內的CommandButton_Click
執行UserForm1內的CommandButton1_Click
有沒有較簡單的指令寫法?

或者只能重新在UserForm2重設相同指令?

---

作者: GBKEE    時間: 2012-10-7 09:25

回復 1# boyao
有沒有較簡單的指令寫法?或者只能重新在UserForm2重設相同指令?
要有範例內容,才知有解無解.

---

作者: boyao    時間: 2012-10-7 10:32

回復 2# GBKEE


G大
我知道的方式是可以寫在模組
用模組的名稱去執行指令

但在UserForm中.有沒有相同的用法?可以達成相同的結果
而不須把指令重新放置於模組中

感謝

[attach]12718[/attach]

---

作者: GBKEE    時間: 2012-10-8 06:48

回復 3# boyao
使用物件類別模組 試試看
在VBA中插入物件類別模組, 預設名稱為 Class1.
UserForm的程式碼

1. Dim User_按鈕 As New Class1    'UserForm 宣告 變數為新的物件類別模組
   
2. Private Sub UserForm_Initialize()
   
3.     Set User_按鈕.物件_CommandButton = CommandButton1
   
4.     '新的物件類別模組 變數( 物件_CommandButton )= 設定 為 CommandButton1
   
5. End Sub

複製代碼

物件類別模組的程式碼

1. Option Explicit
   
2. Public WithEvents 物件_CommandButton As MSForms.CommandButton
   
3. Private Sub 物件_CommandButton_Click()
   
4.     Dim i As Integer
   
5.     For i = 1 To 100
   
6.         Sheet1.Range("A" & i) = (i * 50)
   
7.     Next i '
   
8. End Sub

複製代碼

---

作者: boyao    時間: 2012-10-8 17:21

回復 4# GBKEE


謝謝G大
物件類別模組...我還沒用過(不會用)
我還是把它複製到模組上去設好了

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)