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

Question

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

Answer 1

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

---

Saludos, Javier J

Answer 2

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

Answer 3

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