首页 › 实战技术 › 选中区域大于100单元格底色显示红色

nnsea 发表于 2024-1-27 19:57:06

选中区域大于100单元格底色显示红色

Sub AutoFillColor()
    Dim rng As Range
    For Each rng In Selection
      If rng.Value > 100 Then
            rng.Interior.Color = RGB(255, 0, 0)
      End If
    Next rng
End Sub

查看完整版本: 选中区域大于100单元格底色显示红色