jackyq

¤j¤j¦Û¤v¬ã¨s¬Ý¬Ý
http://stackoverflow.com/questions/10944064/change-individual-listbox-item-font-in-excel

jackyq

¦^´_ 3# clio


    Dim TextBox As MSForms.TextBox
Set TextBox = UserForm1.Controls.Add("forms.TextBox.1")
    TextBox.Top = 0

Dim ListBox As MSForms.ListBox
Set ListBox = UserForm1.Controls.Add("forms.ListBox.1")
    ListBox.Top = 30
  
Dim Label As MSForms.Label
Set Label = UserForm1.Controls.Add("forms.Label.1")
    Label.Top = 120
    Label.BorderStyle = fmBorderStyleSingle
    Label.Caption = "13123"

jackyq

¥Î°ÊºAªº¸Ü
¨Æ¥ó´N³Â·Ð¤F
ÁÙ­n¦h¤@°ï Class ©ÎªÌ¥Î hook
¤~·|«Øij§A¥i¥Hªº¸Ü ¥Î Listbox ´N¦n¤F

jackyq

' UserForm1 ¥²¶·¨Æ¥ý¤w¸g¦s¦b

Dim F As UserForm1
Dim TextBox As MSForms.TextBox
Dim ListBox As MSForms.ListBox

Set F = New UserForm1
F.Show 0
F.Caption = "Form 1"
Set TextBox = F.Controls.Add("forms.TextBox.1")
    TextBox.Top = 0

Set ListBox = F.Controls.Add("forms.ListBox.1")
    ListBox.Top = 30


Set F = New UserForm1
F.Show 0
F.Top = F.Top + 100
F.Left = F.Left + 100
F.Caption = "Form 2"
Set TextBox = F.Controls.Add("forms.TextBox.1")
    TextBox.Top = 0


Set ListBox = F.Controls.Add("forms.ListBox.1")
    ListBox.Top = 30

jackyq

¦Û°Ê«Ø¥ß UserForm
https://support.microsoft.com/en-us/kb/204330

jackyq

«Øij¤j¤j UserForm ¤£­n¥Î°ÊºA

Set FC = Application.VBE.ActiveVBProject.VBComponents.Add(3)
Set F = UserForms.Add(FC.Name)
    F.Show 0
            
Set TextBox = F.Controls.Add("forms.TextBox.1")
    TextBox.Top = 0
Set ListBox = F.Controls.Add("forms.ListBox.1")
    ListBox.Top = 30
   
MsgBox "Stop"
Application.VBE.ActiveVBProject.VBComponents.Remove FC