Excel里的格式会自动变成日期或会计专用？

第一篇：Excel里的格式会自动变成日期或会计专用？

Excel里的格式会自动变成日期或会计专用？

其原因是Excel“设置单元格格式”里面的“自定义”格式影响产生的，在拷贝其他EXCEL 文件或者转移工作表时，“自定义”里面的格式一同也被拷贝过来了。（包括很多自定义的公式也被拷贝过来）。解决办法就是找到这些自定义的公式并且删除它们（Kill them all!）。

第一步，选中你出现问题的单元格，就是左键点一下，然后点击工具栏中---样式---单元格样式---出现下拉菜单---倒数第二行---点击新建单元格样式。

然后会出现如图所示对话框：

记住数字后面红色框里面的这个名称，然后点击取消。

再从选中的表格点击右键---设置单元格格式----自定义里面---找到这个名称---删除---确定---OK。

第二篇：我有个excel工作薄里有10个工作表,我想把其中的部分单元格字体变成红色或单元格填充颜色

我有个excel工作薄里有10个工作表，我想把其中的部分单元格字体变成红色。

浏览次数：28次悬赏分：5 | 离问题结束还有 11 天 19 小时 | 提问者：剑客wcg

我有个工作薄里有10个工作表，我想把每个表中几个的数据变成红色字体。这10个表的格式都是一样的，而且只有N8、N9、H8是我要变成红色的字体，用复制粘贴的方法太烦了，而且往后还有很多这类的数据，所以请高手指点一下，看用VBA能不能实现呢？如果有不清楚的地方请指出，我会马上解释的。急急急，在线等！~ 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 出现运行时438错误，对象不支持该属性或方法。非常感谢你帮助。回答

无语……我在自己电脑上运行过的，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