stillfish00

¦^´_ 1# yutakano
¥Î¤@­Óªí³æ´N¯à¹ê²{¤F¡A·í«ö¤U¿ï¶µ«ö¶s®É¥hÅã¥Ü/ÁôÂèä¥L±±¨î¶µ´N¥i¥H¤F¡C

stillfish00

¦^´_ 1# yutakano
²³æ½d¨Ò: https://www.dropbox.com/s/0yulvt5j01mkjxa/%E7%AF%84%E4%BE%8B.xlsm

1. Private Sub CommandButton1_Click()
   
2.     Static bControl As Boolean  '±±¨î¬O§_®i¶}
   
3.     bControl = Not bControl
   
4.    
   
5.     If bControl Then
   
6.         CommandButton1.Caption = "¿ï¶µ<<"
   
7.         CommandButton1.Top = 100
   
8.         ComboBox2.Width = 100
   
9.         Label2.Visible = True
   
10.         ComboBox1.Visible = True
    
11.         CheckBox1.Visible = True
    
12.     Else
    
13.         CommandButton1.Caption = "¿ï¶µ>>"
    
14.         CommandButton1.Top = 36
    
15.         ComboBox2.Width = 180
    
16.         Label2.Visible = False
    
17.         ComboBox1.Visible = False
    
18.         CheckBox1.Visible = False
    
19.     End If
    
20. End Sub

½Æ»s¥N½X