Kako uporabljati funkcijo InputBox v Excelu 2016 VBA

Funkcija VBA InputBox je uporabna za pridobivanje enega samega podatka, ki ga je vnesel uporabnik v Excle 2016. Te informacije so lahko vrednost, besedilni niz ali celo naslov obsega. To je dobra alternativa razvoju uporabniškega obrazca, ko morate dobiti samo eno vrednost.

Sintaksa InputBox

Tukaj je poenostavljena različica sintakse funkcije InputBox:

InputBox(poziv[, naslov][, privzeto])

Funkcija InputBox sprejema tukaj navedene argumente.

Prepir Na kaj vpliva
Poziv Besedilo, prikazano v polju za vnos
Naslov Besedilo, prikazano v naslovni vrstici vnosnega polja
(izbirno)
Privzeto Privzeta vrednost za vnos uporabnika (izbirno)

Primer InputBox

Tukaj je izjava, ki prikazuje, kako lahko uporabite funkcijo InputBox:

TheName = InputBox ("Kako ti je ime?", "Pozdravljeni")

Ko izvedete ta stavek VBA, Excel prikaže to pogovorno okno. Upoštevajte, da ta primer uporablja samo prva dva argumenta in ne zagotavlja privzete vrednosti. Ko uporabnik vnese vrednost in klikne V redu, koda dodeli vrednost spremenljivki TheName.

Kako uporabljati funkcijo InputBox v Excelu 2016 VBA

Funkcija InputBox prikaže to pogovorno okno.

Naslednji primer uporablja tretji argument in zagotavlja privzeto vrednost. Privzeta vrednost je uporabniško ime, ki ga shrani Excel (lastnost UserName objekta Application).

Sub GetName()
  Dim TheName kot niz
  TheName = InputBox("Kako ti je ime?", _
    “Pozdravi”, Application.UserName)
Končni sub

InputBox vedno prikaže gumb Prekliči. Če uporabnik klikne Prekliči, funkcija InputBox vrne prazen niz.

Funkcija VBA InputBox vedno vrne niz, tako da, če želite dobiti vrednost, mora vaša koda opraviti nekaj dodatnih preverjanj. Naslednji primer uporablja funkcijo InputBox za pridobitev števila. Za preverjanje, ali je niz številka, uporablja funkcijo IsNumeric. Če niz vsebuje številko, je vse v redu. Če uporabniškega vnosa ni mogoče razlagati kot številko, koda prikaže okno s sporočilom.

Sub AddSheets()
  Dim Prompt kot niz
  Zatemnjen napis kot niz
  Dim DefValue As Long
  Dim NumSheets kot niz
  Poziv = "Koliko listov želite dodati?"
  Napis = "Povej mi ..."
  DefValue = 1
  NumSheets = InputBox (poziv, napis, defValue)
  Če je NumSheets = ““ Nato Exit Sub 'Canceled
  Če IsNumeric(NumSheets) Potem
    Če je NumSheets > 0, potem Sheets.Add Count:=NumSheets
  Drugače
    MsgBox "Neveljavna številka"
  Konec Če
Končni sub

Oglejte si pogovorno okno, ki ga ustvari ta rutina.

Kako uporabljati funkcijo InputBox v Excelu 2016 VBA

Še en primer uporabe funkcije InputBox.

Druga vrsta InputBox

Informacije, predstavljene tukaj, veljajo za funkcijo VBA InputBox. Zdi se, da Microsoft obožuje zmedo, zato imate dostop tudi do metode InputBox , ki je metoda predmeta Application.

Ena velika prednost uporabe metode Application InputBox je, da lahko vaša koda zahteva izbiro obsega. Uporabnik lahko nato izbere obseg na delovnem listu tako, da označi celice. Tukaj je hiter primer, ki uporabnika pozove, da izbere obseg:

Sub GetRange()
  Dim Rng As Range
  Ob napaki Nadaljuj naprej
  Nastavi Rng = Application.InputBox _
    (poziv:=»Določite obseg:«, Vrsta:=8)
  Če Rng ni nič, zapustite Sub
  MsgBox »Izbrali ste obseg« & Rng.Address
Končni sub

Takole je videti.

Kako uporabljati funkcijo InputBox v Excelu 2016 VBA

Za pridobitev obsega uporabite metodo Application InputBox.

V tem preprostem primeru koda pove uporabniku naslov obsega, ki je bil izbran. V resničnem življenju bi vaša koda dejansko naredila nekaj uporabnega z izbranim obsegom. Lepa stvar tega primera je, da Excel poskrbi za ravnanje z napakami. Če vnesete nekaj, kar ni obseg, vam Excel o tem pove in vam omogoči, da poskusite znova.

Metoda Application.InputBox je podobna funkciji VBA InputBox, vendar ima tudi nekaj razlik. Za popolne podrobnosti preverite sistem pomoči.

Leave a Comment

Kako dokazati besedilo v tujem jeziku v Wordu 2016

Kako dokazati besedilo v tujem jeziku v Wordu 2016

V interesu kozmopolitizma vam Word 2016 omogoča delo s tujimi jeziki. Naučite se, kako vnesti in urediti besedilo v tujem jeziku, ter preveriti črkovanje in slovnico.

Filtriranje in razvrščanje podatkov vrtilne tabele v Excelu 2019

Filtriranje in razvrščanje podatkov vrtilne tabele v Excelu 2019

Učinkovito filtriranje in razvrščanje podatkov v vrtilni tabeli Excel 2019 za boljša poročila. Dosežite hitrejše analize z našimi namigi in triki!

Kaj pomenijo sporočila o napakah reševalca v Excelu?

Kaj pomenijo sporočila o napakah reševalca v Excelu?

Reševalec v Excelu je močno orodje za optimizacijo, ki lahko naleti na težave. Razumevanje sporočil o napakah reševalca vam lahko pomaga rešiti težave in optimizirati vaše matematične modele.

Teme za PowerPoint 2019

Teme za PowerPoint 2019

Odkrijte različne <strong>teme PowerPoint 2019</strong> in kako jih lahko uporabite za izboljšanje vaših predstavitev. Izberite najboljšo temo za vaše diapozitive.

Kako uporabljati distribucije hi-kvadrat v Excelu

Kako uporabljati distribucije hi-kvadrat v Excelu

Nekateri statistični ukrepi v Excelu so lahko zelo zmedeni, vendar so funkcije hi-kvadrat res praktične. Preberite vse opise funkcij hi-kvadrat za bolje razumevanje statističnih orodij.

Kako dodati obrobo strani v Word 2013

Kako dodati obrobo strani v Word 2013

V tem članku se naučite, kako dodati <strong>obrobo strani</strong> v Word 2013, vključno z različnimi slogi in tehnikami za izboljšanje videza vaših dokumentov.

Kako delati z več dokumenti v Wordu 2013

Kako delati z več dokumenti v Wordu 2013

Ni vam treba omejiti uporabe urejevalnika besedil na delo z enim samim dokumentom. Učinkovito delajte z več dokumenti v Wordu 2013.

Kako dodati komentarje v predstavitev PowerPoint 2013

Kako dodati komentarje v predstavitev PowerPoint 2013

Sodelovanje pri predstavitvi, ustvarjeni v PowerPointu 2013, je lahko tako preprosto kot dodajanje komentarjev. Odkrijte, kako učinkovito uporabljati komentarje za izboljšanje vaših predstavitev.

Kako spremeniti nastavitve preverjanja črkovanja in slovnice v Wordu 2016

Kako spremeniti nastavitve preverjanja črkovanja in slovnice v Wordu 2016

Ugotovite, kako prilagoditi nastavitve preverjanja črkovanja in slovnice v Wordu 2016, da izboljšate svoje jezikovne sposobnosti.

Kaj so izročki v PowerPointu 2013?

Kaj so izročki v PowerPointu 2013?

PowerPoint 2013 vam ponuja različne načine za izvedbo predstavitve, vključno s tiskanjem izročkov. Izročki so ključnega pomena za izboljšanje vaše predstavitve.