domingo, 22 de junio de 2008

InputBox(cuadro de entrada)



'Cuadro de dialogo de entrada

'
'Nos permitira ingresar un texto,numero o rango
'
'Sintaxis para funcion InputBox de VBA
'
'
'InputBox([prompt],[Title],[Default],{xpos],[ypos],[help file,context])
'
'Prompt : Es el texto mostrado en el cuadro de dialogo
'
'Title :(opcional)Texto de titulo para el cuadro de dialogo
'
'Default :Valor por defecto mostrado en el cuadro de dialogo
'
'Xpos,Ypos :La patalla se ubicar segun las cordenadas
'
'Helpfile ,context (opcional).el archivo de ayuda
'
'Type :Opcional.El tipo de dato devuelto como se ve en la siguiente tabla.
'
'codigo --> SIGNIFICADO
'------
'0 -----> Una fórmula
'1 -----> Un numero
'2 -----> Una cadena(texto)
'4 -----> Un valor logico(True o False)
'8 -----> Una celda de referencia ,como un objeto de rango
'16 -----> Un error de valor,como #N/A


Sub nombres()

Dim i As String
Dim a As Integer


Range("A1:A20").Select 'selecccionamos rango de trabajo

For a = 0 To Selection.Cells.Count 'relizar repeticiones para cada una de las celdas

i = (InputBox("Ingrese su nombre", "Nombre")) 'recuperamos ldsa cadena del input box

ActiveCell.Offset(a, 0).Value = i 'bajamos por las celdas de la seleccion de 1 en 1

Next a

End Sub


Sub beneficio()

Dim u As Long

Do

u = Val(InputBox("Ingrese beneficio", "Beneficio logrado"), "x") 'recuperar beneficio


Loop While u > 0 'CONTINUAR MIENTRAS > 0



End Sub