[已解决]求代码

tough2010

当我退出工作薄时，工作表sheet1里的字体颜色变为白色，并且保存，下一次打开工作薄时字体颜色仍是白的。

最佳答案

月排行榜 / 总排行榜

liuguansky

2011-12-2 01:09

1. Private Sub Workbook_BeforeClose(Cancel As Boolean)
   
2.     Sheet1.UsedRange.Font.Color = xlNone
   
3.     ThisWorkbook.Save
   
4.     Application.Quit
   
5. End Sub

复制代码

试试是这样吗？

跳转到最佳答案楼层

liuguansky

1. Private Sub Workbook_BeforeClose(Cancel As Boolean)
   
2.     Sheet1.UsedRange.Font.Color = xlNone
   
3.     ThisWorkbook.Save
   
4.     Application.Quit
   
5. End Sub

复制代码

试试是这样吗？

tough2010

Sheet1.UsedRange.Font.Color = xlNone  改为“Sheet1.cells.Font.Colorindex = 2 就对了