Šajā Excel pievienojumprogrammas piemērā ir aplūkotas pamata darbības, kas jāveic, lai izveidotu noderīgu pievienojumprogrammu, kuru varat izmantot savu VBA procedūru pakotnei. Šis Excel VBA piemērs ir balstīts uz teksta konvertēšanas utilītu Change Case.
Excel darbgrāmata sastāv no vienas tukšas darblapas, VBA moduļa un UserForm.
Sākotnējā utilītas versijā ir iekļautas opcijas lielajiem, mazajiem un pareizajiem burtiem. Pievienojumprogrammas versijā ir iekļautas divas UserForm opcijas, tāpēc tai ir tādas pašas iespējas kā Microsoft Word iebūvētajam rīkam:
Šajā attēlā ir redzams UserForm1. Piecas OptionButton vadīklas atrodas rāmja vadīklā. Turklāt UserForm ir poga Atcelt (ar nosaukumu CancelButton) un poga Labi (nosaukums OKButton).
Lietotāja veidlapa pievienojumprogrammai Change Case.
Kods, kas tiek izpildīts, noklikšķinot uz pogas Atcelt, ir ļoti vienkāršs. Šī procedūra izlādē UserForm bez jebkādām darbībām:
Privāts Sub CancelButton_Click() Izlādēt UserForm1 Beigt apakš
Tālāk ir norādīts kods, kas tiek izpildīts, noklikšķinot uz pogas Labi. Šis kods veic visu darbu:
Privāts apakšējais OKButton_Click()
Aptumšot teksta šūnas kā diapazonu
Aptumšot šūnu kā diapazonu
Aptumšot tekstu kā virkni
Dim i As Long
Izveidojiet objektu tikai ar teksta konstantēm
Kļūdas gadījumā atsākt nākamo
Set TextCells = Selection.SpecialCells(xlConstants, xlTextValues)
Izslēdziet ekrāna atjaunināšanu
Application.ScreenUpdating = False
"Cilpu cauri šūnām
Katrai šūnai teksta šūnās
Teksts = šūna.Vērtība
Izvēlieties True
Case Option Lower 'mazie burti
šūna.Vērtība = LCase(šūna.vērtība)
Case OptionUpper 'AUPERCASE
šūna.Vērtība = UCase(šūna.Vērtība)
Case OptionProper 'Pareizs gadījums
cell.Value = WorksheetFunction.Proper(cell.Value)
Case OptionSentence 'Teikuma reģistrs
Teksts = UCase(Pa kreisi(šūna.Vērtība, 1))
Teksts = Teksts & LCase(Vidējs(šūna.Vērtība, 2, Len(šūna.Vērtība)))
cell.Value = teksts
Case OptionPārslēgt 'TOGGLE CASE
Ja i = 1 līdz Len (teksts)
Ja vidus(teksts, i, 1) Patīk "[AZ]", tad
Vidus(teksts, i, 1) = LCase(vidus(teksts, i, 1))
Citādi
Vidus(teksts, i, 1) = UCase(vidus(teksts, i, 1))
Beigas Ja
Nākamais i
cell.Value = teksts
Beigu atlase
Nākamais
Izlādējiet dialoglodziņu
Izlādēt UserForm1
Beigt apakš
Pirms šīs darbgrāmatas konvertēšanas pārbaudiet Excel pievienojumprogrammu. Lai modelētu to, kas notiek, ja darbgrāmata ir pievienojumprogramma, jums jāpārbauda darbgrāmata, kad ir aktīva cita Excel darbgrāmata. Tā kā Excel pievienojumprogramma nekad nav aktīvā lapa vai darbgrāmata, tās testēšana, kad ir atvērta cita darbgrāmata, var palīdzēt noteikt dažas iespējamās kļūdas.
Atveriet jaunu darbgrāmatu un ievadiet informāciju dažās šūnās.
Testēšanas nolūkos ievadiet dažāda veida informāciju, tostarp tekstu, vērtības un formulas. Vai vienkārši atveriet esošu darbgrāmatu un izmantojiet to pārbaudēm. Atcerieties, ka nekādas izmaiņas darbgrāmatā nevar atsaukt, tāpēc, iespējams, vēlēsities izmantot kopiju.
Atlasiet vienu vai vairākas šūnas (vai veselas rindas un kolonnas).
Izpildiet ChangeCase makro, izvēloties jauno komandu Change Case no savas šūnas (vai rindas vai kolonnas) īsinājumizvēlnes.
Ja komanda Change Case neparādās īsinājumizvēlnē, visticamākais iemesls ir tas, ka, atverot darbgrāmatu Change case.xlsm, neiespējojāt makro. Aizveriet darbgrāmatu un pēc tam atkārtoti atveriet to — un pārliecinieties, vai esat iespējojis makro.
Lai gan tas nav obligāti, par labāko praksi tiek uzskatīts Excel pievienojumprogrammas apraksta ievadīšana . Lai pievienotu aprakstu, veiciet šīs darbības:
Aktivizējiet darbgrāmatu Change case.xlsm.
Izvēlieties Fails → Informācija un apakšējā labajā stūrī noklikšķiniet uz Rādīt visus rekvizītus.
Excel paplašina rekvizītu sarakstu.
Laukā Virsraksts ievadiet pievienojumprogrammas nosaukumu.
Šis teksts tiek parādīts pievienojumprogrammu sarakstā dialoglodziņā Pievienojumprogrammas. Šajā piemērā ievadiet Change Case.
Laukā Komentāri ievadiet aprakstu.
Šī informācija tiek parādīta dialoglodziņa Pievienojumprogrammas apakšā, kad pievienojumprogramma ir atlasīta. Šajā piemērā ievadiet
Maina teksta reģistru atlasītajās šūnās.
Piekļūstiet šai utilītai, izmantojot īsinājumizvēlni.
Šajā attēlā ir redzama sadaļa Rekvizīti ar aizpildītiem laukiem Virsraksts un Komentāri.
Izmantojiet sadaļu Rekvizīti, lai ievadītu aprakstošu informāciju par savu pievienojumprogrammu.
Ja vēlaties pievienot paroli, lai neļautu citiem skatīt VBA kodu, rīkojieties šādi:
Aktivizējiet VBE un logā Project atlasiet darbgrāmatu Change case.xlsm.
Izvēlieties Rīki → VBAProject Properties un parādītajā dialoglodziņā noklikšķiniet uz cilnes Aizsardzība.
Atzīmējiet izvēles rūtiņu Bloķēt projektu skatīšanai un ievadiet paroli (divas reizes).
Noklikšķiniet uz Labi.
Saglabājiet darbgrāmatu, izvēloties Fails → Saglabāt VBE vai dodoties atpakaļ uz Excel logu un izvēloties Fails → Saglabāt.
Šobrīd esat pārbaudījis failu change case.xlsm, un tas darbojas pareizi. Nākamais solis ir pievienojumprogrammas izveide. Veiciet tālāk norādītās darbības.
Ja nepieciešams, atkārtoti aktivizējiet programmu Excel.
Aktivizējiet darbgrāmatu Change case.xlsm un izvēlieties Fails → Saglabāt kā → Pārlūkot.
Programmā Excel tiek parādīts dialoglodziņš Saglabāt kā.
Nolaižamajā izvēlnē Saglabāt kā veidu izvēlieties pievienojumprogramma (*.xlam).
Norādiet atrašanās vietu un noklikšķiniet uz Saglabāt.
Tiek izveidots jauns pievienojumprogrammas fails (ar paplašinājumu .xlam), un sākotnējā XLSM versija paliek atvērta.
Lai izvairītos no neskaidrībām, aizveriet XLSM darbgrāmatu pirms pievienojumprogrammas atvēršanas, ko izveidojāt no šīs darbgrāmatas.
Atveriet pievienojumprogrammu, veicot šīs darbības:
Izvēlieties Izstrādātājs → Papildinājumi → Papildinājumi (vai nospiediet taustiņu kombināciju Alt+TI).
Programmā Excel tiek parādīts dialoglodziņš Add-Ins.
Noklikšķiniet uz pogas Pārlūkot.
Atrodiet un atlasiet tikko izveidoto pievienojumprogrammu.
Noklikšķiniet uz Labi, lai aizvērtu dialoglodziņu Pārlūkot.
Kad esat atradis savu jauno pievienojumprogrammu, dialoglodziņā Add-Ins tiek parādīts pievienojumprogrammas saraksts. Kā parādīts tālāk, dialoglodziņā Add-Ins tiek parādīta arī aprakstošā informācija, ko norādījāt dokumenta rekvizītu panelī.
Dialoglodziņā Papildinājumi ir atlasīta jaunā pievienojumprogramma.
Pārliecinieties, vai dialoglodziņā Add-Ins ir atlasīta jaunā pievienojumprogramma.
Noklikšķiniet uz Labi, lai aizvērtu dialoglodziņu.
Excel atver pievienojumprogrammu. Tagad varat to izmantot ar visām savām darbgrāmatām. Kamēr tas paliek atlasīts dialoglodziņā Add-Ins, pievienojumprogramma tiek atvērta katru reizi, kad startējat programmu Excel.
Ja esat dāsnā noskaņojumā, varat izplatīt šo pievienojumprogrammu citiem Excel lietotājiem, vienkārši iedodot viņiem XLAM faila kopiju. (Viņiem nav nepieciešama XLSM versija.) Atverot pievienojumprogrammu, īsinājumizvēlnē tiek parādīta jaunā komanda Change Case, kad viņi atlasa diapazonu, vienu vai vairākas rindas vai vienu vai vairākas kolonnas. Ja bloķējat VBA projektu ar paroli, citi nevar skatīt jūsu makro kodu, ja vien viņi nezina paroli.
Papildprogrammu var rediģēt tāpat kā jebkuru citu darbgrāmatu. XLAM failu var rediģēt tieši (jums nav jāstrādā ar sākotnējo XLSM versiju), veicot šādas darbības:
Atveriet savu XLAM failu, ja tas vēl nav atvērts.
Aktivizējiet VBE. Projekta logā veiciet dubultklikšķi uz projekta nosaukuma.
Ja esat aizsargājis kodu, jums tiks prasīts ievadīt paroli.
Ievadiet savu paroli un noklikšķiniet uz Labi.
Veiciet izmaiņas kodā.
Saglabājiet failu, izvēloties Fails → Saglabāt.
Ja izveidojat pievienojumprogrammu, kas saglabā informāciju darblapā, lai skatītu darbgrāmatu, darbgrāmatas rekvizīts IsAddIn ir jāiestata uz False. Tas jādara logā Rekvizīti, kad ir atlasīts objekts ThisWorkbook. Kad esat veicis izmaiņas darbgrāmatā, pirms faila saglabāšanas noteikti iestatiet rekvizītu IsAddIn atpakaļ uz True.
Pievienojumprogrammas izveide, nevis pievienojumprogramma.
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 […]
