Bienvenidos

Más allá de los números...hay humanidad.

martes, abril 26, 2011

Convert String to Integer Visual Basic

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")

'con CInt se transforma el String en Integer
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.

Adiós.

7 comentarios:

  1. ¿Y si mi n° no es entero sino decimal?? ahhh ahí está la respuesta, mire:
    Dim 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

    ResponderBorrar
  2. Anónimo11:19 a. m.

    Thanks man!

    ResponderBorrar
  3. tengo examen el viernes de visual basic en la carrera y me ha venido de perlas. gracias ;)

    ResponderBorrar
  4. Anónimo2:40 p. m.

    Gracias ;)

    ResponderBorrar
  5. Anónimo5:16 p. m.

    Es el 2346 y tu publicación sigue sirviendo, serás recordado como un héroe

    ResponderBorrar

Gracias por comentar, gracias por su educación.