Как пропустить эту строку, когда пользовательская форма пуста?

Question

Как мне пропустить эти строки в моих кодах?Так что у меня есть пользовательская форма, куда она будет вводить данные, но для некоторых данных есть процент.Поэтому я настроил это так:

With Sheets("Test")
      .cells(7,lrCal).Value = tbAvP.Text / 100
      .cells(8,lrcal).Value = tbAcc.Text / 100
end With

Я понимаю, что ошибка в том, что код читается пустым, равным нулю.Как бы это обойти, если в пользовательской форме есть пробел?

Answer 1

Вы можете добавить оператор IF:

With Sheets("Test")
    If .Cells(7, lrCal).Value <> "" or .Cells(8, lrCal).Value <> "" Then
        [your code]
    End IF
End With

Возможно, вам придется разбить это на два отдельных оператора, если один может быть пустым, и вы хотите вычислить другой. Но вышеизложенное должно дать вам общее представление о том, как с этим справиться.

Редактировать: Или, как отметил @Damian в комментарии, вы можете использовать If Not IsEmpty([cell ref]) or Not IsEmpty([other cell ref]) Then