none
Sustituir la función IF por CASE RRS feed

  • Pregunta

  • Muy buenas, a ver, tengo una sentencia hecha con IF y funciona, pero quiero pasarla a CASE para no tener tantos IF  estoy en ello pero no me sale. Tengo lo siguiente:

    Private Sub CommandButton1_Click()
    Dim comparación As Integer
    comparación = StrComp(txt1, "Sección A") 
    If comparación = 0 Then
    MsgBox "Es igual"
    Else
    MsgBox "No es igual"
    End If
    End Sub


    Un saludo, José M. Palma

    sábado, 1 de marzo de 2014 13:30

Respuestas

  • El textbox toma el valor cero porque le estás asignando txt1 = 0

    Para pasar del bloque If al Case sería algo como

    Private Sub CommandButton1_Click()
    Dim comparación As Integer
    comparación = StrComp(txt1, "Sección A") 
    Select Case comparación
       Case 0
          MsgBox "Es igual"
       Case Else
          MsgBox "No es igual"
    End Select
    End Sub


    Saludos, Javier J

    • Marcado como respuesta José M. Palma miércoles, 5 de marzo de 2014 16:22
    lunes, 3 de marzo de 2014 8:25

Todas las respuestas

  • Sigo probando y me funciona pero me pone a 0 el textbox no queda lo que escribo en el:

    Private Sub CommandButton2_Click()

    Dim comparación1 As Integer
    Dim comparación2 As Integer
    Dim t As String
    comparación1 = StrComp(txt1, "Sección A")
    comparación2 = StrComp(txt1, "Sección B")
    txt1 = 0
    t = txt1

    Select Case t
    Case comparación1
    MsgBox "Son iguales (Sección A)"
    Case comparación2
    MsgBox "Son iguales (Sección B)"
    Case Else
    MsgBox "No son iguales"
    End Select

    End Sub


    Un saludo, José M. Palma

    sábado, 1 de marzo de 2014 13:54
  • El textbox toma el valor cero porque le estás asignando txt1 = 0

    Para pasar del bloque If al Case sería algo como

    Private Sub CommandButton1_Click()
    Dim comparación As Integer
    comparación = StrComp(txt1, "Sección A") 
    Select Case comparación
       Case 0
          MsgBox "Es igual"
       Case Else
          MsgBox "No es igual"
    End Select
    End Sub


    Saludos, Javier J

    • Marcado como respuesta José M. Palma miércoles, 5 de marzo de 2014 16:22
    lunes, 3 de marzo de 2014 8:25
  • Gracias Javier me ha servido.


    Un saludo, José M. Palma

    lunes, 3 de marzo de 2014 12:01