[µo°Ý] Ãö©ó UserForm1.Controls.Add "Forms.CommandButton.1" °ÝÃD½Ð±Ð

pinklee

ii = Sheets("sheet2").Range("m1").Value
For ii = 1 To ii
    UserForm1.Controls.Add "Forms.CommandButton.1", "CommandButton" & ii, True
Next
¥H¤W°õ¦æµ²ªG¦p¤U¹Ï

¤U¸ü (2.74 KB)

2013-5-31 16:20

½Ð±Ð¦U¦ì¥ý«ô ¦p¦ó«ö ¦U­Ó CommandButton °õ¦æ¥¨¶°©O?
¬O§_­n¥Î¨ì  ª«¥ó¯S§O¼Ò²Õ  ¦³³Ò¤j¤jÅo   ÁÂÁÂ!!

sunnyso

¦^´_ 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

½Æ»s¥N½X

sunnyso

¦^´_ 1# pinklee

1. Dim AllBtn() As New Class1
   
2. 
   
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

½Æ»s¥N½X

ª«¥óÃþ§O¼Ò²Õ

1. Public WithEvents Btn As MSForms.CommandButton
   
2. 
   
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

½Æ»s¥N½X

pinklee

¦^´_ 3# sunnyso


    ·PÁ±zªº«ü¾É  §Ú¥ý¬ã¨s¤@¤U

pinklee

¦^´_ 3# sunnyso


    ·PÁ±z ¤w¸g¥i¥H¨Ï¥Î