单元格根据是否空值来判断是否填充底色

赛扣

用条件格式有限制，只能来求助VBA大神了。

判断条件有两个：
IF，A1单元格为空，则A2：A100单元格无底色；
IF，A1单元格不为空，则A2：A100单元格中，有数据的单元格就无底色，没有数据的单元格则显示底色。

求助.rar (6.55 KB, 下载次数: 11)

2018-5-28 22:05 上传

点击文件名下载附件
求助

cdcn

看错看错，不会VBA,搜瑞

赛扣

cdcn 发表于 2018-5-28 22:34
=AND($A$1"",A2="")

没那么简单。不是这样。仍然要谢谢你！

qingc0221

Sub Main()
    Dim i As Long
    Dim Rng As Range
    Dim Arr
   
    Application.ScreenUpdating = False
   
    Range("A1:A100").Interior.Color = xlNone
   
    Arr = Range("A1:A100")
    If Arr(1, 1) <> "" Then
        For i = 2 To 100
            If Arr(i, 1) = "" Then
                If Rng Is Nothing Then
                    Set Rng = Range("A" & i)
                Else
                    Set Rng = Union(Rng, Range("A" & i))
                End If
            End If
        Next i
        If Not Rng Is Nothing Then
            Rng.Interior.Color = vbYellow
        End If
    End If
   
    Application.ScreenUpdating = True
End Sub

扑腾

请见附件

set2get

=AND(A$1<>"",ISBLANK(A2))





设置应用在A2-A100

set2get

贴主的意思是想做成通用型 不用每个表添加条件格式？

赛扣

扑腾 发表于 2018-5-28 23:44
请见附件

回复得晚了，抱歉。还没下载来测试，谢谢你了！

赛扣

qingc0221 发表于 2018-5-28 23:40
Sub Main()
    Dim i As Long
    Dim Rng As Range

回复得晚了，抱歉。我复制下来测试，谢谢你了！

赛扣

set2get 发表于 2018-5-29 07:02
贴主的意思是想做成通用型 不用每个表添加条件格式？

差不多吧。主要方便录入数据的时候，知道谁漏了信息