[已解决]写了一段简单的代码，需要修改一下，求助

VBBOM

实现一个判断，然后进行提示，我比较菜，写的代码只能对一个单元格起作用，但其时每行数据都要判断时怎么办呢？

Private Sub Worksheet_Calculate()
    Dim i
    If Range("D3") < Range("C3") And Range("E3") = "" Then
        i = MsgBox("请注意检查", 4, "警告")
        If i = vbNo Then Application.Quit   '按下否键，直接退出EXCEL系统
    End If
End Sub

最佳答案

月排行榜 / 总排行榜

那么的帅

2013-6-22 11:36

VBBOM 发表于 2013-6-22 11:19
前半段判断后清除的可以用了，后半段用做提示的代码没有作用，符合条件后没反应，不知是怎么回事？

1. Private Sub CommandButton1_Click()
   
2.     For i = 3 To 10
   
3.         If Range("k" & i) >= Range("j" & i) Then
   
4.             Range("m" & i).ClearContents
   
5.         End If
   
6.     Next i
   
7. End Sub
   
8. Private Sub Worksheet_Calculate()
   
9.     Dim i
   
10.     y = False
    
11.     For x = 3 To 7
    
12.         If Range("k" & x) < Range("j" & x) And Range("m" & x) = "" Then
    
13.             y = True
    
14.             Exit For
    
15.         End If
    
16.     Next x
    
17.     If y = True Then
    
18.         i = MsgBox("后台检测到库存过低，需要补仓", 4, "警告")
    
19.         If i = vbNo Then Application.Quit   '按下否键，直接退出EXCEL系统
    
20.     End If
    
21. End Sub

复制代码

跳转到最佳答案楼层

w2001pf

发一个附件，再说明你的要求。

youfang

把行设为变量，用循环判断                                                   

VBBOM

看我写的比较笨的代码，谁来给我优化一下：

Private Sub CommandButton1_Click()
If Range("k3") >= Range("j3") Then
       Range("m3").ClearContents
End If
If Range("k4") >= Range("j4") Then
       Range("m4").ClearContents
End If
If Range("k5") >= Range("j5") Then
       Range("m5").ClearContents
End If
If Range("k6") >= Range("j6") Then
       Range("m6").ClearContents
End If
If Range("k7") >= Range("j7") Then
       Range("m7").ClearContents
End If
If Range("k9") >= Range("j9") Then
       Range("m9").ClearContents
End If
If Range("k10") >= Range("j10") Then
       Range("m10").ClearContents
End If
End Sub


Private Sub Worksheet_Calculate()
    Dim i
    If Range("k3") < Range("j3") And Range("m3") = "" Or Range("k4") < Range("j4") And Range("m4") = "" Or Range("k5") < Range("j5") And Range("m5") = "" Or Range("k6") < Range("j6") And Range("m6") = "" Or Range("k7") < Range("j7") And Range("m7") = "" Then
        i = MsgBox("后台检测到库存过低，需要补仓", 4, "警告")
        If i = vbNo Then Application.Quit   '按下否键，直接退出EXCEL系统
    End If
End Sub

那么的帅

VBBOM 发表于 2013-6-22 10:55
看我写的比较笨的代码，谁来给我优化一下：

Private Sub CommandButton1_Click()

1. Private Sub CommandButton1_Click()
   
2.     For i = 3 To 10
   
3.         If Range("k" & i) >= Range("j" & i) Then
   
4.             Range("m" & i).ClearContents
   
5.         End If
   
6.     Next i
   
7. End Sub
   
8. 
   
9. Private Sub Worksheet_Calculate()
   
10.     Dim i
    
11.     y = False
    
12.     For x = 3 To 7
    
13.         If Range("k" & x) < Range("j" & x) And Range("m" & x) = "" Then
    
14.         Else
    
15.             y = True
    
16.             Exit For
    
17.         End If
    
18.     Next x
    
19.     If y = False Then
    
20.         i = MsgBox("后台检测到库存过低，需要补仓", 4, "警告")
    
21.         If i = vbNo Then Application.Quit   '按下否键，直接退出EXCEL系统
    
22.     End If
    
23. End Sub

复制代码

VBBOM

那么的帅 发表于 2013-6-22 11:04

前半段判断后清除的可以用了，后半段用做提示的代码没有作用，符合条件后没反应，不知是怎么回事？

那么的帅

VBBOM 发表于 2013-6-22 11:19
前半段判断后清除的可以用了，后半段用做提示的代码没有作用，符合条件后没反应，不知是怎么回事？

1. Private Sub CommandButton1_Click()
   
2.     For i = 3 To 10
   
3.         If Range("k" & i) >= Range("j" & i) Then
   
4.             Range("m" & i).ClearContents
   
5.         End If
   
6.     Next i
   
7. End Sub
   
8. Private Sub Worksheet_Calculate()
   
9.     Dim i
   
10.     y = False
    
11.     For x = 3 To 7
    
12.         If Range("k" & x) < Range("j" & x) And Range("m" & x) = "" Then
    
13.             y = True
    
14.             Exit For
    
15.         End If
    
16.     Next x
    
17.     If y = True Then
    
18.         i = MsgBox("后台检测到库存过低，需要补仓", 4, "警告")
    
19.         If i = vbNo Then Application.Quit   '按下否键，直接退出EXCEL系统
    
20.     End If
    
21. End Sub

复制代码