返回列表 上一主題 發帖

如何簡化這程式

hong912

帖子
97 
主題
31 
精華
0 
積分
133 
點名
0  
作業系統
xp2007 
軟體版本
xp2007 
閱讀權限
20 
性別
男 
來自
香港 
註冊時間
2012-8-12 
最後登錄
2020-12-25 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2014-11-13 23:58 | 顯示全部帖子

如何簡化這程式

大大們, 安好,
小弟錄制了一個巨集, 但錄制出來的程式太長, 請教大大們, 如何把程式簡化, 感恩, 謝謝!!

Sub 清除工作表色彩()
'
' 清除工作表色彩 Macro
'

'
    Sheets("1月").Select
    Range("G4").Select
    Range("G4:AK20").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("G4").Select
    Sheets("2月").Select
    Range("G4:AK20").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("G4").Select
    Sheets("3月").Select
    Range("G4:AK20").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("G4").Select
    Sheets("4月").Select
    Range("G4:AK20").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("G4").Select
    Sheets("5月").Select
    Range("G4:AK20").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("G4").Select
    Sheets("6月").Select
    Range("G4:AK20").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("G4").Select
    Sheets("7月").Select
    Range("G4:AK20").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("G4").Select
    Sheets("8月").Select
    Range("G4:AK20").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("G4").Select
    Sheets("9月").Select
    Range("G4:AK20").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("G4").Select
    Sheets("10月").Select
    Range("G4:AK20").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("G4").Select
    Sheets("11月").Select
    ActiveWindow.SmallScroll
    Range("G4:AK20").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("G4").Select
    Sheets("12月").Select
    Range("G4:AK20").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Sheets("公眾假期").Select
    Range("A1").Select
收藏 分享
hong912

hong912

帖子
97 
主題
31 
精華
0 
積分
133 
點名
0  
作業系統
xp2007 
軟體版本
xp2007 
閱讀權限
20 
性別
男 
來自
香港 
註冊時間
2012-8-12 
最後登錄
2020-12-25 
2#
發表於 2014-11-14 08:07 | 顯示全部帖子
回復 2# PKKO

謝謝指導, 感恩..
hong912

TOP

        靜思自在 : 人生沒有所有權，只有生命的使用權。
返回列表 上一主題