请教Excel VBA语句:如果G7到N7这8个单元格中的任何一个数值,大于等于B7+C7,或者小于B7+D7,单元格O7显示为

发布网友发布时间：2022-04-27 04:44

共3个回答

热心网友时间：2023-09-11 06:08

Private Function MyFunction()
Dim I As Long
For I = 7 To 14
If Cells(7, I).Value >= Range("B7").Value + Range("C7").Value Or _
Cells(7, I).Value < Range("B7").Value + Range("D7").Value Then
Range("O7").Value = "NG"
Else
Range("O7").Value = "OK"
End If
Next
End Function

热心网友时间：2023-09-11 06:09

这个用函数公式就可以做到了
=IF(OR(COUNTIF(G7:N7,">"&B7+C7),COUNTIF(G7:N7,"<"&B7+D7)),"NG","OK")

这样试一下是不是你要的

热心网友时间：2023-09-11 06:09

Sub qqq()
myval = Range("b7").Value + Range("c7").Value
myval2 = Range("b7").Value + Range("d7").Value
For i = 7 To 14
tt = Cells(7, i).Value
If tt >= myval Or tt < myval2 Then
Range("o7") = "ng"
GoTo 10
End If
Next
Range("o7") = "ok"

10
End Sub