返回列表 上一主題 發帖

殺掉不用的按紐…

自我感覺良好

帖子
116 
主題
41 
精華
0 
積分
162 
點名
0  
作業系統
XP 
軟體版本
office2007 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2010-7-22 
最後登錄
2024-2-9 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2013-1-12 14:53 | 只看該作者

殺掉不用的按紐…

Book1234.rar (21.18 KB)
下面我用錄製巨集的程式
要寫成程式要怎樣作呢﹗



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
收藏 分享
50 字節以內
不支持自定義 Discuz! 代碼

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 2013-1-12 15:12 | 只看該作者
回復 1# 自我感覺良好
  1. Sub Ex()
  2.     ActiveSheet.Buttons.Delete
  3. End Sub
複製代碼

TOP

自我感覺良好

帖子
116 
主題
41 
精華
0 
積分
162 
點名
0  
作業系統
XP 
軟體版本
office2007 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2010-7-22 
最後登錄
2024-2-9 
3#
發表於 2013-1-12 15:39 | 只看該作者
好用，真的好用。
vb我要好好的學才行﹗
50 字節以內
不支持自定義 Discuz! 代碼

TOP

        靜思自在 : 【時間成就一切】時間可以造就人格，可以成就事業，也可以儲積功德。
返回列表 上一主題