execl VBA 如何根据某列的每个单元格的值来判断并弹出对话框

蜗牛999

如下,现在是根据[BP1],[AF1],[Q1]三个单元格值来判断,如何改为根据整列某个单元格来判断 或者 从[BP],[AF],[Q]三列的第5行之后的值来判断??

Private Sub Worksheet_Calculate()
A = Sheets("成本表").[BP1].Value
B = Sheets("成本表").[AF1].Value
C = Sheets("成本表").[Q1].Value
If A > 0 And B = 0 Then MsgBox "提醒：请在32列“电版及其他费用”输入费用。"
If C = "输工程单开料" Or C = "特殊结构" Then MsgBox "提醒：请在22列“拼版个数”输入值。"
End Sub

08yj2001

加一个for 5 to ....的循环

蜗牛999

08yj2001 发表于 2019-3-16 11:44
加一个for 5 to ....的循环

具体怎么写?

08yj2001

....
for i = 5 to 100
A = Sheets("成本表").range("bp"&i).Value
...
...
...
next
end sub

蜗牛999

08yj2001 发表于 2019-3-16 11:58
....
for i = 5 to 100
A = Sheets("成本表").range("bp"&i).Value

谢谢大神指教!

蜗牛999

最终答案如下:
Private Sub Worksheet_Calculate()
For i = 5 To 65536
A = Sheets("成本表").Range("BP" & i).Value
B = Sheets("成本表").Range("AF" & i).Value
C = Sheets("成本表").Range("Q" & i).Value
If A > 0 And B = 0 Then MsgBox "提醒：请在32列“电版及其他费用”输入费用。"
If C = "输工程单开料" Or C = "特殊结构" Then MsgBox "提醒：请在22列“拼版个数”输入值。"
Next
End Sub