必填字段处理Excel VBA

Question

我有一个在Excel VBA中创建的应用程序。此应用程序需要来自用户的大量条目。提交之前，所有字段/单元格都必须具有值。检查用户在每个字段/单元格中输入值的最佳方法是什么？我可以做简单的IF调整，但这将需要永远写下我需要的大量IF。有没有更有效的方法来做到这一点？

Answer 1

您将需要使用if语句。您可以通过创建辅助函数来加速进程。这个只检查空白和数字数据。它可以修改以便于查找日期和文本

Function ValidCell(RowPos As Long, ColPos As Long) As Boolean 
    Dim ws As Worksheet 
    Dim v As Variant 

    Set ws = ActiveSheet 
    v = ws.Cells(RowPos, Colpos).Value 

    If IsEmpty(v) Or Not IsNumeric(v) Then 
     ValidCell = False 
    Else 
     ValidCell = True 
    End If 
End Function