输入项不得大于特定的修订号

Question

我正在创建一个模板，希望我的总行值不大于4。如果用户尝试输入大于4，则它应严格，并向用户显示一个msgbox，说在另一个位置输入时间。 / p>

VBA EXCEL

Private Sub Worksheet_Calculate()
If Range("A1:AS15").Value > 4 Then
MsgBox "Invalid entry. Enter value in another slot!", vbRetryCancel + vbExclamation
End If
End Sub

此代码对我有用，但是一旦单击“确定”按钮，该值就会插入到该单元格中，则不应在该单元格中输入。

Answer 1

我认为您可以尝试：

步骤：

1. 打开VBA编辑器
2. 双击要导入代码的工作表（其中显示Range（“ A1：AS15”）的工作表。
3. 由常规（位于左侧水平框-选择工作簿）组成。
4. 代替 SelectionChange （右侧的水平框-选择 更改）。

5. 之间：

   Private Sub Worksheet_Change(ByVal Target As Range)
   
   End Sub
   

导入：

    If Not Intersect(Target, Range("A1:AS15")) Is Nothing Then

        If Target.Value > 4 Then
            MsgBox "Invalid entry. Enter value in another slot!", vbRetryCancel + vbExclamation
            Target.Value = ""
        End If

    End If