Kako koristiti funkciju InputBox u programu Excel 2016 VBA

Funkcija VBA InputBox korisna je za dobivanje jedne informacije koju je korisnik unio u Excle 2016. Te informacije mogu biti vrijednost, tekstualni niz ili čak adresa raspona. Ovo je dobra alternativa razvoju korisničkog obrasca kada trebate dobiti samo jednu vrijednost.

Sintaksa InputBoxa

Evo pojednostavljene verzije sintakse funkcije InputBox:

InputBox(prompt[, naslov][, zadano])

Funkcija InputBox prihvaća ovdje navedene argumente.

Argument Što Utječe
Potaknuti Tekst prikazan u okviru za unos
Titula Tekst prikazan u naslovnoj traci okvira za unos
(izborno)
Zadano Zadana vrijednost za korisnički unos (izborno)

Primjer InputBoxa

Evo izjave koja pokazuje kako možete koristiti funkciju InputBox:

TheName = InputBox ("Kako se zovete?", "Pozdrav")

Kada izvršite ovu VBA naredbu, Excel prikazuje ovaj dijaloški okvir. Primijetite da ovaj primjer koristi samo prva dva argumenta i ne daje zadanu vrijednost. Kada korisnik unese vrijednost i klikne OK, kod dodjeljuje vrijednost varijabli TheName.

Kako koristiti funkciju InputBox u programu Excel 2016 VBA

Funkcija InputBox prikazuje ovaj dijaloški okvir.

Sljedeći primjer koristi treći argument i daje zadanu vrijednost. Zadana vrijednost je korisničko ime koje je pohranio Excel (svojstvo UserName objekta Application).

Sub GetName()
  Zatamnite ime kao string
  TheName = InputBox("Kako se zovete?", _
    “Pozdrav”, Application.UserName)
Kraj Sub

InputBox uvijek prikazuje gumb Odustani. Ako korisnik klikne Odustani, funkcija InputBox vraća prazan niz.

VBA-ova funkcija InputBox uvijek vraća string, pa ako trebate dobiti vrijednost, vaš kod treba dodatno provjeriti. Sljedeći primjer koristi funkciju InputBox za dobivanje broja. Koristi funkciju IsNumeric za provjeru je li niz broj. Ako niz sadrži broj, sve je u redu. Ako se unos korisnika ne može protumačiti kao broj, kod prikazuje okvir s porukom.

Sub AddSheets()
  Dim Prompt kao string
  Zatamnjen natpis kao niz
  Dim DefValue As Long
  Dim NumSheets kao string
  Prompt = "Koliko listova želite dodati?"
  Naslov = "Reci mi..."
  DefValue = 1
  NumSheets = InputBox (Prompt, Caption, DefValue)
  Ako je NumSheets = ““ Zatim Exit Sub 'Canceled
  Ako je Numeric(NumSheets) Onda
    Ako je NumSheets > 0 onda Sheets.Add Count:=NumSheets
  Drugo
    MsgBox "Nevažeći broj"
  Završi ako
Kraj Sub

Provjerite dijaloški okvir koji proizvodi ova rutina.

Kako koristiti funkciju InputBox u programu Excel 2016 VBA

Još jedan primjer korištenja funkcije InputBox.

Druga vrsta InputBoxa

Ovdje predstavljene informacije odnose se na VBA-ovu funkciju InputBox. Čini se da Microsoft voli zbrku, tako da također imate pristup metodi InputBox , koja je metoda objekta Application.

Jedna velika prednost korištenja metode Application InputBox je da vaš kod može tražiti odabir raspona. Korisnik tada može odabrati raspon na radnom listu označavanjem ćelija. Evo kratkog primjera koji od korisnika traži da odabere raspon:

Pod GetRange()
  Dim Rng As Range
  U slučaju pogreške Nastavi dalje
  Postavite Rng = Application.InputBox _
    (prompt:=“Odredi raspon:”, Vrsta:=8)
  Ako Rng nije ništa, izađite iz Sub
  MsgBox “Odabrali ste raspon” & Rng.Address
Kraj Sub

Ovako to izgleda.

Kako koristiti funkciju InputBox u programu Excel 2016 VBA

Upotreba metode Application InputBox za dobivanje raspona.

U ovom jednostavnom primjeru, kod govori korisniku adresu raspona koji je odabran. U stvarnom životu, vaš bi kod zapravo učinio nešto korisno s odabranim rasponom. Lijepa stvar u ovom primjeru je da se Excel brine za rukovanje pogreškama. Ako unesete nešto što nije raspon, Excel vam govori o tome i dopušta vam da pokušate ponovno.

Metoda Application.InputBox slična je VBA-ovoj funkciji InputBox, ali također ima neke razlike. Provjerite sustav pomoći za potpune pojedinosti.

Leave a Comment

Kako postaviti upit u bazu podataka MS Access 2019

Kako postaviti upit u bazu podataka MS Access 2019

Naučite kako postaviti upite u Access bazi podataka uz jednostavne korake i savjete za učinkovito filtriranje i sortiranje podataka.

Osnove tabulatora u programu Word 2013

Osnove tabulatora u programu Word 2013

Tabulatori su oznake položaja u odlomku programa Word 2013 koje određuju kamo će se točka umetanja pomaknuti kada pritisnete tipku Tab. Otkrijte kako prilagoditi tabulatore i optimizirati svoj rad u Wordu.

Kako odabrati i poništiti odabir blokova teksta u Wordu 2010

Kako odabrati i poništiti odabir blokova teksta u Wordu 2010

Word 2010 nudi mnoge načine označavanja i poništavanja odabira teksta. Otkrijte kako koristiti tipkovnicu i miš za odabir blokova. Učinite svoj rad učinkovitijim!

Kako uvući pasus u Wordu 2013

Kako uvući pasus u Wordu 2013

Naučite kako pravilno postaviti uvlaku za odlomak u Wordu 2013 kako biste poboljšali izgled svog dokumenta.

Kako otvoriti i zatvoriti PowerPoint 2019 prezentacije

Kako otvoriti i zatvoriti PowerPoint 2019 prezentacije

Naučite kako jednostavno otvoriti i zatvoriti svoje Microsoft PowerPoint 2019 prezentacije s našim detaljnim vodičem. Pronađite korisne savjete i trikove!

Kako crtati jednostavne objekte u PowerPointu 2013

Kako crtati jednostavne objekte u PowerPointu 2013

Saznajte kako crtati jednostavne objekte u PowerPoint 2013 uz ove korisne upute. Uključuje crtanje linija, pravokutnika, krugova i više.

Kako filtrirati podatke u programu Access 2016

Kako filtrirati podatke u programu Access 2016

U ovom vodiču vam pokazujemo kako koristiti alat za filtriranje u programu Access 2016 kako biste lako prikazali zapise koji dijele zajedničke vrijednosti. Saznajte više o filtriranju podataka.

Formule za zaokruživanje brojeva u Excelu

Formule za zaokruživanje brojeva u Excelu

Saznajte kako koristiti Excelove funkcije zaokruživanja za prikaz čistih, okruglih brojeva, što može poboljšati čitljivost vaših izvješća.

Kako dizajnirati različita zaglavlja i podnožja za različite stranice u programu Word 2013

Kako dizajnirati različita zaglavlja i podnožja za različite stranice u programu Word 2013

Zaglavlje ili podnožje koje postavite isto je za svaku stranicu u vašem Word 2013 dokumentu. Otkrijte kako koristiti različita zaglavlja za parne i neparne stranice.

Excel izvješća: prilagođeno oblikovanje brojeva

Excel izvješća: prilagođeno oblikovanje brojeva

Poboljšajte čitljivost svojih Excel izvješća koristeći prilagođeno oblikovanje brojeva. U ovom članku naučite kako se to radi i koja su najbolja rješenja.