VBA InputBox aðgerðin er gagnleg til að fá eina hluta upplýsinga sem notandinn slærð inn í Excle 2016. Þær upplýsingar gætu verið gildi, textastrengur eða jafnvel svæðisfang. Þetta er góður valkostur við að þróa UserForm þegar þú þarft að fá aðeins eitt gildi.
Inntaksbox setningafræði
Hér er einfölduð útgáfa af setningafræði InputBox fallsins:
InputBox(kvaðning[, titill][, sjálfgefið])
InputBox fallið samþykkir rökin sem talin eru upp hér.
| Rök |
Hvað það hefur áhrif |
| Hvetja |
Textinn sem birtist í inntaksreitnum |
| Titill |
Textinn sem birtist á titilstiku inntaksreitsins
(valfrjálst) |
| Sjálfgefið |
Sjálfgefið gildi fyrir inntak notandans (valfrjálst) |
Dæmi um InputBox
Hér er yfirlýsing sem sýnir hvernig þú getur notað InputBox aðgerðina:
TheName = InputBox ("Hvað heitir þú?", "Kveðja")
Þegar þú keyrir þessa VBA yfirlýsingu birtir Excel þennan valmynd. Taktu eftir að þetta dæmi notar aðeins fyrstu tvær rökin og gefur ekki upp sjálfgefið gildi. Þegar notandi slærð inn gildi og smellir á OK, úthlutar kóðinn gildinu til breytunnar TheName.

InputBox aðgerðin sýnir þennan glugga.
Eftirfarandi dæmi notar þriðju rökin og gefur upp sjálfgefið gildi. Sjálfgefið gildi er notandanafnið sem er geymt af Excel (eiginleika Notandanafns forritsins).
Undir GetName()
Dimma nafnið sem strengur
TheName = InputBox(“Hvað heitirðu?”, _
„Kveðja“, Application.UserName)
End Sub
Inntaksboxið sýnir alltaf hnappinn Hætta við. Ef notandinn smellir á Hætta við skilar InputBox aðgerðin tómum streng.
InputBox aðgerð VBA skilar alltaf streng, þannig að ef þú þarft að fá gildi þarf kóðinn þinn að gera frekari athugun. Eftirfarandi dæmi notar InputBox fallið til að fá tölu. Það notar IsNumeric fallið til að athuga hvort strengurinn sé tala. Ef strengurinn inniheldur tölu er allt í lagi. Ef ekki er hægt að túlka færslu notandans sem númer sýnir kóðinn skilaboðareit.
Sub AddSheets()
Dimmt hvetja sem strengur
Dimm myndatexti sem strengur
Dim DefValue As Long
Dimma NumSheets As String
Hvetja = "Hversu mörgum blöðum viltu bæta við?"
Yfirskrift = "Segðu mér..."
DefValue = 1
NumSheets = InputBox(Prompt, Caption, DefValue)
Ef NumSheets = ““ Þá Hætta undir 'Hætt við
Ef IsNumeric(NumSheets) Þá
Ef NumSheets > 0 Þá Sheets.Add Count:=NumSheets
Annar
MsgBox „Ógilt númer“
End If
End Sub
Skoðaðu gluggann sem þessi venja framleiðir.

Annað dæmi um notkun InputBox aðgerðarinnar.
Önnur tegund af InputBox
Upplýsingarnar sem birtar eru hér eiga við um InputBox aðgerð VBA. Microsoft virðist elska rugl, svo þú hefur líka aðgang að InputBox aðferðinni , sem er aðferð forritshlutarins.
Einn stór kostur við að nota Application InputBox aðferðina er að kóðinn þinn getur beðið um sviðsval. Notandinn getur síðan valið svið í vinnublaðinu með því að auðkenna frumurnar. Hér er fljótlegt dæmi sem hvetur notandann til að velja svið:
Undir GetRange()
Dim Rng As Range
Á Villa Resume Next
Setja Rng = Application.InputBox _
(kvaðning:=“Tilgreindu svið:”, Sláðu inn:=8)
Ef Rng er ekkert þá skaltu hætta undir
MsgBox “Þú valdir svið “ & Rng.Address
End Sub
Svona lítur þetta út.

Notaðu Application InputBox aðferðina til að fá svið.
Í þessu einfalda dæmi segir kóðinn notandanum heimilisfang sviðsins sem var valið. Í raunveruleikanum myndi kóðinn þinn í raun gera eitthvað gagnlegt við valið svið. Það skemmtilega við þetta dæmi er að Excel sér um villumeðferðina. Ef þú slærð inn eitthvað sem er ekki svið, segir Excel þér frá því og leyfir þér að reyna aftur.
Application.InputBox aðferðin er svipuð og InputBox aðgerð VBA, en hún hefur líka nokkurn mun. Athugaðu hjálparkerfið fyrir allar upplýsingar.