Jump to content
  • 34 ¿Te resultaría interesante una carpeta sobre Python para Excelen el foro?

    1. 1. ¿Te resultaría interesante una carpeta sobre Python para Excel en el foro?


      • Sí! Me interesa
      • No me interesa.
      • Otros (Escribe tu respuesta en el tema)

Contar textbox con un determinado valor o carácter


Recommended Posts

Hola  a todos

Tengo una inquietud, he buscado por los foros en la web, pero no he encontrado algo similar.

En el siguiente tema plantee una situación respecto de suma en tiempo real, y las respuestas fueron muy buenas.

Mi idea es si se puede hacer lo mismo pero utilizando la opción de contar varios textbox de acuerdo a un criterio.

Adjunto un libro con un formulario, si código, ya que no se por donde ir.

Las variables a contar serian "V", "F".

 

Saludos Cordiales

Pedro Venegas 

contarsi textbox.xlsm

Link to comment
Share on other sites

Hola a todos

Utilice el siguiente código y funciona.

Private Sub TextBox1_Change(): CountIf: End Sub
Private Sub TextBox2_Change(): CountIf: End Sub
Private Sub TextBox3_Change(): CountIf: End Sub

Private Sub CountIf()
If TextBox1 = "V" Or TextBox1 = "v" Then Tot = Tot + 1
If TextBox2 = "V" Or TextBox2 = "v" Then Tot = Tot + 1
If TextBox3 = "V" Or TextBox3 = "v" Then Tot = Tot + 1

TextBox4 = Val(Tot)

End Sub

Espero sea de ayuda para alguien mas, y mas importante espero este bien diseñado el código, no soy experto, voy por la vida probando y muchas veces arruinando.

Ideal si algún forero de vuestra opinión.

Saludos Cordiales

Pedro 

Link to comment
Share on other sites

Posted (edited)

Hola de Nuevo

Agregue un nuevo textbox, para agregar una nueva funcion.

Private Sub TextBox1_Change(): SUM: CountIf: End Sub
Private Sub TextBox2_Change(): SUM: CountIf: End Sub
Private Sub TextBox3_Change(): SUM: CountIf: End Sub

Private Sub CountIf()
If TextBox1 = "V" Or TextBox1 = "v" Then Tot = Tot + 1
If TextBox2 = "V" Or TextBox2 = "v" Then Tot = Tot + 1
If TextBox3 = "V" Or TextBox3 = "v" Then Tot = Tot + 1

TextBox4 = Val(Tot)

End Sub


Private Sub SUM()
If IsNumeric(TextBox1) Then Tot = Tot + Val(TextBox1)
If IsNumeric(TextBox2) Then Tot = Tot + Val(TextBox2)
If IsNumeric(TextBox3) Then Tot = Tot + Val(TextBox3)

TextBox5 = Val(Tot)

End Sub

Funciona Perfecto, hasta el minuto.

Saludos Cordiales

Pedro Venegas

Edited by petercien1
Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

Privacy Policy