±þ±¼¤£¥Îªº«ö¯Ã¡K

¦Û§Ú·Pı¨}¦n

Book1234.rar (21.18 KB)

¤U¸ü¦¸¼Æ: 4

2013-1-12 14:51

¤U­±§Ú¥Î¿ý»s¥¨¶°ªºµ{¦¡
­n¼g¦¨µ{¦¡­n«ç¼Ë§@©O¡T



Sub Macro1()
'
' Macro1 Macro
'
' §Ö³tÁä: Ctrl+p
'

    ActiveSheet.Shapes("Button 16").Select
    Selection.Cut
    ActiveSheet.Shapes("Button 15").Select
    Selection.Cut
    ActiveSheet.Shapes("Button 14").Select
    Selection.Cut
    ActiveSheet.Shapes("Button 13").Select
    Selection.Cut
    ActiveSheet.Shapes("Button 12").Select
    Selection.Cut
    ActiveSheet.Shapes("Button 11").Select
    Selection.Cut
    ActiveSheet.Shapes("Button 10").Select
    Selection.Cut
    ActiveSheet.Shapes("Button 9").Select
    Selection.Cut
    ActiveSheet.Shapes("Button 4").Select
    Selection.Cut
    ActiveSheet.Shapes("Button 3").Select
    Selection.Cut
    ActiveSheet.Shapes("Button 2").Select
    Selection.Cut
    ActiveSheet.Shapes("Button 1").Select
    Selection.Cut
End Sub

¦Û§Ú·Pı¨}¦n

¦n¥Î¡A¯uªº¦n¥Î¡C
vb§Ú­n¦n¦nªº¾Ç¤~¦æ¡T

GBKEE

¦^´_ 1# ¦Û§Ú·Pı¨}¦n

1. Sub Ex()
   
2.     ActiveSheet.Buttons.Delete
   
3. End Sub

½Æ»s¥N½X