При вводе 0 в поле ввода код не выполняется

Question

Я сделал форму для умножения, деления, сложения и вычитания нескольких ячеек с входным значением.

Все работает, кроме случаев, когда я ставлю 0 в поле ввода, тогда код не выполняется.

Private Sub cmdMultyply_Click()
Dim cell_value As Double
Dim rng As Range
Dim cell As Range
Dim nmr As Variant
Dim formula As String

nmr = Application.InputBox("Insert a number.", "INPUT", Type:=1)

If nmr = False Then Exit Sub

Set rng = Selection

For Each cell In rng
    If cell.Value <> "" Then
        cell_value = cell.Value
        formula = Replace(cell.FormulaLocal, "=", "")
        cell.FormulaLocal = "=(" & formula & ")" & "*" & nmr
    End If
Next

Unload Me
End Sub

Answer 1

If nmr = False Then Exit Sub

InputBox возвращает Variant.Если подтип этого варианта - Boolean, вы знаете, что вам не нужно обрабатывать его.

Итак, проверьте подтип варианта:

If VarType(nmr) = vbBoolean Then Exit Sub

А теперь оба "False" и 0 действительные значения.

Answer 2

Это потому, что

0 = False

И это выходит из подпрограммы

Изменение

If nmr = False Then Exit Sub

К

If CStr(nmr) = "False" Then Exit Sub