- ©«¤l
- 21
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 30
- ÂI¦W
- 0
- §@·~¨t²Î
- windows xp
- ³nÅ骩¥»
- Office 2000
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2010-6-10
- ³Ì«áµn¿ý
- 2010-7-2
|
¦^´_ 7# GBKEE
¤F¸Ñ..ÁÂÁ¤j¼ö¤ß¸Ñ»¡¤p§Ì¥Ñ¤ß·PÁÂ
©|¦³¤@¨Æ½Ð±Ð..
¦pPrivate Sub CommandButton2_Click()
°õ¦æ«á±ý±NCommandButton2¼È®ÉÃö³¬¦Ó°õ¦æ«án«·s¶}±ÒCommandButton2°õ¦æ«á«o¤£¦æ½Ð¤j¤j«ü¾É.......
1.CommandButton2.Visible = False2.CommandButton4.Visible = TrueDim E As Object
Application.EnableEvents = False
ActiveWindow.SmallScroll Down:=24
Range("B3:F32").Select
Range("F32").Activate
Selection.ClearContents
ActiveWindow.SmallScroll Down:=-24
Range("L232").Select
Selection.ClearContents
For Each E In OLEObjects
If E.Name Like "ComboBox*" Then E.Object.Value = " ": DoEvents
Next
Range("a1").Select
Application.EnableEvents = True
2.CommandButton2.Visible = True
End Sub |
|