GBKEE

¦^´_ 1# steven

1. Private Sub CommandButton2_Click()
   
2.     Dim E As Object
   
3.     Application.EnableEvents = False
   
4.     ActiveWindow.SmallScroll Down:=24
   
5.     Range("B3:F32").Select
   
6.     Range("F32").Activate
   
7.     Selection.ClearContents
   
8.     ActiveWindow.SmallScroll Down:=-24
   
9.     Range("L2:L32").Select
   
10.      Selection.ClearContents
    
11.     Range("B1").Select
    
12.     For Each E In OLEObjects
    
13.         If E.Name Like "ComboBox*" Then E.Object.Value = ""
    
14.     Next
    
15.     Application.EnableEvents = True
    
16. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 3# steven


11.    Range("B1").Select ²¾°Ê
12.    For Each E In OLEObjects
13.        If E.Name Like "ComboBox*" Then E.Object.Value = ""
14.    Next
         Range("B1").Select ¨ì¦¹
15.    Application.EnableEvents = True
16.End Sub

»¡©ú
·í E.Name="ComboBox14"  °õ¦æ E.Object.Value = "" ®É
·|°õ¦æ Private Sub ComboBox14_Change()
             '²Ä7²Õ
        [d9] = ComboBox14.Value
            [e9].Select     '³o¸Ì¦³¿ï«ü©w¤@­ÓÀx¦s®æ¡A
          End Sub

GBKEE

¦^´_ 6# steven

DoEvents    ±N±±¨îÅv¥æ¦^§@·~¨t²Î,¨Ó³B²z E.Object.Value = " " ªºµe­±
     For Each E In OLEObjects
        If E.Name Like "ComboBox*" Then E.Object.Value = " ": DoEvents
    Next

GBKEE

¦^´_ 8# steven
2.CommandButton2.Visible = True
¤U¤@¦C¥[¤W
CommandButton2.Enabled = True