如何将条件格式的条件用VBA来实现

Blather · 发表于 2018-3-19 16:51

=MOD(SUM(N($D$1:$D1<>$D$2:$D2)),2)
这是设置的条件格式，用VBA怎样实现
因为数据较多条件格式造成工作表运行较慢。特些求助

半百 · 发表于 2018-3-20 10:26

Sub 条件格式()
Range("D:D").Font.ColorIndex = 0
For Each R In Range("D2:D" & Cells(Rows.Count, 4).End(3).Row)
If R <> R.Offset(-1) Then N = N + 1
If N Mod 2 = 1 Then R.Font.ColorIndex = 3
Next
End Sub

Blather · 发表于 2018-3-20 14:46

半百发表于 2018-3-20 10:26
Sub 条件格式()
Range("D:D").Font.ColorIndex = 0
For Each R In Range("D2:D" & Cells(Rows.Count, 4). ...

谢谢但我还希望这个格式范围是从A到J 该怎么处理

1122wen · 发表于 2018-3-20 15:12

Blather 发表于 2018-3-20 14:46
谢谢但我还希望这个格式范围是从A到J 该怎么处理

公式是什么意思？我竟然看不懂

Blather · 发表于 2018-3-20 15:24

1122wen 发表于 2018-3-20 15:12
公式是什么意思？我竟然看不懂

相邻的二行的值如果不等设置不同的格式

DAY18883320729 · 发表于 2024-4-22 17:41

本帖最后由 DAY18883320729 于 2024-4-23 11:24 编辑

1234567890

DAY18883320729 · 发表于 2024-4-22 17:49

  使用 FormatConditions 属性可返回 FormatConditions 对象。使用 Add 方法创建新的条件格式，并使用 FormatCondition 对象的 Modify 方法更改现有条件格式；
供参考：
Worksheets(1).Range("d2:d15").FormatConditions.Delete
With Worksheets(1).Range("d2:d15").FormatConditions _
   .Add(xlCellValue, xlNotEqual, "=$d1")
   With .Font
   .Bold = True
   .ColorIndex = 4
   End With
End With

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

[求助] 如何将条件格式的条件用VBA来实现