如何用VBA通过条件判断设置相应行的字体颜色

djajan · 发表于 2012-8-23 22:22

为什么这样不能整行选中？Sub colo()

Dim i As Integer

For i = 1 To Range("o65536").End(xlUp).Row

If Range("o" & i).Text = "C141" Then

  Range("o" & i).Rows.Select

  Selection.Font.ColorIndex = 10

  End If

Next

End Sub

zhaogang1960 · 发表于 2012-8-23 22:39

djajan 发表于 2012-8-23 22:22
为什么这样不能整行选中？Sub colo()

Dim i As Integer

单元格.EntireRow——表示该单元格所在整行

djajan · 发表于 2012-8-24 00:00

zhaogang1960 发表于 2012-8-23 22:39
单元格.EntireRow——表示该单元格所在整行

晕了，脑袋一时短路了。新手莫怪，thanks a lot!

On_fire · 发表于 2017-2-6 17:14

zhaogang1960 发表于 2012-8-23 21:41

老师,
如果有c145, c146等等…不加标注, 请问怎么改?

li446425169 · 发表于 2022-8-27 19:36

zhaogang1960 发表于 2012-8-23 21:26

老师，如果以O列某一单元格中的字符为判断，只想给O列和P列字体着色（就是不要一行全部字体变色）

xpql · 发表于 2022-12-30 04:55

很有用的VBA字体变色代码

		自动登录	找回密码
密码			免费注册

[求助] 如何用VBA通过条件判断设置相应行的字体颜色