excel - "remind"用户如何填写工作表上的单元格

Question

您好:我在名为“Docs”的工作表上有一组单元格。单元格范围为 (B13:C23)。当用户进入此页面时，他们应该用 0 到 6 之间的值填写每个单元格。我的问题:是否有一些代码可以附加到此表中，如果用户不填写单元格中包含任何内容(即，将其留空)并尝试离开工作表或关闭工作簿，他们会以某种方式提醒填写它吗？或者有没有办法让他们在完成之前不让他们离开表格？谢谢..艾伦

Answer 1

您可以将宏附加到表单的更改事件。 Excel 具有内置验证功能，但效果不佳。例如，如果有人将一个值粘贴到单元格中，它不会验证粘贴的内容。

首先通过选择要验证的单元格范围来创建范围，右键单击并选择“命名范围”。请注意，我正在使用 Excel 2007 对此进行测试。假设您将范围称为“InputRange”。

然后打开 VBA 编辑器并为更改事件创建一个过程。

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim vrange As Range, cell As Range
  Set vrange = Range("InputRange")
  If Intersect(vrange, Target) Is Nothing Then Exit Sub
  For Each cell In Intersect(vrange, Target)
     If cell.Value < 1 Or cell.Value > 6 Then
        MsgBox "Invalid Entry", vbCritical
        Application.EnableEvents = False
        cell.ClearContents
        cell.Activate
        Application.EnableEvents = True

     End If
  Next cell
End Sub

请注意，您可以附加到任何适合您的事件。