Funkcia VBA InputBox je užitočná na získanie jednej informácie zadanej používateľom v programe Excle 2016. Týmito informáciami môže byť hodnota, textový reťazec alebo dokonca adresa rozsahu. Toto je dobrá alternatíva k vývoju UserForm, keď potrebujete získať iba jednu hodnotu.
Tu je zjednodušená verzia syntaxe funkcie InputBox:
InputBox(výzva[, názov][, predvolené])
Funkcia InputBox akceptuje tu uvedené argumenty.
| Argumentovať | Čo to ovplyvňuje |
|---|---|
| Prompt | Text zobrazený vo vstupnom poli |
| Názov | Text zobrazený v záhlaví vstupného poľa (voliteľné) |
| Predvolené | Predvolená hodnota pre vstup používateľa (voliteľné) |
Tu je vyhlásenie, ktoré ukazuje, ako môžete použiť funkciu InputBox:
TheName = InputBox(“Ako sa voláš?”, “Pozdrav”)
Keď spustíte tento príkaz VBA, Excel zobrazí toto dialógové okno. Všimnite si, že tento príklad používa iba prvé dva argumenty a neposkytuje predvolenú hodnotu. Keď používateľ zadá hodnotu a klikne na tlačidlo OK, kód priradí hodnotu premennej TheName.
Funkcia InputBox zobrazí toto dialógové okno.
Nasledujúci príklad používa tretí argument a poskytuje predvolenú hodnotu. Predvolená hodnota je používateľské meno uložené v Exceli (vlastnosť UserName objektu Application).
Sub GetName()
Dim TheName As String
TheName = InputBox("Ako sa voláš?", _
"Pozdravy", Application.UserName)
End Sub
InputBox vždy zobrazuje tlačidlo Zrušiť. Ak používateľ klikne na tlačidlo Zrušiť, funkcia InputBox vráti prázdny reťazec.
Funkcia InputBox VBA vždy vracia reťazec, takže ak potrebujete získať hodnotu, váš kód musí vykonať ďalšiu kontrolu. Nasledujúci príklad používa funkciu InputBox na získanie čísla. Používa funkciu IsNumeric na kontrolu, či reťazec je číslo. Ak reťazec obsahuje číslo, všetko je v poriadku. Ak zadanie používateľa nemožno interpretovať ako číslo, kód zobrazí okno s hlásením.
Sub AddSheets()
Dim Prompt As String
Dim Caption As String
Dim DefValue As Long
Dim NumSheets ako reťazec
Výzva = „Koľko listov chcete pridať?“
Popis = „Povedz mi...“
DefValue = 1
NumSheets = InputBox (výzva, popis, DefValue)
Ak NumSheets = „“ Potom Exit Sub 'Canceled
If IsNumeric(NumSheets) Then
Ak NumSheets > 0, potom Sheets.Add Count:=NumSheets
Inak
MsgBox „Neplatné číslo“
Koniec Ak
End Sub
Pozrite si dialógové okno, ktoré táto rutina vytvára.
Ďalší príklad použitia funkcie InputBox.
Tu uvedené informácie sa vzťahujú na funkciu InputBox VBA. Zdá sa, že Microsoft miluje zmätok, takže máte prístup aj k metóde InputBox , čo je metóda objektu Application.
Jednou veľkou výhodou použitia metódy Application InputBox je, že váš kód môže vyzvať na výber rozsahu. Používateľ potom môže vybrať rozsah v pracovnom hárku zvýraznením buniek. Tu je rýchly príklad, ktorý vyzve používateľa, aby si vybral rozsah:
Sub GetRange()
Dim Rng As Range
Pri chybe Pokračujte ďalej
Nastaviť Rng = Application.InputBox _
(výzva:=“Zadajte rozsah:”, Typ:=8)
Ak Rng nie je nič, ukončite Sub
MsgBox “Vybrali ste rozsah” & Rng.Address
End Sub
Takto to vyzerá.
Pomocou metódy Application InputBox získate rozsah.
V tomto jednoduchom príklade kód povie používateľovi adresu rozsahu, ktorý bol vybraný. V reálnom živote by váš kód skutočne urobil niečo užitočné s vybraným rozsahom. Na tomto príklade je pekné, že Excel sa stará o spracovanie chýb. Ak zadáte niečo, čo nie je rozsah, Excel vám o tom povie a umožní vám to skúsiť znova.
Metóda Application.InputBox je podobná funkcii InputBox vo VBA, má však aj určité rozdiely. Úplné podrobnosti nájdete v systéme pomoci.
Ako zablokovať Microsoft Word otváranie súborov v režime len na čítanie v systéme Windows Microsoft Word otvára súbory v režime len na čítanie, takže ich nie je možné upravovať? Nebojte sa, metódy sú uvedené nižšie
Ako opraviť chyby pri tlači nesprávnych dokumentov Microsoft Word Chyby pri tlači dokumentov Word so zmeneným typom písma, chaotickými odsekmi, chýbajúcim textom alebo strateným obsahom sú pomerne časté. Avšak, nie
Ak ste použili pero alebo zvýrazňovač na kreslenie na powerpointové snímky počas prezentácie, môžete si kresby uložiť pre ďalšiu prezentáciu alebo ich vymazať, aby ste pri ďalšom zobrazení začali s čistými powerpointovými snímkami. Ak chcete vymazať kresby perom a zvýrazňovačom, postupujte podľa týchto pokynov: Vymazanie riadkov jedna na […]
Knižnica štýlov obsahuje súbory CSS, súbory XSL (Extensible Stylesheet Language) a obrázky používané preddefinovanými vzorovými stránkami, rozloženiami strán a ovládacími prvkami v SharePointe 2010. Ak chcete nájsť súbory CSS v knižnici štýlov publikačnej lokality: Vyberte Akcie lokality→Zobraziť Všetok obsah stránky. Zobrazí sa obsah stránky. Knižnica štýlov sa nachádza v […]
Nezahlcujte svoje publikum obrovskými číslami. V programe Microsoft Excel môžete zlepšiť čitateľnosť svojich tabúľ a zostáv formátovaním čísel tak, aby sa zobrazovali v tisíckach alebo miliónoch.
Zistite, ako používať nástroje sociálnych sietí SharePoints, ktoré umožňujú jednotlivcom a skupinám komunikovať, spolupracovať, zdieľať a spájať sa.
Juliánske dátumy sa často používajú vo výrobných prostrediach ako časová pečiatka a rýchla referencia pre číslo šarže. Tento typ kódovania dátumu umožňuje maloobchodníkom, spotrebiteľom a servisným zástupcom identifikovať, kedy bol produkt vyrobený, a teda aj vek produktu. Juliánske dátumy sa používajú aj v programovaní, armáde a astronómii. Rôzne […]
V Accesse 2016 môžete vytvoriť webovú aplikáciu. Čo je to teda webová aplikácia? Web znamená, že je online a aplikácia je len skratka pre „aplikáciu“. Vlastná webová aplikácia je online databázová aplikácia, ku ktorej sa pristupuje z cloudu pomocou prehliadača. Vytvárate a udržiavate webovú aplikáciu vo verzii pre počítače […]
Väčšina stránok v SharePointe 2010 zobrazuje zoznam navigačných prepojení na paneli Rýchle spustenie pozdĺž ľavej strany stránky. Panel Rýchle spustenie zobrazuje prepojenia na odporúčaný obsah lokality, ako sú zoznamy, knižnice, lokality a publikačné stránky. Panel Rýchle spustenie obsahuje dva veľmi dôležité odkazy: Odkaz na celý obsah lokality: […]
Pre jednoduché problémy Riešiteľ v Exceli zvyčajne rýchlo nájde optimálne hodnoty premennej Riešiteľ pre cieľovú funkciu. V niektorých prípadoch má však Riešiteľ problém nájsť hodnoty premennej Riešiteľ, ktoré optimalizujú cieľovú funkciu. V týchto prípadoch Riešiteľ zvyčajne zobrazí hlásenie alebo chybové hlásenie, ktoré popisuje alebo diskutuje problém, ktorý […]
