弹窗提示符合条件的数据

SCWYZJ

求助：怎样实现用VBA把表符合设定条件的数据加上颜色，以及每次打开此工作表时自动弹出提示窗（窗体上同时显示符合条件的物品编码+物品名称+剩余天数）,详见附件！麻烦各位老师帮帮忙，谢谢小花静候！谢谢

约定的童话

窗体都设计好了，厉害

SCWYZJ

朱荣兴老师：您好！我试了下，与我要的效果还差点，我要效果是是在有数据的区域中填充底色，不是整行。还有我想知道找到几条符合要求的数据的统计结果。最好是在数据变动时再加上个刷新按钮就完美了。您看能不能再麻烦您帮忙改进一下？感谢之至！

SCWYZJ

朱老师：您好！我上传了截图，麻烦您看看，我是想在弹窗中再显示数据统计的总条数，另外，符合条件房数据区域填充底色，不是整行填充底色。谢谢

约定的童话

SCWYZJ 发表于 2019-10-28 12:15
朱老师：您好！我上传了截图，麻烦您看看，我是想在弹窗中再显示数据统计的总条数，另外，符合条件房数据区 ...

我把填色的遗漏了....用朱元帅的吧Private Sub Workbook_Open()
    Dim i, n, arr, brr
    arr = Sheet1.[a1].CurrentRegion
    ReDim brr(1 To UBound(arr), 1 To 3)
    For i = 2 To UBound(arr)
        If arr(i, 12) < 100 Then
            n = n + 1
            brr(n, 1) = arr(i, 2)
            brr(n, 2) = arr(i, 3)
            brr(n, 3) = arr(i, 12)
        End If
    Next
    [z1].Resize(UBound(brr), 3) = brr
    For i = 1 To [z65536].End(3).Row
        m = m + 1
        For j = 1 To 3

            UserForm1.TextBox1.Text = UserForm1.TextBox1.Text & " " & Cells(i, j + 25)
        Next
        UserForm1.TextBox1.Text = UserForm1.TextBox1.Text & Chr(10)
    Next
    [Z:AB] = ""
    UserForm1.Label1.Caption = "共找到" & m & "条符合条件的数据!"
    UserForm1.Show
End Sub

SCWYZJ

谢谢您朱荣兴老师，虽然底色解决了，总数没有，但也不错了！非常棒！我自己摸索已经弄出了。有道是约定的童话 老师的我实在没看懂。能否发个完整的实例文件给我，我自己学习学习？谢谢！