Hsieh

¦^´_ 1# Jared
ª«¥óÃþ§O¼Ò²Õ¤¤

1. Private Sub OB_Click()
   
2.      test.TextBox1.Value = OB.ControlTipText & " " & UserForm1.TextBox1.Text & ":" & UserForm1.TextBox2.Text
   
3.      Unload UserForm1
   
4. End Sub

½Æ»s¥N½X

UserForm1¼Ò²Õ¤¤

1. Private Sub UserForm_Initialize()
   
2.     Dim i As Integer, hm$
   
3.     For i = 2013 To 2020
   
4.         ComboBox1.AddItem i
   
5.     Next
   
6.     ComboBox1.Value = Year(Date)
   
7.     For i = 1 To 12
   
8.         ComboBox2.AddItem i
   
9.     Next
   
10.     ComboBox2.Value = Month(Date)
    
11.     hm = Format(Now, "hh:mm")
    
12.     TextBox1.Text = Split(hm, ":")(0)
    
13.     TextBox2.Text = Split(hm, ":")(1)
    
14. End Sub

½Æ»s¥N½X