Sunday, June 22, 2008

Burning Feet After Showering

MSGBOX InputBox function (Table input)



'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