返回列表 上一主題 發帖

殺掉不用的按紐…

殺掉不用的按紐…

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! 代碼

好用,真的好用。
vb我要好好的學才行﹗
50 字節以內
不支持自定義 Discuz! 代碼

TOP

        靜思自在 : 是非當教育,讚美作警惕。
返回列表 上一主題