返回列表下一主題上一主題發帖

如何簡化這程式

hong912

中學生 Rank: 2

帖子: 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