[已解决]对含有公式的单元格标识出颜色和斜体

nothingwmm

1. 
   
2. 
   
3. Option Explicit
   
4. Private Sub Worksheet_Change(ByVal Target As Excel.Range)
   
5.     Dim cell As Range
   
6.     Set Target = Intersect(Target, Target.Parent.UsedRange) '工作表使用区域
   
7.     If Not Target Is Nothing Then '只要区域不为空
   
8.         For Each cell In Target '遍历所有单元格
   
9.             cell.Font.Bold = cell.HasFormula '含有公式的单元格，就将其字体加粗
   
10.             cell.Font.Italic = cell.HasFormula '对含有公式的单元格，字体设为斜体
    
11.         Next cell
    
12.     End If
    
13. End Sub
    
14. 
    
15. 
    

复制代码

最佳答案

月排行榜 / 总排行榜

amulee

2011-1-30 10:30

没公式的也变红色了，应该多加个判断。

跳转到最佳答案楼层

amulee

红色那里有问题

nothingwmm

amulee 发表于 2011-1-30 10:29
红色那里有问题

什么问题？

amulee

没公式的也变红色了，应该多加个判断。

nothingwmm

amulee 发表于 2011-1-30 10:30
没公式的也变红色了，应该多加个判断。

不会把，这里是公式变动的话就会显示红色加粗，不含公示的应该不会应用的呀。

zgwei050

情况同amulee