恳请高手师傅们帮忙看下这个提示按钮不被触发的时候不出现提示的代码咋修改

qiongmei6

我附件里有个代码，当他执行的时候，他会判断s列出现班主任和级组长的时候，他对应的aa列的数据如果>3500的时候，则弹出一条提示：以下出现名单的" & c & "人本身已经享受班主任或者级组长的工资,名单如下：，但是这个代码在s列出现班主任和级组长的时候，他对应的aa列的数据如果<3500的时候，一样也弹出提示，只不过没有名字，我希望高手师傅们能帮忙修改这个代码，在s列出现班主任和级组长的时候，他对应的aa列的数据如果<3500的时候，不出现提示，如果s列出现班主任和级组长的时候，他对应的aa列的数据如果>3500的时候，则弹出的提示和之前一样，有名字出现，再次谢谢高手师傅们的帮忙。

shiruiqiang

qiongmei6

谢谢shiruiqiang师傅的回答，您理解错我的意思了，我的意思是s列有班主任或者级组长，aa列>3500弹出原来代码那种提示，否则就是啥提示都没有。能否麻烦您再帮忙看下，再次谢谢您的回答

boyayes

试试看。

友情提示，Msgbox对话框，最大能显示的字符数量是1024，假如你的实际的名单有可能很长的话，要考虑使用其它方法显示名单，比如把名单显示在工作表的某列中。

chinaghost

qiongmei6 发表于 2024-2-12 16:43
谢谢shiruiqiang师傅的回答，您理解错我的意思了，我的意思是s列有班主任或者级组长，aa列>3500弹出原来代 ...

楼主，shiruiqiang的代码，你测试了吗？我看没有问题啊。如果S列没有班主任或级组长，不提示，只要删掉第2条提示即可啊.

3190496160

Sub 工资检查()
Dim a, b, c
For a = 3 To 1000
If Sheet13.Cells(a, 19) = "级组长" Or Sheet13.Cells(a, 19) = "班主任" Then
    If Sheet13.Cells(a, 27) > 3500 Then
        If b = "" Then
            b = Sheet13.Cells(a, 4)
        Else
            b = b & Chr(10) & Sheet13.Cells(a, 4)
        End If
        c = c + 1
  End If
End If
Next
If c > 0 Then
    MsgBox "以下出现名单的" & c & "人本身已经享受班主任或者级组长的工资，名单如下" & b
Else
    MsgBox "检查通过！"
End If
End Sub