输入时比较同一列中的两个单元格的值

Question

我可以用一个按钮来做。我需要按一下按钮进行检查。

Private Sub CommandButton1_Click()

Dim i As Integer, j As Integer, temp As Integer, rng As Range

Set rng = Range("A1").CurrentRegion

For i = 1 To rng.Count
    For j = i + 1 To rng.Count
       If rng.Cells(j) < rng.Cells(i) Then
          MsgBox "Alert -Entry in row is Less Than Previous Cell !!"
          Exit Sub
       End If
    Next j
Next i

End Sub

我需要在输入值时同时比较它们。

Answer 1

在没有VBA的情况下，仅使用Excel的内置数据验证是可能的：
参见Apply data validation to cells。

添加数据验证，例如在A2：A100范围内，并使用自定义公式=A2>=A1作为规则。并将您的消息“警告-行中的条目小于上一个单元格!!” 作为错误警报。