条目不应大于特定的固定编号。
提问于 2019-01-25 06:43:20
我正在创建一个模板，其中我希望我的总行值不应该超过4。如果用户尝试输入超过4，那么它应该严格，并向用户显示一个msgbox，告诉用户在另一个插槽中输入时间。
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此代码适用于我，但一旦单击“确定”按钮，该值将被插入到该单元格中，则不应在该单元格中输入。
回答 1
Stack Overflow用户
发布于 2019-01-25 06:57:05
我想你可以试试：
步骤：
- 打开VBA编辑器
- 双击要导入代码的工作表(工作表的范围(“a1:A1 15”)。
- Insted of General (左侧水平框-选择Workbook)。
- 而不是SelectionChange (右边的水平框-选择Change)。
- 之间： 私有子Worksheet_Change(ByVal目标作为范围)
进口：
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页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/54367520
复制相关文章
腾讯云开发者
