列と比較してループを作成する方法

Question

列APが列Xより大きい場合はメッセージを表示しますが、このメッセージは一度しか表示されないようにしたいと考えています。たとえば、セルap7がメッセージを表示するよりもx7より大きい場合、ユーザーはokをクリックします。次に、セルap8がx8より小さい場合、以前の検証からのメッセージが再度表示されないようにします。

Dim lstrw As Long 
Dim i As Long 

    With Sheets("Main") 
     lstrw = .Range("AP" & Rows.Count).End(xlUp).Row 
     For i = 2 To lstrw 
      If .Cells(i, "AP").value > .Cells(i, "X").value Then 
       MsgBox "Your Pieces Are Over Suggested", vbOKOnly 
       Exit For 
      End If 
     Next i 
    End With 

Answer 1

これはそれを行う必要があります。

Private Sub Worksheet_Calculate() 

Dim lstrw As Long 
Dim i As Long 

With Sheets("Main") 
    lstrw = .Range("AP" & Rows.Count).End(xlUp).Row 
    For i = 2 To lstrw 
     If .Cells(i, "AP").Value > .Cells(i, "X").Value Then 
      MsgBox "Your Pieces Are Over Suggested", vbOKOnly 
      Exit For 
     End If 
    Next i 
End with 
End Sub 

Answer 2

あなたはVBAなしで簡単に行うことができます。 3列目の（IのZを使用します）、最初の行のインデックスと1を置き換え、カラムダウン次の数式をコピーして貼り付ける：

=AP1>X1 

そして近くのセルに、

=COUNTIF($Z$1:$Z$N, FALSE) 

を行います

ここで、Nは最後の行のインデックスです。そのセルの値が0より大きいかどうかを確認することができます。