Controlar Error "División por cero" VBA Excel 2010
Hola Expertos, estoy diseñando un formulario en VBA Excel, para realizar una operación matemática, pero se me presenta el error de División por CERO cuando No todos los campos están llenos o sencillamente es cero.
No se como controlarlo, lo estoy meneando de esta forma, pero no se si haya una forma más técnica de hacerlo.
1 Respuesta
Respuesta de Dante Amor
1
Así quedaría:
Private Sub TextBox1_Change() TextBox3 = Round(Val(TextBox1) * Val(TextBox4), 2) TextBox3 = Format(TextBox3, "$ #,000.00") TextBox2 = "" If Val(TextBox4) <> 0 Then TextBox2 = Val(TextBox1) / Val(TextBox4) End If End Sub ' Private Sub TextBox4_Change() TextBox3 = Round(Val(TextBox1) * Val(TextBox4), 2) TextBox3 = Format(TextBox3, "$ #,000.00") TextBox2 = "" If Val(TextBox4) <> 0 Then TextBox2 = Val(TextBox1) / Val(TextBox4) End If End Sub
Como los códigos de los 2 eventos son iguales, puede quedar así:
Private Sub TextBox1_Change() calcular End Sub ' Private Sub TextBox4_Change() calcular End Sub ' Sub calcular() TextBox3 = Round(Val(TextBox1) * Val(TextBox4), 2) TextBox3 = Format(TextBox3, "$ #,000.00") TextBox2 = "" If Val(TextBox4) <> 0 Then TextBox2 = Val(TextBox1) / Val(TextBox4) End If End Sub
