使用VBA设置条件格式

peilongwang

我使用条件格式设置成功了，本来打算录个宏就可以，后来发现条件格式不能录宏，求高手帮忙，拜谢了~！

格物郅知

你可以不用条件格式，用IF语句判断，然后设置格式。设置设置格式是可以录制的（这样比较慢，但我只会这个）

1. Sub 格式()
   
2. t = Timer
   
3. r = Sheet1.[A1048576].End(3).Row '统计A列有多少行
   
4. For i = 9 To r                   '循环，最初的数据在第9行，从9开始。
   
5. If Sheet1.Range("D" & i + 1) <> Sheet1.Range("D" & i) Then
   
6. Range("A" & i & ":J" & i).Select          '选中i行
   
7. '这里写你的格式，附件里是我录的，不知道是不是同一种虚线
   
8. 
   
9. End Sub

复制代码

小fisher

Sub test()
    Dim rng As Range
    Set rng = Sheet1.Range("A1:F23") '这里是要设置条件格式的区域，按实际要求更改
    If rng.FormatConditions.Count > 0 Then  '删除最后一条条件格式规则
        rng.FormatConditions(rng.FormatConditions.Count).Delete
    End If
    Dim fc As FormatCondition
    Set fc = rng.FormatConditions.Add(xlExpression, XlFormatConditionOperator.xlEqual, "=$a1<>$a2")
    fc.Borders(-4107).LineStyle = xlDash '括号里的参数用xlEdgeBottom(9)会提示"不参设置类Border的LineStyle属性"
End Sub

peilongwang

格物郅知 发表于 2019-12-30 16:37
你可以不用条件格式，用IF语句判断，然后设置格式。设置设置格式是可以录制的（这样比较慢，但我只会这个） ...

填入格式后运行，提示“Block if without End if” ,填了End if 后又提示“For Without next” ,填了Next后运行就直接报错了。

下面是格式：

    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlDash
        .Color = -65536
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With

格物郅知

小fisher 发表于 2019-12-30 16:53
Sub test()
    Dim rng As Range
    Set rng = Sheet1.Range("A1:F23") '这里是要设置条件格式的区域， ...

留个脚印，方便学习！

peilongwang

小fisher 发表于 2019-12-30 16:53
Sub test()
    Dim rng As Range
    Set rng = Sheet1.Range("A1:F23") '这里是要设置条件格式的区域， ...

谢谢你！
但是我不知道为什么运行会报错“object required”

格物郅知

peilongwang 发表于 2019-12-30 17:13
谢谢你！
但是我不知道为什么运行会报错“object required”

你传下你报错的附件吧，这样我看不出来是哪里报错了。

小fisher

peilongwang 发表于 2019-12-30 17:13
谢谢你！
但是我不知道为什么运行会报错“object required”

Sub test()
    Dim rng As Range
    Set rng = Sheet2.Range("A6:J611") '这里是要设置条件格式的区域，按实际要求更改
    If rng.FormatConditions.Count > 0 Then  '删除最后一条条件格式规则
        rng.FormatConditions(rng.FormatConditions.Count).Delete
    End If
    Dim fc As FormatCondition
    Set fc = rng.FormatConditions.Add(xlExpression, XlFormatConditionOperator.xlEqual, "=$a6<>$a7")
    fc.Borders(-4107).LineStyle = xlDash '括号里的参数用xlEdgeBottom(9)会提示"不参设置类Border的LineStyle属性"
End Sub

peilongwang

小fisher 发表于 2019-12-31 08:29
Sub test()
    Dim rng As Range
    Set rng = Sheet2.Range("A6:J611") '这里是要设置条件格式的区 ...

谢谢！我再试试

hhwtt

小fisher 发表于 2019-12-30 16:53
Sub test()
    Dim rng As Range
    Set rng = Sheet1.Range("A1:F23") '这里是要设置条件格式的区域， ...

果断回复，留下脚印