第一篇：我有個excel工作薄里有10個工作表,我想把其中的部分單元格字體變成紅色或單元格填充顏色

我有個excel工作薄里有10個工作表，我想把其中的部分單元格字體變成紅色。

瀏覽次數(shù)：28次懸賞分：5 | 離問題結束還有 11 天 19 小時 | 提問者：劍客wcg

我有個工作薄里有10個工作表，我想把每個表中幾個的數(shù)據(jù)變成紅色字體。這10個表的格式都是一樣的，而且只有N8、N9、H8是我要變成紅色的字體，用復制粘貼的方法太煩了，而且往后還有很多這類的數(shù)據(jù)，所以請高手指點一下，看用VBA能不能實現(xiàn)呢？如果有不清楚的地方請指出，我會馬上解釋的。急急急，在線等！~ Sub macro()Dim i i = 1 Application.ScreenUpdating = False Application.EnableEvents = False For i = 1 To Worksheets.Count Worksheets(i).Activate Range(“n8”).Select With Selection.Font

.Color =-16776961

.TintAndShade = 0 End With Range(“n9”).Select With Selection.Font

.Color =-16776961

.TintAndShade = 0 End With Range(“h8”).Select With Selection.Font

.Color =-16776961

.TintAndShade = 0 End With Next i Application.ScreenUpdating = True

Application.EnableEvents = True End Sub 追問

.TintAndShade = 0 End With Range(“n9”).Select With Selection.Font

.Color =-16776961

.TintAndShade = 0 出現(xiàn)運行時438錯誤，對象不支持該屬性或方法。非常感謝你幫助?；卮?/p>

無語……我在自己電腦上運行過的，07是可以的。不過我得承認這句.TintAndShade = 0是電腦生成的。

如果在這句出錯的話，可以刪除它，因為變紅色的語句是：.Color =-16776961

我整理一下，你再試試：

Sub macro()Dim i i = 1 Application.ScreenUpdating = False Application.EnableEvents = False

For i = 1 To Worksheets.Count

Worksheets(i).Activate

Range(“n8,n9,h8”).Select

With Selection.Font

.Color =-16776961

End With Next i Worksheets(1).Select Application.ScreenUpdating = True Application.EnableEvents = True

End Sub

單元格填充顏色 Sub macro()Dim i i = 1 Application.ScreenUpdating = False Application.EnableEvents = False

For i = 1 To Worksheets.Count

Worksheets(i).Activate

Range(“c7,d7,c9,d9,c11,d11,c15,d15,c17,d17,c19,d19,n10,n11,g16,g17,h13,h14,h15,h16,h17,f20,f21,f22,n30”).Select

With Selection.Interior

.ColorIndex = 9

End With Next i Worksheets(1).Select Application.ScreenUpdating = True Application.EnableEvents = True

End Sub