ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

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

Book1234.rar (21.18 KB)
¤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
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

¦n¥Î¡A¯uªº¦n¥Î¡C
vb§Ú­n¦n¦nªº¾Ç¤~¦æ¡T
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¦^´_ 1# ¦Û§Ú·Pı¨}¦n
  1. Sub Ex()
  2.     ActiveSheet.Buttons.Delete
  3. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¤£­n¤p¬Ý¦Û¤v¡A¦]¬°¤H¦³µL­­ªº¥i¯à¡C
ªð¦^¦Cªí ¤W¤@¥DÃD