Lær om Input Box funktion i Excel VBA som et indledende skridt til at skabe programmer med denne indgang værktøj. Denne funktion giver en blid introduktion til at lære at programmere VBA programmer ved hånden, fordi det tager kun ét argument , men alligevel udfører den vitale funktion for at modtage bruger-input . Overveje at lære funktionen MsgBox sammen med Input Box, fordi dens rolle , visning af output for brugerne at se , er modstykket til den Input Box -funktionen. Formål

Input Box Funktionen beder en bruger for input og modtager , at input. For eksempel kan en Input Box beder en bruger om at indtaste en alder af en person , som dit program kan gemme i en tabel kaldet " Fødselsdag postliste " på et Excel-regneark .
Argumenter

Input Box tager flere argumenter , men du behøver kun at give den en - teksten beder brugeren om at indtaste data. Valgfri argumenter omfatte " Title ", som vises i Input Box titellinje. "Standard " argument er den værdi Input Box vil vende tilbage til dit program , hvis brugeren trykker "Enter" uden at indtaste en værdi. Du kan placere Input Box på et bestemt skærm position ved at specificere værdier for " XPOS " og " Ypos " argumenter .
Return Value

Input Box returnerer en streng værdi til dit program , hvilket normalt betyder, at du nødt til at erklære en variabel for at modtage funktionens returværdi . Denne erklæring kan tage en af ​​to former. Den første angiver ikke en bestemt type værdi. For eksempel kan du skrive " Dim returnValue ". Eller du kan angive strengen variable type med en erklæring som " Dim returnValue som streng. " Generelt skal du bruge den mere specifikke skrive så VBA kan fange type relaterede fejl , som når dit program forsøger at tildele et nummer til en streng variabel.
Sample Program

Prøv en prøve -program, der integrerer Input Box med Excel. Klik på " Visual Basic "-knappen i Excel fanen Udvikler for at åbne VBA programmering miljø . Kopier følgende kode : Hej

Public Sub getEmailAdr ()

Dim str_email As String

Do While ( InStr ( str_email , "@" ) = 0 )
< p> str_email = InputBox ("Indtast en gyldig e-mail -adresse. ')

Loop

Range (" A1 " ) = str_email

End Sub

indsæt koden i miljøet vindue , derefter køre programmet ved at trykke på "F5 ". Dette program beder brugeren om input , udfører en simpel fejl check, installerer derefter input værdi i et regneark celle, hvis inputværdien passerer fejlen check. Hvis det ikke sker, vil programmet fortsætte med at bede brugeren om den rigtige indgang .
Alternativer og Fordele

Input Box er kun en af ​​flere måder at få brugeren input i Excel. Du kan i stedet bruge et regneark celle eller et tekstfelt kontrol for at få input . Da Input Box accepterer tekstinput , det er ikke det bedste valg for svar på ja /nej type spørgsmål . Men en fordel ved Input Box -funktionen er, at du ikke behøver at oprette en særlig formular til at bruge det, i modsætning til VBA øvrige kontrol. A List Box kontrol , for eksempel, kræver enten en UserForm , hvor du skal skabe , eller et regneark , hvor kontrollen vil tage op skærmplads . Input Box fylder ingen plads. Det fremgår , modtager brugerinput , og forsvinder derefter , hvilket gør det meget diskret.