殺掉不用的按紐…

自我感覺良好

Book1234.rar (21.18 KB)

下載次數: 4

2013-1-12 14:51

下面我用錄製巨集的程式
要寫成程式要怎樣作呢﹗



Sub Macro1()
'
' Macro1 Macro
'
' 快速鍵: 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

GBKEE

回復 1# 自我感覺良好

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

複製代碼

自我感覺良好

好用，真的好用。
vb我要好好的學才行﹗