第一篇：Excel里的格式會自動變成日期或會計專用？

Excel里的格式會自動變成日期或會計專用？

其原因是Excel“設(shè)置單元格格式”里面的“自定義”格式影響產(chǎn)生的，在拷貝其他EXCEL 文件或者轉(zhuǎn)移工作表時，“自定義”里面的格式一同也被拷貝過來了。（包括很多自定義的公式也被拷貝過來）。解決辦法就是找到這些自定義的公式并且刪除它們（Kill them all!）。

第一步，選中你出現(xiàn)問題的單元格，就是左鍵點一下，然后點擊工具欄中---樣式---單元格樣式---出現(xiàn)下拉菜單---倒數(shù)第二行---點擊新建單元格樣式。

然后會出現(xiàn)如圖所示對話框：

記住數(shù)字后面紅色框里面的這個名稱，然后點擊取消。

再從選中的表格點擊右鍵---設(shè)置單元格格式----自定義里面---找到這個名稱---刪除---確定---OK。

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

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

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

我有個工作薄里有10個工作表，我想把每個表中幾個的數(shù)據(jù)變成紅色字體。這10個表的格式都是一樣的，而且只有N8、N9、H8是我要變成紅色的字體，用復(fù)制粘貼的方法太煩了，而且往后還有很多這類的數(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)運(yùn)行時438錯誤，對象不支持該屬性或方法。非常感謝你幫助?；卮?/p>

無語……我在自己電腦上運(yùn)行過的，07是可以的。不過我得承認(rèn)這句.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