如果连续找到空单元格，则弹出消息

Question

此特定Excel将位于共享文件夹中，供团队成员填写。

我想在保存之前弹出错误信息。要求是：

1. 连续填写突出显示的列（如果未填充，则在保存之前出现错误消息）。
2. 选择要填充的空单元格。
3. 如果多个必填单元格为空，请选择第一个。
4. 其他列无效（非突出显示）。



以下是我试过的代码。它只给我第一列中的空单元格。如何将其扩展到多个列？

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Dim sourceCol As Integer, rowCount As Integer, currentRow As Integer
    Dim currentRowValue As String

    sourceCol = 1   
    rowCount = Cells(Rows.Count, sourceCol).End(xlUp).Row

    For currentRow = 1 To rowCount
        currentRowValue = Cells(currentRow, sourceCol).Value
        If IsEmpty(currentRowValue) Or currentRowValue = "" Then
            Cells(currentRow, sourceCol).Select
            Exit For 
        End If



End Sub

我对VBA更新鲜。

Answer 1

您可以使用数据验证来完成您想要的任务。下面的动画gif显示了如何设置它以确保在A列中输入至少3个字符，并在用户输入少于该字符时为其提供自定义消息。注意在此之后在单元格A4中输入少于3个字符时会发生什么。您可以使用数据验证做更多的事情，这只是为了演示并让您入门。