'login dialog box
'
'We allow you to input text, number or range
'
'Syntax for VBA InputBox function
'
'
' InputBox ([prompt], [Title], [Default], {xpos] [ypos] [help file, context])
'
' Prompt: The text shown in the dialog box
'
' Title: (optional) text of title for the dialog
'
' Default: Default value shown in the dialog box
'
' xpos, ypos: The place is Patallo according to the coordinates
'
' Helpfile, context (optional).
help file '
' Type: Opcional.El returned type as shown in the table below.
'
' code -> MEANING
'------
-----> A formula
'0 '1 '2
-----> A -----> A number string (text) '4
-----> A logical value (True or False) '8
-----> A cell reference, as a range object
'16 -----> An error value, such as # N / A Sub
names ()
As String Dim i As Integer Dim
Range ( "A1: A20"). Select 'working range
selecccionamos
For a = 0 To Selection.Cells.Count' reliza repetitions for each of the cells
i = (InputBox ("Enter your name", "Name" )) 'retrieve input box chain LDSA
ActiveCell.Offset (a, 0). Value = i' we go down the cells in the selection of 1 in 1
to
Next End Sub Sub
benefit ()
Dim u As Long
Do
u = Val (InputBox ("Enter benefit", "profit made"), "x") 'retrieve
benefit
Loop While u> 0' CONTINUE AS> 0
End Sub
0 comments:
Post a Comment