Kā pievienot dialoglodziņus Excel makro, izmantojot Visual Basic redaktoru

Varat izmantot funkciju InputBox, lai Excel 2013 makro pievienotu dialoglodziņus. Palaižot makro, šī Visual Basic funkcija liek Excel parādīt dialoglodziņu Ievade, kurā varat ievadīt jebkuru nosaukumu, kas atbilst jaunajai darblapai. Pēc tam makro ievieto šo tekstu pašreizējā šūnā un formatē šo tekstu, ja tas ir tas, ko savam makro esat apmācījis darīt tālāk.

Lai redzētu, cik viegli ir izmantot funkciju InputBox, lai pievienotu interaktivitāti citādi neparastam makro, izpildiet darbības, lai pārveidotu makro Company_Name, kas pašlaik ievada tekstu “Mind Over Media” par tādu, kurā tiek prasīts ievadīt vajadzīgo nosaukumu. ievadīts. Funkcija InputBox izmanto šādu sintaksi:

InputBox(prompt[,title][,noklusējums][,xpos][,ypos][,palīdzības fails,konteksts])

Šajā funkcijā ir nepieciešams tikai uzvednes arguments, bet pārējie argumenti nav obligāti. Tūlītēja arguments norāda paziņojumā, kas parādās iekšpusē dialoglodziņā ievades lodziņā, pamudinot lietotājam ievadīt jaunu vērtību (vai šajā gadījumā, jauns uzņēmuma nosaukums).

Tūlītēja arguments var būt ne vairāk par 1024 rakstzīmēm. Ja vēlaties, lai uzvednes ziņojums tiktu parādīts dažādās dialoglodziņa rindiņās, tekstā ievadiet funkcijas Chr(13) un Chr(10) (lai ziņojumā ievietotu attiecīgi vagona atgriešanos un rindas padevi).

Neobligāts virsraksta arguments norāda, kāds teksts ir jāparāda ievades dialoglodziņa virsrakstjoslā. Ja nenorādīsiet nosaukuma argumentu, programma Excel virsrakstjoslā parāda lietojumprogrammas nosaukumu. Izvēles noklusējuma arguments norāda noklusējuma atbildi, kas automātiski parādās tekstlodziņā ievades dialoglodziņa apakšā.

Ja nenorādīsiet noklusējuma argumentu, dialoglodziņā Ievade tekstlodziņš ir tukšs.

Par xpos un ypos izvēles argumenti norādīt horizontālo attālumu no kreisās malas ekrāna kreisajā malā dialoglodziņa un vertikālo attālumu no augšējā stūrī ekrāna augšējai malai dialoglodziņa. Ja nenorādīsiet šos argumentus, programma Excel centrē ievades dialoglodziņu horizontāli un novieto to vertikāli aptuveni vienu trešdaļu no ekrāna lejasdaļas.

Par HelpFile un konteksta izvēles argumenti norādiet nosaukumu pasūtījuma palīdzības failu, ka jūs veicat pieejams lietotājam, lai izskaidrotu to, kā darbojas ievades dialoglodziņā, kā arī no datu veida, ka tas pieņem.

Pielāgota palīdzības faila izveides procesā izmantošanai Excel palīdzības sistēmā jūs piešķirat tēmai tās saturam atbilstošu konteksta numuru, kas pēc tam tiek norādīts kā funkcijas InputBox konteksta arguments.

Kad šai funkcijai norādāt palīdzības failu un konteksta argumentu, programma Excel pielāgotajam ievades dialoglodziņā pievieno pogu Palīdzība, uz kuras lietotāji var noklikšķināt, lai palīdzības logā piekļūtu pielāgotajam palīdzības failam.

Lai varētu pievienot koda rindiņu makro, izmantojot funkciju InputBox, Visual Basic komandās ir jāatrod vieta, kur rindiņai jāiet. Lai aktīvajā šūnā ievadītu tekstu Mind Over Media, makro Company_Name izmanto šādu Visual Basic komandu:

ActiveCell.FormulaR1C1 = "Mind Over Media"

Lai makro pievienotu interaktivitāti, loga Code rindā tieši virs šī ActiveCell.FormulaR1C1 priekšraksta ir jāievieto funkcija InputBox, kā norādīts tālāk.

Novietojiet ievietošanas punktu koda logā ActiveCell.FormulaR1C1 priekšraksta sākumā un nospiediet taustiņu Enter, lai ievietotu jaunu rindiņu.

Tagad, kad esat pievienojis jaunu rindiņu, ievietošanas punkts ir jāpārvieto uz augšu.

Nospiediet augšupvērsto bulttaustiņu, lai ievietotu ievietošanas punktu jaunās rindas sākumā.

Šajā rindā vēlaties izveidot mainīgo, kas nodrošina uzvednes argumentu funkcijai InputBox. Lai to izdarītu, norādiet mainīgā nosaukumu (šajā gadījumā InputMsg), kam seko tā pašreizējais ieraksts. Noteikti iekļaujiet ziņojuma tekstu vienādības zīmes labajā pusē slēgtā dubultpēdiņu pārī.

Ievadiet šādu kodu, lai izveidotu mainīgo InputMsg 8. rindiņā, un pēc tam nospiediet taustiņu Enter, lai sāktu jaunu 9. rindiņu:

InputMsg = "Zemāk esošajā tekstlodziņā ievadiet šīs darblapas uzņēmuma nosaukumu vai nosaukumu un pēc tam noklikšķiniet uz Labi:"

Pēc tam izveidojat mainīgo ar nosaukumu InputTitle, kas nodrošina funkcijas InputBox izvēles nosaukuma argumentu. Šis mainīgais liek tekstam “Izklājlapas nosaukums” parādīties kā ievades dialoglodziņa virsraksts. Vēlreiz noteikti iekļaujiet pēdiņās dialoglodziņa virsrakstjoslas nosaukumu.

Ievadiet šo kodu, lai izveidotu mainīgo InputTitle 9. rindiņā, un pēc tam nospiediet taustiņu Enter, lai ievietotu jaunu 10. rindiņu:

InputTitle = "Izklājlapas nosaukums"

Pēc tam jūs izveidojat mainīgā nosaukumu DefaultText, kas nodrošināja izvēles noklusējuma argumentu funkcijai InputBox. Šis mainīgais liek tekstam “Mind Over Media” parādīties kā noklusējuma ieraksts tekstlodziņā pielāgotā uzņēmuma nosaukuma ievades dialoglodziņa apakšā.

Ievadiet šādu kodu, lai 10. rindiņā izveidotu mainīgo DefaultText, un pēc tam nospiediet taustiņu Enter, lai ievietotu jaunu 11. rindu:

DefaultText = "Mind Over Media"

Pēc tam izveidojat galīgo mainīgo ar nosaukumu CompanyName, kas norāda funkciju InputBox kā savu ierakstu (izmantojot tikko izveidotos mainīgos InputMsg, InputTitle un DefaultText) un saglabā šīs funkcijas rezultātus.

Ievadiet šo kodu, lai izveidotu mainīgo SpreadsheetTitle, kas izmanto funkciju InputBox 11. rindiņā:

SpreadsheetTitle = InputBox (InputMsg, InputTitle, DefaultText)

Visbeidzot, jūs aizstājat vērtību “Mind Over Media” rekvizītā ActiveCell.FormulaR1C1 ar mainīgo SpreadsheetTitle (kura vērtību nosaka neatkarīgi no tā, kas tiek ievadīts dialoglodziņā Spreadsheet Title Input), tādējādi efektīvi aizstājot šo konstanti makro ar līdzekļi, lai padarītu šo ievadi patiesi interaktīvu.

12. rindiņā atlasiet “Mind Over Media” un aizstājiet to ar SpreadsheetTitle (bez pēdiņām).

Saglabājiet rediģēto makro, noklikšķinot uz pogas Saglabāt Visual Basic rīkjoslā, un pēc tam atgriezieties darblapā, noklikšķinot uz pogas Skatīt Microsoft Excel vai nospiežot Alt+F11. Pēc tam cilnes SKATS grupā Logs noklikšķiniet uz pogas Slēpt.

Tagad esat gatavs atvērt jaunu darbgrāmatu un palaist rediģēto makro, nospiežot Ctrl+N.

Attēlā parādīts koda logs ar rediģēto makro Uzņēmuma_nosaukums pēc to priekšrakstu pievienošanas, kas padara to interaktīvu.

Kā pievienot dialoglodziņus Excel makro, izmantojot Visual Basic redaktoru

Nākamajā attēlā parādīts dialoglodziņš Izklājlapas nosaukums darbībā darblapā. Šis ievades dialoglodziņš tagad tiek automātiski parādīts un aicina ievadīt ievadi ikreiz, kad palaižat rediģēto un tagad pilnībā interaktīvo makro Company_Name versiju.

Kā pievienot dialoglodziņus Excel makro, izmantojot Visual Basic redaktoru

Lai turpinātu un pašreizējā šūnā ievadītu Mind Over Media un pēc tam formatētu to, izmantojot pārējās makro komandas, šajā pielāgotajā dialoglodziņā vienkārši noklikšķiniet uz Labi. Lai ievadītu un formatētu cita uzņēmuma nosaukumu, vienkārši ierakstiet uzņēmuma nosaukumu (kas tekstlodziņā automātiski aizstāj Mind Over Media), pirms noklikšķināt uz Labi.


Kā neļaut Microsoft Word atvērt failus tikai lasīšanas režīmā operētājsistēmā Windows

Kā neļaut Microsoft Word atvērt failus tikai lasīšanas režīmā operētājsistēmā Windows

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ā novērst nepareizu Microsoft Word dokumentu drukāšanu

Kā novērst nepareizu Microsoft Word dokumentu drukāšanu

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

Izdzēsiet pildspalvas un marķiera zīmējumus savos PowerPoint slaidos

Izdzēsiet pildspalvas un marķiera zīmējumus savos PowerPoint slaidos

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 […]

Veidojiet bibliotēkas saturu programmā SharePoint 2010

Veidojiet bibliotēkas saturu programmā SharePoint 2010

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 […]

Formatējiet skaitļus tūkstošos un miljonos Excel pārskatos

Formatējiet skaitļus tūkstošos un miljonos Excel pārskatos

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.

Kā koplietot un sekot līdzi SharePoint vietnēm

Kā koplietot un sekot līdzi SharePoint vietnēm

Uzziniet, kā izmantot SharePoints sociālo tīklu rīkus, kas ļauj indivīdiem un grupām sazināties, sadarboties, koplietot un sazināties.

Kā programmā Excel konvertēt datumus Juliana formātos

Kā programmā Excel konvertēt datumus Juliana formātos

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 […]

Kā izveidot Access Web App

Kā izveidot Access Web App

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ā […]

Ātrās palaišanas josla programmā SharePoint 2010

Ātrās palaišanas josla programmā SharePoint 2010

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: […]

Ko nozīmē risinātāja kļūdu ziņojumi programmā Excel?

Ko nozīmē risinātāja kļūdu ziņojumi programmā Excel?

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 […]