Как вычесть число из начального значения текстового поля, когда выбран определенный элемент списка

Question

У меня есть текстовое поле, которому я назначаю значение 10 во время инициализации пользовательской формы.У меня также есть comboBox, который отображает 2 элемента;и другое текстовое поле, которое запрашивает количество (число).Мне нужно иметь возможность вычесть количественное число из начального значения, которое равно 10.

Я пробовал функцию вычитания, но ничего не происходит

Private Sub btnInsert_Click()    
    Dim wks As Worksheet
    Dim AddNew As Range

    Set wks = Sheet1
    Set AddNew = wks.Range("A65356").End(xlUp).Offset(1, 0)

    AddNew.Offset(0, 0).Value = cmbProduct.Value
    AddNew.Offset(0, 1).Value = txtQuantity.Text    
End Sub


Private Sub UserForm_Initialize()    
    cmbProduct.Clear

    With cmbProduct
        .AddItem ("Chocolate")
        .AddItem ("Vanilla")
    End With

    txtChocolate.Text = 10
    txtVanilla.Text = 10 
End Sub

Answer 1

попробуй с

Private Sub txtQuantity_Change()
     If cmbProduct.Value = "chocolate" Then
        txtChocolate.Text = txtChocolate.Text - txtQuantity.Text
    ElseIf cmbProduct.Value = "Vanilla" Then
         txtVanilla.Text = txtVanilla.Text - txtQuantity.Text
    End If
end sub