VBA:基于C列中的值设置单元格周围粗边框的条件格式

Sub SetBorderBasedOnValue()
    Dim rng As Range
    Dim cell As Range
    
    ' 设置要操作的单元格范围
    Set rng = Range("C1:C10")
    
    ' 循环遍历每个单元格
    For Each cell In rng
        ' 判断单元格的值是否满足条件
        If cell.Value > 10 Then
            ' 设置单元格周围的粗边框
            With cell.Borders
                .LineStyle = xlContinuous
                .Weight = xlThick
            End With
        End If
    Next cell
End Sub