Funkcija VBA InputBox yra naudinga norint gauti vieną informaciją, kurią vartotojas įvedė „Excle 2016“. Ta informacija gali būti reikšmė, teksto eilutė ar net diapazono adresas. Tai gera alternatyva kuriant UserForm, kai reikia gauti tik vieną reikšmę.
Štai supaprastinta InputBox funkcijos sintaksė:
Įvesties laukelis (prompt[, title][, default])
Funkcija InputBox priima čia išvardytus argumentus.
| Argumentas | Ką Tai Įtakoja |
|---|---|
| Raginimas | Įvesties laukelyje rodomas tekstas |
| Pavadinimas | Tekstas, rodomas įvesties laukelio pavadinimo juostoje (pasirenkama) |
| Numatytas | Numatytoji naudotojo įvesties reikšmė (pasirenkama) |
Štai teiginys, rodantis, kaip galite naudoti funkciją InputBox:
TheName = InputBox ("Koks tavo vardas?", "Sveikinimai")
Kai vykdote šį VBA teiginį, „Excel“ rodo šį dialogo langą. Atkreipkite dėmesį, kad šiame pavyzdyje naudojami tik pirmieji du argumentai ir nepateikiama numatytoji reikšmė. Kai vartotojas įveda reikšmę ir spusteli Gerai, kodas priskiria reikšmę kintamajam TheName.
Funkcija InputBox rodo šį dialogo langą.
Šiame pavyzdyje naudojamas trečiasis argumentas ir pateikiama numatytoji reikšmė. Numatytoji reikšmė yra „Excel“ saugomas vartotojo vardas (programos objekto ypatybė UserName).
Sub GetName()
Dim TheName As String
TheName = InputBox ("Koks tavo vardas?", _
„Sveikinimai“, programa. Vartotojo vardas)
Pabaigos sub
Įvesties laukelyje visada rodomas mygtukas Atšaukti. Jei vartotojas spusteli Atšaukti, funkcija InputBox grąžina tuščią eilutę.
VBA funkcija „InputBox“ visada grąžina eilutę, taigi, jei jums reikia gauti reikšmę, jūsų kodas turi atlikti papildomą patikrinimą. Šiame pavyzdyje skaičiui gauti naudojama funkcija InputBox. Jis naudoja funkciją IsNumeric, kad patikrintų, ar eilutė yra skaičius. Jei eilutėje yra skaičius, viskas gerai. Jei vartotojo įrašas negali būti interpretuojamas kaip skaičius, kodas rodo pranešimo laukelį.
Sub AddSheets ()
Pritemdyti raginimą kaip eilutę
Pritemdyta antraštė kaip eilutė
Dim DefValue As Long
Dim NumSheets As String
Prompt = "Kiek lapų norite pridėti?"
Antraštė = „Pasakyk man…“
Numatytoji vertė = 1
NumSheets = įvesties laukelis (prompt, antraštė, numatytoji vertė)
Jei „NumSheets“ = „“ Tada išeikite iš antrinės dalies „Atšaukta“.
Jei IsSkaičius(SkaičiųSheets) Tada
Jei NumSheets > 0 Tada Sheets.Add Count:=NumSheets
Kitas
MsgBox „Neteisingas numeris“
Pabaiga, jei
Pabaigos sub
Patikrinkite dialogo langą, kurį sukuria ši rutina.
Kitas funkcijos InputBox naudojimo pavyzdys.
Čia pateikta informacija taikoma VBA „InputBox“ funkcijai. Panašu, kad „Microsoft“ mėgsta painiavą, todėl jūs taip pat turite prieigą prie „InputBox“ metodo , kuris yra programos objekto metodas.
Vienas didelis programos įvesties laukelio metodo pranašumas yra tas, kad jūsų kodas gali paraginti pasirinkti diapazoną. Tada vartotojas gali pasirinkti diapazoną darbalapyje, pažymėdamas langelius. Štai trumpas pavyzdys, raginantis vartotoją pasirinkti diapazoną:
Sub GetRange()
Dim Rng As Range
Įvykus klaidai, tęskite toliau
Nustatyti Rng = Application.InputBox _
(prompt:=„Nurodykite diapazoną:“, Tipas:=8)
Jei Rng yra nieko, išeikite iš Sub
MsgBox „Jūs pasirinkote diapazoną“ & Rng.Address
Pabaigos sub
Štai kaip atrodo.
Norėdami gauti diapazoną, naudokite Application InputBox metodą.
Šiame paprastame pavyzdyje kodas nurodo vartotojui pasirinkto diapazono adresą. Realiame gyvenime jūsų kodas iš tikrųjų būtų naudingas pasirinktam diapazonui. Puikus šio pavyzdžio dalykas yra tai, kad „Excel“ rūpinasi klaidų tvarkymu. Jei įvesite ką nors, kas nėra diapazonas, „Excel“ apie tai praneš ir leis bandyti dar kartą.
Application.InputBox metodas yra panašus į VBA funkciją InputBox, tačiau jis taip pat turi tam tikrų skirtumų. Išsamios informacijos ieškokite pagalbos sistemoje.
Kaip neleisti Microsoft Word atidaryti failų tik skaitymo režimu sistemoje Windows. Microsoft Word atidaro failus tik skaitymo režimu, todėl jų redaguoti neįmanoma? Nesijaudinkite, metodai pateikiami žemiau
Kaip ištaisyti klaidas spausdinant neteisingus Microsoft Word dokumentus.Klaidos spausdinant Word dokumentus su pakeistais šriftais, netvarkingomis pastraipomis, trūkstamo teksto ar prarasto turinio yra gana dažnos. Tačiau nereikia
Jei naudodami rašiklį ar žymeklį piešėte ant savo PowerPoint skaidrės pristatymo metu, galite išsaugoti brėžinius kitam pristatymui arba ištrinti juos, kad kitą kartą rodydami pradėtumėte nuo švarių PowerPoint skaidrių. Vykdykite šias instrukcijas, kad ištrintumėte rašiklio ir žymeklio piešinius: Trinti linijas po vieną […]
Stilių bibliotekoje yra CSS failų, XSL (Extensible Stylesheet Language) failų ir vaizdų, naudojamų iš anksto nustatytų puslapių puslapiuose, puslapių išdėstymuose ir valdikliuose „SharePoint 2010“. Norėdami rasti CSS failus publikavimo svetainės stilių bibliotekoje: pasirinkite Svetainės veiksmai → Peržiūrėti Visas svetainės turinys. Pasirodo svetainės turinys. Stiliaus biblioteka yra […]
Neužkraukite savo auditorijos milžiniškais skaičiais. Programoje „Microsoft Excel“ galite pagerinti informacijos suvestinių ir ataskaitų skaitomumą formatuodami skaičius, kad jie būtų rodomi tūkstančiais arba milijonais.
Sužinokite, kaip naudoti „SharePoints“ socialinių tinklų įrankius, leidžiančius asmenims ir grupėms bendrauti, bendradarbiauti, bendrinti ir prisijungti.
Julijaus datos dažnai naudojamos gamybos aplinkoje kaip laiko žyma ir greita partijos numerio nuoroda. Šio tipo datos kodavimas leidžia mažmenininkams, vartotojams ir paslaugų agentams nustatyti, kada produktas buvo pagamintas, taigi ir produkto amžių. Julijaus datos taip pat naudojamos programavimo, kariuomenės ir astronomijos srityse. Skirtingi […]
Galite sukurti žiniatinklio programą naudodami „Access 2016“. Taigi, kas vis dėlto yra žiniatinklio programa? Na, žiniatinklis reiškia, kad jis yra internete, o programa yra tik „programos“ santrumpa. Pasirinktinė žiniatinklio programa yra internetinė duomenų bazės programa, pasiekiama iš debesies naudojant naršyklę. Kuriate ir prižiūrite žiniatinklio programą darbalaukio versijoje […]
Daugumoje „SharePoint 2010“ puslapių sparčiojo paleidimo juostoje, esančioje kairėje puslapio pusėje, pateikiamas naršymo nuorodų sąrašas. Greitosios paleidimo juostoje rodomos nuorodos į siūlomą svetainės turinį, pvz., sąrašus, bibliotekas, svetaines ir publikavimo puslapius. Greitojo paleidimo juostoje yra dvi labai svarbios nuorodos: Visas svetainės turinys: […]
Paprastoms problemoms spręsti „Excel“ sprendėjas paprastai greitai suranda optimalias tikslinės funkcijos „Solver“ kintamųjų reikšmes. Tačiau kai kuriais atvejais „Solver“ turi problemų ieškant „Solver“ kintamųjų reikšmių, optimizuojančių tikslo funkciją. Tokiais atvejais „Solver“ paprastai rodo pranešimą arba klaidos pranešimą, kuriame aprašoma arba aptariama problema, kurią […]
