[已解决]求把工作表中的所有粉色字都变成16号字并加粗的方法

eikok

求把工作表中的所有粉色字都变成16号字并加粗的方法?

最佳答案

月排行榜 / 总排行榜

冥王

2014-5-20 16:50

1. Sub demo()
   
2.     Application.ScreenUpdating = False
   
3.     Dim rng As Range
   
4.     For Each rng In UsedRange
   
5.         If rng.Font.ColorIndex = 7 Then
   
6.             rng.Font.Size = 16
   
7.             rng.Font.Bold = True
   
8.         End If
   
9.     Next
   
10.     Application.ScreenUpdating = True
    
11. End Sub

复制代码

跳转到最佳答案楼层

jimcomputer01

查找替换就可以完成了。

冥王

1. Sub demo()
   
2.     Application.ScreenUpdating = False
   
3.     Dim rng As Range
   
4.     For Each rng In UsedRange
   
5.         If rng.Font.ColorIndex = 7 Then
   
6.             rng.Font.Size = 16
   
7.             rng.Font.Bold = True
   
8.         End If
   
9.     Next
   
10.     Application.ScreenUpdating = True
    
11. End Sub

复制代码

qh8600

Sub demo()
    Application.ScreenUpdating = False
    Dim rng As Range
    For Each rng In Range("a1:n11")
        If rng.Font.ColorIndex = 7 Then
            rng.Font.Size = 16
            rng.Font.Bold = True
        End If
    Next
    Application.ScreenUpdating = True
End Sub

蓝粆

冥王 发表于 2014-5-20 16:50

这个是怎么知道的~~rng.Font.ColorIndex = 7？{:091:}

eikok

冥王 发表于 2014-5-20 16:50

求知道字体颜色是什么数字的vba代码？

冥王

eikok 发表于 2014-5-21 15:02
求知道字体颜色是什么数字的vba代码？

随便挑选一个带字体颜色的单元格，如单元格C11
再在VBE编辑窗口用msgbox试一下：
msgbox range("C11").font.colorindex

eikok

冥王 发表于 2014-5-21 15:05
随便挑选一个带字体颜色的单元格，如单元格C11
再在VBE编辑窗口用msgbox试一下：
msgbox range("C11"). ...

多谢，太感谢了{:021:}