Anónimo
Cadena de texto
Saludos disculpe la molestia
la duda es la siguiente tengo un campo de texto donde debo ingresar los coeficientes de una funcion ej: 2x^2 +x^1-3
lo que se ingresaria seria +2+1-3
me podrias ayudar con el bucle para capturar solo el signo y el valor
es decir
a1 = +2
a2 = +1
a3 = -3
para realizar los calculos pertinentes a la regla de simpson... No lo capturo con texbox para cada valor porque la funcion puede variar es decir puede ser hasta coeficiente 8 o superior
cadena = "+2+1-3"
mvar = Len(cadena) / 2
For i = 1 To mvar
Print Mid(cadena, i, 2)
Next
Agradeciendo la colaboración
la duda es la siguiente tengo un campo de texto donde debo ingresar los coeficientes de una funcion ej: 2x^2 +x^1-3
lo que se ingresaria seria +2+1-3
me podrias ayudar con el bucle para capturar solo el signo y el valor
es decir
a1 = +2
a2 = +1
a3 = -3
para realizar los calculos pertinentes a la regla de simpson... No lo capturo con texbox para cada valor porque la funcion puede variar es decir puede ser hasta coeficiente 8 o superior
cadena = "+2+1-3"
mvar = Len(cadena) / 2
For i = 1 To mvar
Print Mid(cadena, i, 2)
Next
Agradeciendo la colaboración
1 Respuesta
Respuesta de Raul Hernandez
1
Prueba con este código:
Sub desglosar()
Dim Val As String
Dim LenVal As Integer
Dim Coe() As String
Val = Range("A1").Value
LenVal = Len(Val)
ReDim Coe(1 To LenVal / 2) As String
For i = 1 To LenVal / 2
Coe(i) = Left(Val, 2)
Val = Right(Val, Len(Val) - 2)
Next i
End Sub
Ahora tengo una duda, tu ejemplo tiene valores de coeficientes de una sola cifra, ¿esto siempre es así?, porque el código que te di funciona para ese caso, chequéalo y avisame si los valores pueden ser de más de una cifra para modificarlo.
Sub desglosar()
Dim Val As String
Dim LenVal As Integer
Dim Coe() As String
Val = Range("A1").Value
LenVal = Len(Val)
ReDim Coe(1 To LenVal / 2) As String
For i = 1 To LenVal / 2
Coe(i) = Left(Val, 2)
Val = Right(Val, Len(Val) - 2)
Next i
End Sub
Ahora tengo una duda, tu ejemplo tiene valores de coeficientes de una sola cifra, ¿esto siempre es así?, porque el código que te di funciona para ese caso, chequéalo y avisame si los valores pueden ser de más de una cifra para modificarlo.