Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/14.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
所需的字段处理Excel VBA_Excel_Vba - Fatal编程技术网

所需的字段处理Excel VBA

所需的字段处理Excel VBA,excel,vba,Excel,Vba,我在Excel VBA中创建了一个应用程序。此应用程序需要用户输入大量条目。提交前,所有字段/单元格都必须具有值。检查用户在每个字段/单元格中输入值的最佳方法是什么。我可以做一些简单的假设陈述,但那将永远无法写出我需要的大量假设。有更有效的方法吗?您需要使用if语句。您可以通过创建助手函数来加快该过程。这一个只检查空数据和数字数据。可以对其进行修改,以便轻松查找日期和文本 Function ValidCell(RowPos As Long, ColPos As Long) As Boolean

我在Excel VBA中创建了一个应用程序。此应用程序需要用户输入大量条目。提交前,所有字段/单元格都必须具有值。检查用户在每个字段/单元格中输入值的最佳方法是什么。我可以做一些简单的假设陈述,但那将永远无法写出我需要的大量假设。有更有效的方法吗?

您需要使用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