Este post es meramente técnico y pretende ser una ayuda a aquellos que solemos olvidar las funciones de Visual Basic (o Macros) en Excel.
El programa que muestro está comprobado en Excel 2007.
Las siguientes son posibles formas de búsqueda del tema en español:
Convertir Cadena a Entero en Visual Basic
Convertir String a Entero en Visual Basic
Sub nombre ()
Dim tot_filas, cmi, cnmi As Integer
Dim tot_filas_str, cmi_str, cnmi_str As String
'cmi: columna mes inicio
'cnmi: columna nombre mes inicio
'tot_filas: total de filas
'se ingresan las variables en formato cadena:
tot_filas_str = InputBox("Ingrese la cantidad de filas del archivo")
cmi_str = InputBox("Ingrese el n° de la columna donde está el n° del mes de inicio")
cnmi_str = InputBox("Ingrese el n° de la columna donde pondrá el nombre del mes de inicio")
tot_filas_str = InputBox("Ingrese la cantidad de filas del archivo")
cmi_str = InputBox("Ingrese el n° de la columna donde está el n° del mes de inicio")
cnmi_str = InputBox("Ingrese el n° de la columna donde pondrá el nombre del mes de inicio")
'con CInt se transforma el String en Integer
cmi = CInt(cmi_str)
cnmi = CInt(cnmi_str)
tot_filas = CInt(tot_filas_str)
cmi = CInt(cmi_str)
cnmi = CInt(cnmi_str)
tot_filas = CInt(tot_filas_str)
'ahora cada una de las variables definidas como Integer, almacena un valor entero.
.
.
.
End Sub()
Si alguna vez en la vida este post llega a serle últil a alguien, por favor deje un comentario. Así sabré que he hecho un bien al mundo.
¿Y si mi n° no es entero sino decimal?? ahhh ahí está la respuesta, mire:
ResponderBorrarDim p As Double
Dim p_str As String
'ingresar el % de interés
p_str = InputBox("Ingrese el porcentaje como decimal. Ej 50% es 0.5")
p = CDbl(p_str)
CDbl: le cambia el String to Double :D
Thanks man!
ResponderBorrartengo examen el viernes de visual basic en la carrera y me ha venido de perlas. gracias ;)
ResponderBorrarGracias amigo
ResponderBorrarGracias ;)
ResponderBorrarGracias excelente
ResponderBorrarEs el 2346 y tu publicación sigue sirviendo, serás recordado como un héroe
ResponderBorrar