標題: 殺掉不用的按紐… [打印本頁]

---

作者: 自我感覺良好    時間: 2013-1-12 14:53     標題: 殺掉不用的按紐…

[attach]13889[/attach]
下面我用錄製巨集的程式
要寫成程式要怎樣作呢﹗



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    時間: 2013-1-12 15:12

回復 1# 自我感覺良好

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

複製代碼

---

作者: 自我感覺良好    時間: 2013-1-12 15:39

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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)