如何簡化這程式 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 如何簡化這程式

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

如何簡化這程式

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

帖子: 549
主題: 152
精華: 0
積分: 691
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 50
性別: 男
註冊時間: 2013-8-10
最後登錄: 2022-9-7

論壇榮譽勳章論壇贊助勳章

1^# 跳轉到 »

發表於 2014-11-14 06:27 | 顯示全部帖子

回復 1# hong912

試試看

Sub TEST()
For I = 1 To 12 '一月跑到12月
With Sheets(I & "月").Range("G4:AK20").Interior '用i當作月份跑回圈,後面範圍固定
.Pattern = xlNone '清除填滿的顏色
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Next
End Sub

複製代碼

PKKO

靜思自在 : 自己害自己，莫過於亂發脾氣。

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