Funktsioon VBA InputBox on kasulik üheainsa teabe hankimiseks, mille kasutaja on sisestanud rakenduses Excle 2016. See teave võib olla väärtus, tekstistring või isegi vahemiku aadress. See on hea alternatiiv UserFormi arendamisele, kui teil on vaja saada ainult üks väärtus.
Siin on funktsiooni InputBox süntaksi lihtsustatud versioon:
Sisestuskast (viip[, pealkiri][, vaikimisi])
Funktsioon InputBox aktsepteerib siin loetletud argumente.
| Argument | Mida see mõjutab |
|---|---|
| Viip | Sisestuskastis kuvatav tekst |
| Pealkiri | Sisestuskasti tiitliribal kuvatav tekst (valikuline) |
| Vaikimisi | Kasutaja sisendi vaikeväärtus (valikuline) |
Siin on avaldus, mis näitab, kuidas saate funktsiooni InputBox kasutada:
TheName = InputBox ("Mis su nimi on?", "Tervitused")
Selle VBA-lause täitmisel kuvab Excel selle dialoogiboksi. Pange tähele, et see näide kasutab ainult kahte esimest argumenti ega anna vaikeväärtust. Kui kasutaja sisestab väärtuse ja klõpsab nuppu OK, määrab kood väärtuse muutujale TheName.
Funktsioon InputBox kuvab selle dialoogiboksi.
Järgmine näide kasutab kolmandat argumenti ja annab vaikeväärtuse. Vaikeväärtus on Exceli salvestatud kasutajanimi (rakendusobjekti atribuut UserName).
Sub GetName()
Dim TheName stringina
TheName = InputBox("Mis su nimi on?", _
"Tervitused", Rakendus.Kasutajanimi)
Lõpeta alam
InputBox kuvab alati nuppu Tühista. Kui kasutaja klõpsab nupul Tühista, tagastab funktsioon InputBox tühja stringi.
VBA funktsioon InputBox tagastab alati stringi, nii et kui teil on vaja väärtust saada, peab teie kood täiendavalt kontrollima. Järgmises näites kasutatakse numbri saamiseks funktsiooni InputBox. See kasutab funktsiooni IsNumeric, et kontrollida, kas string on arv. Kui string sisaldab numbrit, on kõik korras. Kui kasutaja sisestust ei saa tõlgendada numbrina, kuvab kood teatekasti.
Alam lisalehed()
Dim Prompt String
Hämarad pealdised stringina
Dim DefValue As Long
Dim NumSheets stringina
Prompt = "Mitu lehte soovite lisada?"
Pealkiri = "Räägi mulle ..."
Vaikimisi väärtus = 1
NumSheets = sisendkast (viip, pealdis, vaikeväärtus)
Kui NumSheets = "" Seejärel väljuge alamribast "Tühistatud".
Kui IsNumeric(NumSheets) Siis
Kui NumSheets > 0 Siis Sheets.Add Count:=NumSheets
Muidu
Msgbox "Vigane number"
Lõpeta Kui
Lõpeta alam
Vaadake dialoogiboksi, mille see rutiin loob.
Veel üks näide funktsiooni InputBox kasutamisest.
Siin esitatud teave kehtib VBA sisendkasti funktsiooni kohta. Microsoft näib armastavat segadust, nii et teil on juurdepääs ka meetodile InputBox , mis on rakenduse objekti meetod.
Application InputBox meetodi kasutamise üks suur eelis on see, et teie kood võib paluda vahemiku valimist. Seejärel saab kasutaja lahtreid esile tõstes valida töölehel vahemiku. Siin on kiire näide, mis palub kasutajal vahemiku valida:
Sub GetRange()
Dim Rng As Range
Vea korral Jätka järgmisena
Määra Rng = Application.Inputbox _
(prompt:=“Määra vahemik:”, Tüüp:=8)
Kui Rng pole midagi, väljuge Sub
MsgBox "Valisite vahemiku" & Rng.Address
Lõpeta alam
See näeb välja selline.
Vahemiku saamiseks meetodi Application InputBox kasutamine.
Selles lihtsas näites ütleb kood kasutajale valitud vahemiku aadressi. Reaalses elus teeks teie kood valitud vahemikuga midagi kasulikku. Selle näite hea asi on see, et Excel hoolitseb veakäsitluse eest. Kui sisestate midagi, mis ei ole vahemik, teavitab Excel teid sellest ja laseb teil uuesti proovida.
Application.InputBox meetod sarnaneb VBA funktsiooniga InputBox, kuid sellel on ka mõningaid erinevusi. Täieliku teabe saamiseks vaadake abisüsteemi.
Uurige kümmet nõuannet Microsoft Teamsiga parema koosolekukogemuse saamiseks, sealhulgas märkmete tegemine, tausta hägustamine, vaigistamine ja koosolekute salvestamine.
Lühikeses Word 2013 dokumendis saate kommentaare hõlpsalt sirvida ja uurida. Siit leiate samm-sammult, kuidas kommentaare lugeda ja eemaldada.
Mõnikord varitseb kurjus selles, mis peaks olema Word 2016 peamises mõistlikkuse hoidlas: tavalises mallifailis. Õpi, kuidas taastada normaalne mall ja eemaldada probleemid.
Kuidas lisada lõigu taane Word 2013-s, et luua selgem ja professionaalsem ilme. Meie juhend aitab sul lihtsasti navigeerida Wordi funktsioonide kaudu ja tutvustab esimeses reas taande ning rippuva taande lisamise viise.
Lisaks kuuele kiirtoimingule, mis kuvatakse Outlooki esmakordsel installimisel, on teil valida veelgi rohkemate Quick Step mallide hulgast.
Kui olete esitluse ajal PowerPointi slaididele joonistamiseks kasutanud pliiatsit või markerit, saate joonised järgmise esitluse jaoks salvestada või need kustutada, nii et järgmisel näitamisel alustate puhaste PowerPointi slaididega. Pliiatsi ja markeri jooniste kustutamiseks järgige neid juhiseid: joonte kustutamine […]
Style'i teek sisaldab CSS-faile, XSL-faile ja eelmääratletud mallilehtede, lehepaigutuste ja juhtelementide poolt kasutatavaid pilte rakenduses SharePoint 2010. CSS-failide leidmiseks avaldamissaidi stiiliteegist: valige saidi toimingud → vaade. Kogu saidi sisu. Ilmub saidi sisu. Style raamatukogu asub […]
Ärge uputage oma publikut tohutute numbritega. Microsoft Excelis saate parandada oma armatuurlaudade ja aruannete loetavust, vormindades numbrid tuhandetes või miljonites.
Siit saate teada, kuidas kasutada SharePointi suhtlusvõrgustiku tööriistu, mis võimaldavad üksikisikutel ja rühmadel suhelda, koostööd teha, jagada ja ühendada.
Julia kuupäevi kasutatakse tootmiskeskkondades sageli ajatemplina ja partiinumbri kiirviitena. Seda tüüpi kuupäevade kodeerimine võimaldab jaemüüjatel, tarbijatel ja teenindusagentidel tuvastada toote valmistamise aja ja seega toote vanuse. Juliuse kuupäevi kasutatakse ka programmeerimises, sõjaväes ja astronoomias. Erinevad […]
