Board logo

標題: [發問] 關於 UserForm1.Controls.Add "Forms.CommandButton.1" 問題請教 [打印本頁]
作者: pinklee    時間: 2013-5-31 16:24     標題: 關於 UserForm1.Controls.Add "Forms.CommandButton.1" 問題請教

ii = Sheets("sheet2").Range("m1").Value
For ii = 1 To ii
    UserForm1.Controls.Add "Forms.CommandButton.1", "CommandButton" & ii, True
Next
以上執行結果如下圖

[attach]15120[/attach]
請教各位先拜 如何按 各個 CommandButton 執行巨集呢?
是否要用到  物件特別模組  有勞大大囉   謝謝!!
作者: sunnyso    時間: 2013-5-31 23:08

回復 1# pinklee
  1. Private Sub UserForm_Initialize()
  2.     Dim fcb As MSForms.CommandButton
  3.     fcbWidth = 30
  4.     fcbNum = 5
  5.     For ii = 1 To fcbNum
  6.         Set fcb = UserForm1.Controls.Add("Forms.CommandButton.1", "CommandButton" & ii, True)
  7.         fcb.Width = fcbWidth
  8.         fcb.Left = (ii - 1) * fcbWidth
  9.         fcb.Caption = "C" & ii
  10.     Next
  11. End Sub
複製代碼
作者: sunnyso    時間: 2013-6-1 00:13

本帖最後由 sunnyso 於 2013-6-1 00:19 編輯

回復 1# pinklee
  1. Dim AllBtn() As New Class1

  3. Private Sub UserForm_Initialize()
  4.     Dim fcb As MSForms.CommandButton
  5.     Dim fcbNum As Integer
  6.     fcbWidth = 30
  7.     fcbNum = 5 'Sheets("總表").Range("A1").Value
  8.     ReDim AllBtn(1 To fcbNum)
  9.     For ii = 1 To fcbNum
  10.         Set fcb = UserForm1.Controls.Add("Forms.CommandButton.1", "CommandButton" & ii, True)
  11.         Set AllBtn(ii).Btn = fcb
  12.         fcb.Width = fcbWidth
  13.         fcb.Left = (ii - 1) * fcbWidth
  14.         fcb.Caption = "C" & ii
  15.     Next
  16. End Sub
複製代碼
物件類別模組
  1. Public WithEvents Btn As MSForms.CommandButton

  3. Private Sub Btn_Click()
  4.     'Dim ctrl As Control
  5.     'With UserForm1
  6.         'your code here
  7.         MsgBox Btn.Caption
  8.     'End With
  9. End Sub
複製代碼
作者: pinklee    時間: 2013-6-3 08:04

回復 3# sunnyso


    感謝您的指導  我先研究一下
作者: pinklee    時間: 2013-6-3 09:57

回復 3# sunnyso


    感謝您 已經可以使用



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