none
¿Cómo multiplicar una cadena de string por otra? RRS feed

  • Pregunta

  • Necesito crear mi función en excel para poder hacer estas multiplicaciones es decir.

    Carlos * - Juan = -Carlos*Juan

    o sea que multiplique cualquier nombre con números también por ejemplo.

    Carlos11*Juan12=Carlos11Juan12 , como si estuviera concatenando.

    y así... ¿Cómo podría programarla en VB?


    Estudiante de Ingeniería Mecatrónica

    viernes, 21 de junio de 2013 1:03

Todas las respuestas

  • No entiendo lo que quieres hacer ¿concatenar las dos cadenas?

    Saludos, Javier J

    viernes, 21 de junio de 2013 7:25
  • Si Javier, mira.

    El usuario proporciona lo siguiente: Javier11

    y luego quiere multiplicarlo por: -Raul24

    El resultado debe alojar = -Javier11Raul24

    ....

    Ahora si el usuario coloca: -Javier11

    y enseguida: -Raul24

    El resultado debe alojar= Javier11Raul24

    Porque se han multiplicado los signos, la cuestión es que la función que necesito debe multiplicar cadenas de string, no concatenar porque concatenando me daría por ejemplo

    -Javier11-Raul24 y es no me funcionaría a mi.

    ¿Podrías ayudarme?


    Estudiante de Ingeniería Mecatrónica

    sábado, 22 de junio de 2013 14:52
  • Puedes usar esta función:
    Private Function MultiplicaCadenas(Cadena1 As String, Cadena2 As String) As String
    Dim Signo1 As Integer
    Dim Signo2 As Integer
    Signo1 = 1
    Signo2 = 1
    ' Quito los espacios en blanco de las cadenas
    Cadena1 = Replace(Cadena1, " ", "")
    Cadena2 = Replace(Cadena2, " ", "")
    If Left(Cadena1, 1) = "-" Then
       Signo1 = -1
       Cadena1 = Mid(Cadena1, 2)
    End If
    If Left(Cadena2, 1) = "-" Then
       Signo2 = -1
       Cadena2 = Mid(Cadena2, 2)
    End If
    MultiplicaCadenas = Replace(Signo1 * Signo2, "1", "") & Cadena1 & Cadena2
    End Function


    Saludos, Javier J

    lunes, 24 de junio de 2013 6:59