恳请高手师傅们帮忙解决这个指定条件弹出来的提示

qiongmei6

我想求得一个代码，在r列如果显示是班主任或者级组长，如果x列内的数字超过3500，则会提示c列的名字的钱数超过3500，例如我希望这个代码执行完毕后，弹出个提示“级组长或者班主任标准超过3500，名单如下，
张4
李5
如按确定执行，按否定退出”，
谢谢各位大师的帮忙。

phanmin

直接做个辅助列算了，vba的话你就写个单元格区域循环

qiongmei6

不明白，啥意思呢，用公式可能不行，我是思路是放入检查里，平常不触动这个检查的

02761752696

qiongmei6 发表于 2022-11-19 15:03
不明白，啥意思呢，用公式可能不行，我是思路是放入检查里，平常不触动这个检查的

这个意思吗？供参考......

彭奇虎

Sub 检查()
Dim a, b, c
b = "："
For a = 5 To 100
If Sheet7.Cells(a, 18) = "级组长" Or Sheet7.Cells(a, 18) = "班主任" Then
  If Sheet7.Cells(a, 24) > 3500 Then
   b = b & Chr(10) & Sheet7.Cells(a, 3)
   c = c + 1
  End If
End If
Next
MsgBox "超过标准" & c & "人 ,名单如下" & b
End Sub

看看是不是想要的结果

qiongmei6

是，都是我想要的，感谢大师们