- 帖子
- 97
- 主題
- 31
- 精華
- 0
- 積分
- 133
- 點名
- 0
- 作業系統
- xp2007
- 軟體版本
- xp2007
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 香港
- 註冊時間
- 2012-8-12
- 最後登錄
- 2020-12-25
|
如何簡化這程式
大大們, 安好,
小弟錄制了一個巨集, 但錄制出來的程式太長, 請教大大們, 如何把程式簡化, 感恩, 謝謝!!
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 |
|
發表於 2014-11-13 23:58
| 
