Обязательная обработка полей 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