Я продолжаю получать ошибку несоответствия в excel 2007 в VB

Надеюсь с тобой все в порядке.

Я хочу попросить помощь у моего excel vb. Я не уверен, что еще мне нужно отредактировать в моих кодах, поскольку расчёт работает, но тип рассогласования ошибок во время всплывает.

Private Sub txtQty_Change()
 VAT.Value = txtQty.Value * 0.12
End Sub

Любая помощь будет высоко оценен. благодаря

1 ответ

Попробуй это

Это гарантирует, что если txtQty_Change автоматически вызывается снова, это не создаст проблем.

Private Sub txtQty_Change()
 if Len(Trim(txtQty.Value)) = 0 Then Exit Sub
 VAT.Value = txtQty.Value * 0.12
End Sub

licensed under cc by-sa 3.0 with attribution.