Funkcija VBA InputBox ir noderīga, lai iegūtu vienu informāciju, ko lietotājs ierakstījis programmā Excle 2016. Šī informācija var būt vērtība, teksta virkne vai pat diapazona adrese. Šī ir laba alternatīva UserForm izstrādei, kad jāiegūst tikai viena vērtība.
Šeit ir vienkāršota funkcijas InputBox sintakses versija:
InputBox(prompt[, title][, default])
Funkcija InputBox pieņem šeit uzskaitītos argumentus.
| Arguments | Ko tas ietekmē |
|---|---|
| Pamudināt | Ievades lodziņā parādītais teksts |
| Nosaukums | Teksts, kas tiek parādīts ievades lodziņa virsrakstjoslā (neobligāti) |
| Noklusējums | Lietotāja ievades noklusējuma vērtība (neobligāti) |
Tālāk ir sniegts paziņojums, kas parāda, kā varat izmantot funkciju InputBox:
TheName = InputBox ("Kāds ir jūsu vārds?", "Sveicieni")
Kad izpildāt šo VBA priekšrakstu, programmā Excel tiek parādīts šis dialoglodziņš. Ņemiet vērā, ka šajā piemērā tiek izmantoti tikai pirmie divi argumenti un netiek nodrošināta noklusējuma vērtība. Kad lietotājs ievada vērtību un noklikšķina uz Labi, kods piešķir vērtību mainīgajam TheName.
Funkcija InputBox parāda šo dialoglodziņu.
Nākamajā piemērā tiek izmantots trešais arguments un tiek nodrošināta noklusējuma vērtība. Noklusējuma vērtība ir programmā Excel saglabātais lietotājvārds (Lietojumprogrammas objekta rekvizīts UserName).
Sub GetName()
Dim TheName kā virkne
TheName = InputBox ("Kāds ir jūsu vārds?", _
“Sveicieni”, Application.UserName)
Beigu apakš
InputBox vienmēr parāda pogu Atcelt. Ja lietotājs noklikšķina uz Atcelt, funkcija InputBox atgriež tukšu virkni.
VBA funkcija InputBox vienmēr atgriež virkni, tādēļ, ja jums ir nepieciešams iegūt vērtību, kodam ir jāveic papildu pārbaude. Nākamajā piemērā skaitļa iegūšanai tiek izmantota funkcija InputBox. Tā izmanto funkciju IsNumeric, lai pārbaudītu, vai virkne ir skaitlis. Ja virknē ir skaitlis, viss ir kārtībā. Ja lietotāja ierakstu nevar interpretēt kā skaitli, kods parāda ziņojuma lodziņu.
Sub AddSheets()
Aptumšot uzvedni kā virkni
Blāvs paraksts kā virkne
Dim DefValue As Long
Dim NumSheets kā virkni
Prompt = "Cik lokšņu vēlaties pievienot?"
Paraksts = “Pastāsti man…”
DefValue = 1
NumSheets = ievades lodziņš (uzvedne, paraksts, noklusējuma vērtība)
Ja NumSheets = "" Izejiet no apakšgrupas "Atcelts".
Ja IsNumeric(NumSheets) Tad
Ja NumSheets > 0 Tad Sheets.Add Count:=NumSheets
Citādi
MsgBox “Nederīgs numurs”
Beigas Ja
Beigu apakš
Pārbaudiet dialoglodziņu, ko rada šī rutīna.
Vēl viens funkcijas InputBox izmantošanas piemērs.
Šeit sniegtā informācija attiecas uz VBA InputBox funkciju. Šķiet, ka Microsoft mīl neskaidrības, tāpēc jums ir piekļuve arī metodei InputBox , kas ir lietojumprogrammas objekta metode.
Viena liela lietojumprogrammas ievades lodziņa metodes izmantošanas priekšrocība ir tā, ka kods var pieprasīt diapazona atlasi. Pēc tam lietotājs var atlasīt diapazonu darblapā, iezīmējot šūnas. Šis ir īss piemērs, kas liek lietotājam izvēlēties diapazonu:
Sub GetRange()
Dim Rng As Range
Kļūdas gadījumā atsākt nākamo
Iestatīt Rng = Application.InputBox _
(prompt:=“Norādīt diapazonu:”, Tips:=8)
Ja Rng nav nekas, izejiet no Sub
MsgBox “Jūs atlasījāt diapazonu” & Rng.Address
Beigu apakš
Tas izskatās šādi.
Izmantojot metodi Application InputBox, lai iegūtu diapazonu.
Šajā vienkāršajā piemērā kods lietotājam norāda atlasītā diapazona adresi. Reālajā dzīvē jūsu kods patiešām darītu kaut ko noderīgu ar atlasīto diapazonu. Jauka lieta šajā piemērā ir tā, ka Excel rūpējas par kļūdu apstrādi. Ja ievadāt kaut ko, kas nav diapazons, programma Excel jums par to paziņo un ļauj mēģināt vēlreiz.
Metode Application.InputBox ir līdzīga VBA funkcijai InputBox, taču tai ir arī dažas atšķirības. Pilnīgu informāciju skatiet palīdzības sistēmā.
Kā neļaut Microsoft Word atvērt failus tikai lasīšanas režīmā operētājsistēmā Windows Microsoft Word atver failus tikai lasīšanas režīmā, padarot tos neiespējamu rediģēt? Neuztraucieties, metodes ir norādītas zemāk
Kā labot kļūdas, drukājot nepareizus Microsoft Word dokumentus.Kļūdas Word dokumentu drukāšanā ar mainītiem fontiem, nekārtīgām rindkopām, trūkstoša teksta vai pazaudētu saturu ir diezgan izplatītas. Tomēr nevajag
Ja prezentācijas laikā esat izmantojis pildspalvu vai marķieri, lai zīmētu uz PowerPoint slaidiem, varat saglabāt zīmējumus nākamajai prezentācijai vai izdzēst tos, lai nākamajā reizē, kad to parādīsit, jūs sāktu ar tīriem PowerPoint slaidiem. Izpildiet šos norādījumus, lai dzēstu pildspalvas un marķiera zīmējumus: Līniju dzēšana pa vienai […]
Stilu bibliotēkā ir CSS faili, paplašināmās stila lapu valodas (XSL) faili un attēli, ko izmanto iepriekš definētas šablona lapas, lapu izkārtojumi un vadīklas programmā SharePoint 2010. Lai atrastu CSS failus publicēšanas vietnes stilu bibliotēkā: izvēlieties Vietnes darbības → Skatīt Viss vietnes saturs. Tiek parādīts vietnes saturs. Stila bibliotēka atrodas […]
Nepārsedziet savu auditoriju ar milzīgiem skaitļiem. Programmā Microsoft Excel varat uzlabot informācijas paneļu un pārskatu lasāmību, formatējot skaitļus tā, lai tie tiktu rādīti tūkstošos vai miljonos.
Uzziniet, kā izmantot SharePoints sociālo tīklu rīkus, kas ļauj indivīdiem un grupām sazināties, sadarboties, koplietot un sazināties.
Jūlija datumi ražošanas vidēs bieži tiek izmantoti kā laikspiedols un ātra atsauce partijas numuram. Šāda veida datuma kodēšana ļauj mazumtirgotājiem, patērētājiem un pakalpojumu aģentiem noteikt produkta izgatavošanas laiku un līdz ar to arī produkta vecumu. Jūlija datumi tiek izmantoti arī programmēšanā, militārajā jomā un astronomijā. Savādāk […]
Programmā Access 2016 varat izveidot tīmekļa lietotni. Kas tad vispār ir tīmekļa lietotne? Tīmeklis nozīmē, ka tas ir tiešsaistē, un lietotne ir tikai “lietojumprogrammas” saīsinājums. Pielāgota tīmekļa lietotne ir tiešsaistes datu bāzes lietojumprogramma, kurai var piekļūt no mākoņa, izmantojot pārlūkprogrammu. Jūs veidojat un uzturat tīmekļa lietotni darbvirsmas versijā […]
Lielākā daļa SharePoint 2010 lapu ātrās palaišanas joslā lapas kreisajā pusē parāda navigācijas saišu sarakstu. Ātrās palaišanas joslā tiek rādītas saites uz piedāvāto vietņu saturu, piemēram, sarakstiem, bibliotēkām, vietnēm un publicēšanas lapām. Ātrās palaišanas joslā ir divas ļoti svarīgas saites: Visa vietnes satura saite: […]
Vienkāršām problēmām risinātājs programmā Excel parasti ātri atrod optimālās Risinātāja mainīgā vērtības mērķa funkcijai. Taču dažos gadījumos Solver ir grūti atrast Solver mainīgā vērtības, kas optimizē mērķa funkciju. Šādos gadījumos Solver parasti parāda ziņojumu vai kļūdas ziņojumu, kurā aprakstīta vai apspriesta problēma, ko […]
