大佬们，如何设置弹窗提示

darklesson

你难道不能自己画一个窗体。里面放一个LISTBOX 或者LISTVIEW 控件。
你循环检查重复或错的时候，把这些错误信息放进去不就汇总了码

sunhui008

darklesson 发表于 2023-6-21 12:23
你难道不能自己画一个窗体。里面放一个LISTBOX 或者LISTVIEW 控件。
你循环检查重复或错的时候，把这些错 ...

关键是不会

sunhui008

大佬们，代码撸成这样了 ，但是弹窗是一条一条弹出来的，怎么能做到汇总，一个弹窗显示

tanglf188

sunhui008

tanglf188 发表于 2023-6-21 14:43

怎么弄出来的，我这个有BUG个  点击好几次确定才是最终显示

sunhui008

tanglf188 发表于 2023-6-21 14:43

还有一个问题C列到G列 空白行 但是标记背景色了， 为啥没弹出错误呀

tanglf188

sunhui008 发表于 2023-6-21 15:08
还有一个问题C列到G列 空白行 但是标记背景色了， 为啥没弹出错误呀

原来代码没判断吧，我只是把错误信息用列表框显示，别的没动

sunhui008

tanglf188 发表于 2023-6-21 15:10
原来代码没判断吧，我只是把错误信息用列表框显示，别的没动

我也不知道为什么，应该不是颜色错误了吧。








还是循环跳过单元格了

tanglf188

sunhui008 发表于 2023-6-21 15:12
我也不知道为什么，应该不是颜色错误了吧。

帮你看了下，是条件没触发，以C\D列为例，其他列照抄就可以了
            If IsEmpty(Range("C" & i).value) Then
                'MsgBox "学生姓名C列第" & i & "行：是空值"
                UserForm1.ListBox1.AddItem ("学生姓名C列第" & i & "行：是空值")
            End If
              
            ' 判断 D 列单元格背景色
            If IsEmpty(Range("D" & i).value) Then
                'MsgBox "年级名称D列第" & i & "行：是空值"
                UserForm1.ListBox1.AddItem ("年级名称D列第" & i & "行：是空值")
            Else
                If Range("D" & i).Interior.color = RGB(255, 255, 0) Then
                    'MsgBox "年级名称D列第" & i & "行：“" & Range("D" & i).value & "”未能成功替换"
                    UserForm1.ListBox1.AddItem ("年级名称D列第" & i & "行：“" & Range("D" & i).value & "”未能成功替换")
                End If
            End If

sunhui008

tanglf188 发表于 2023-6-21 15:10
原来代码没判断吧，我只是把错误信息用列表框显示，别的没动

    Dim messagecf As String
    Dim tanchuang As Long
    tanchuang = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
    For i = 2 To tanchuang
    If Not IsEmpty(Range("A" & i).value) Then


应该是上面代码的问题，怎么修改成不跳过空白格， 来进行判断背景色




            If Not IsEmpty(Range("E" & i).value) Then
            If Range("E" & i).Interior.color = RGB(255, 255, 0) Then
            UserForm1.ListBox1.AddItem ("班级名称E列第" & i & "行：“" & Range("E" & i).value & "”未能成功替换")
            ElseIf Range("E" & i).Interior.color = RGB(0, 255, 255) Then
            UserForm1.ListBox1.AddItem ("班级名称E列第" & i & "行：是空值")
            End If
            End If