Primjeri Excel VBA: korištenje Excel dodatka za pakiranje vaših VBA procedura

Ovaj primjer programskog dodatka za Excel govori o osnovnim koracima koji su uključeni u stvaranje korisnog dodatka koji možete koristiti za pakiranje VBA procedura. Ovaj primjer Excel VBA temelji se na uslužnom programu za pretvorbu teksta Change Case.

Postavljanje Excel radne knjige

Excel radna knjiga sastoji se od jednog praznog radnog lista, VBA modula i korisničkog obrasca.

Izvorna verzija uslužnog programa uključuje opcije za velika, mala i ispravna slova. Verzija dodatka uključuje dvije opcije za korisnički obrazac tako da ima iste opcije kao ugrađeni alat u programu Microsoft Word:

  • Velika i mala rečenica: prvo slovo čini velikim, a sva ostala mala mala.
  • Prebacivanje velikih slova : svi znakovi velikih slova se pretvaraju u mala slova i obrnuto.

Ova slika prikazuje UserForm1. Pet kontrola OptionButton nalazi se unutar kontrole okvira. Osim toga, korisnički obrazac ima gumb Odustani (nazvan CancelButton) i gumb U redu (nazvan OKButton).

Primjeri Excel VBA: korištenje Excel dodatka za pakiranje vaših VBA procedura

Korisnički obrazac za dodatak Change Case.

Kod koji se izvršava kada se klikne na gumb Odustani vrlo je jednostavan. Ovaj postupak učitava korisnički obrazac bez radnje:

Privatni sub CancelButton_Click()
  Učitajte korisnički obrazac1
Kraj Sub

Slijedi kod koji se izvršava kada se pritisne gumb U redu. Ovaj kod obavlja sav posao:

Privatni pod OKButton_Klik()
  Zatamnite tekstualne ćelije kao raspon
  Zatamnjena ćelija As Range
  Zatamnjen tekst kao niz
  Dim i As Long

' Stvorite objekt samo s tekstualnim konstantama
  U slučaju pogreške Nastavi dalje
  Postavi TextCells = Selection.SpecialCells(xlConstants, xlTextValues)

' Isključite ažuriranje zaslona
  Application.ScreenUpdating = False

' Prođite kroz ćelije
  Za svaku ćeliju u TextCells
    Tekst = ćelija.Vrijednost
    Odaberite Istina
    Velika i mala slova Opcija
      cell.Value = LCase(cell.Value)
    Opcija velikih slovaUpper 'UPPERCASE
      cell.Value = UCase(cell.Value)
    Case OptionProper 'Pravi slučaj
      cell.Value = WorksheetFunction.Proper(cell.Value)
    Case OptionSentence 'Padež rečenice
      Tekst = UCase(Lijevo(ćelija.Vrijednost, 1))
      Tekst = Tekst & LCase(Mid(cell.Value, 2, Len(cell.Value)))
      ćelija.Vrijednost = Tekst
    Case OptionToggle 'TOGGLE CASE
      Za i = 1 do Len (tekst)
      Ako sredina (tekst, i, 1) kao "[AZ]" Onda
        Sredina(tekst, i, 1) = LCase(sredina(tekst, i, 1))
      Drugo
        Sredina(tekst, i, 1) = UCase(sredina(tekst, i, 1))
      Završi ako
      Sljedeći i
      ćelija.Vrijednost = Tekst
    Kraj Odaberite
  Sljedeći

' Ispraznite dijaloški okvir
  Učitajte korisnički obrazac1
Kraj Sub

Testiranje Excel radne knjige

Testirajte Excel dodatak prije pretvorbe ove radne knjige. Da biste simulirali što se događa kada je radna knjiga dodatak, trebali biste testirati radnu knjigu kada je aktivna druga radna knjiga programa Excel. Budući da dodatak programa Excel nikada nije aktivan list ili radna knjiga, njegovo testiranje kada je druga radna knjiga otvorena može vam pomoći da identificirate neke potencijalne pogreške.

Otvorite novu radnu knjigu i unesite podatke u neke ćelije.
Za potrebe testiranja unesite različite vrste informacija, uključujući tekst, vrijednosti i formule. Ili jednostavno otvorite postojeću radnu knjigu i upotrijebite je za svoje testove. Imajte na umu da se sve promjene u radnoj knjizi ne mogu poništiti, pa biste mogli upotrijebiti kopiju.

Odaberite jednu ili više ćelija (ili cijele retke i stupce).

Izvršite makronaredbu ChangeCase odabirom nove naredbe Change Case iz izbornika prečaca za ćelije (ili redak ili stupac).

Ako se naredba Promjena slučaja ne pojavi na vašem izborniku prečaca, najvjerojatniji razlog je taj što niste omogućili makronaredbe kada ste otvorili radnu knjigu change case.xlsm. Zatvorite radnu knjigu, a zatim je ponovo otvorite — i provjerite jeste li omogućili makronaredbe.

Dodavanje opisnih informacija vašem Excel dodatku

Iako nije potrebno, smatra se da je najbolja praksa unijeti opis vašeg dodatka za Excel . Slijedite ove korake da biste dodali opis:

Aktivirajte radnu knjigu Change case.xlsm.

Odaberite Datoteka → Informacije i kliknite Prikaži sva svojstva u donjem desnom kutu.
Excel proširuje popis Svojstava.

Unesite naslov za dodatak u polje Naslov.
Ovaj se tekst pojavljuje na popisu dodataka u dijaloškom okviru Dodaci. Za ovaj primjer unesite Change case.

U polje Komentari unesite opis.
Ove se informacije pojavljuju na dnu dijaloškog okvira Add-Ins kada je dodatak odabran. Za ovaj primjer unesite

Mijenja velika i mala slova teksta u odabranim ćelijama.

Pristupite ovom uslužnom programu pomoću izbornika prečaca.

Ova slika prikazuje odjeljak Svojstva s popunjenim poljima Naslov i Komentari.

Primjeri Excel VBA: korištenje Excel dodatka za pakiranje vaših VBA procedura

Koristite odjeljak Svojstva za unos opisnih informacija o svom dodatku.

Zaštita VBA koda

Ako želite dodati lozinku kako biste spriječili druge da pregledaju VBA kod, slijedite ove korake:

Aktivirajte VBE i odaberite radnu knjigu change case.xlsm u prozoru projekta.

Odaberite Alati → Svojstva VBAProject i kliknite karticu Zaštita u dijaloškom okviru koji se pojavi.

Odaberite potvrdni okvir Zaključaj projekt za pregled i unesite lozinku (dvaput).

Kliknite OK.

Spremite radnu knjigu odabirom Datoteka → Spremi u VBE-u ili tako da se vratite u prozor programa Excel i odaberete Datoteka → Spremi.

Izrada dodatka za Excel

U ovom trenutku ste testirali datoteku change case.xlsm i ona radi ispravno. Sljedeći korak je stvaranje dodatka. Prati ove korake:

Ako je potrebno, ponovno aktivirajte Excel.

Aktivirajte radnu knjigu change case.xlsm i odaberite Datoteka → Spremi kao → Pregledaj.
Excel prikazuje dijaloški okvir Spremi kao.

Na padajućem izborniku Spremi kao vrstu odaberite Dodatak (*.xlam).

Odredite lokaciju i kliknite Spremi.

Stvorena je nova datoteka dodatka (s ekstenzijom .xlam), a izvorna XLSM verzija ostaje otvorena.

Otvaranje dodatka za Excel

Kako biste izbjegli zabunu, zatvorite XLSM radnu knjigu prije otvaranja dodatka koji ste izradili iz te radne knjige.

Otvorite dodatak slijedeći ove korake:

Odaberite Developer → Add-Ins → Add-Ins (ili pritisnite Alt+TI).
Excel prikazuje dijaloški okvir Dodaci.

Kliknite gumb Pregledaj.

Pronađite i odaberite dodatak koji ste upravo izradili.

Kliknite OK za zatvaranje dijaloškog okvira Pregledavanje.

Nakon što pronađete svoj novi dodatak, dijaloški okvir Dodaci navodi dodatak. Kao što je prikazano u nastavku, dijaloški okvir Add-Ins također prikazuje opisne informacije koje ste naveli na ploči Svojstva dokumenta.

Primjeri Excel VBA: korištenje Excel dodatka za pakiranje vaših VBA procedura

U dijaloškom okviru Add-Ins izabran je novi dodatak.

Provjerite je li vaš novi dodatak odabran u dijaloškom okviru Dodaci.

Kliknite OK za zatvaranje dijaloškog okvira.

Excel otvara dodatak. Sada ga možete koristiti sa svim svojim radnim knjigama. Sve dok ostaje odabran u dijaloškom okviru Dodaci, dodatak se otvara svaki put kada pokrenete Excel.

Distribucija dodatka za Excel

Ako ste velikodušno raspoloženi, ovaj dodatak možete distribuirati drugim korisnicima programa Excel jednostavno tako što ćete im dati kopiju XLAM datoteke. (Ne treba im XLSM verzija.) Kada otvore dodatak, nova naredba Promjena slučaja pojavljuje se na izborniku prečaca kada odaberu raspon, jedan ili više redaka ili jedan ili više stupaca. Ako VBA projekt zaključate lozinkom, drugi ne mogu vidjeti vaš makro kod osim ako ne znaju lozinku.

Promjena programa Excel

Dodatak se može uređivati ​​kao i svaka druga radna knjiga. XLAM datoteku možete urediti izravno (ne morate raditi s izvornom XLSM verzijom) slijedeći ove korake:

Otvorite svoju XLAM datoteku, ako već nije otvorena.

Aktivirajte VBE. Dvaput kliknite naziv projekta u prozoru projekta.

Ako ste zaštitili kod, od vas će se tražiti lozinka.

Unesite svoju lozinku i kliknite U redu.

Unesite svoje izmjene u kodu.

Spremite datoteku odabirom Datoteka → Spremi.

Ako izradite dodatak koji pohranjuje informacije na radnom listu, svojstvo IsAddIn radne knjige morate postaviti na False da biste vidjeli radnu knjigu. To činite u prozoru Svojstva kada je odabran objekt ThisWorkbook. Nakon što izvršite izmjene u radnoj knjizi, provjerite jeste li svojstvo IsAddIn vratili na True prije nego što spremite datoteku.

Primjeri Excel VBA: korištenje Excel dodatka za pakiranje vaših VBA procedura

Izrada dodatka, a ne dodatka.

Leave a Comment

Kako postaviti upit u bazu podataka MS Access 2019

Kako postaviti upit u bazu podataka MS Access 2019

Naučite kako postaviti upite u Access bazi podataka uz jednostavne korake i savjete za učinkovito filtriranje i sortiranje podataka.

Osnove tabulatora u programu Word 2013

Osnove tabulatora u programu Word 2013

Tabulatori su oznake položaja u odlomku programa Word 2013 koje određuju kamo će se točka umetanja pomaknuti kada pritisnete tipku Tab. Otkrijte kako prilagoditi tabulatore i optimizirati svoj rad u Wordu.

Kako odabrati i poništiti odabir blokova teksta u Wordu 2010

Kako odabrati i poništiti odabir blokova teksta u Wordu 2010

Word 2010 nudi mnoge načine označavanja i poništavanja odabira teksta. Otkrijte kako koristiti tipkovnicu i miš za odabir blokova. Učinite svoj rad učinkovitijim!

Kako uvući pasus u Wordu 2013

Kako uvući pasus u Wordu 2013

Naučite kako pravilno postaviti uvlaku za odlomak u Wordu 2013 kako biste poboljšali izgled svog dokumenta.

Kako otvoriti i zatvoriti PowerPoint 2019 prezentacije

Kako otvoriti i zatvoriti PowerPoint 2019 prezentacije

Naučite kako jednostavno otvoriti i zatvoriti svoje Microsoft PowerPoint 2019 prezentacije s našim detaljnim vodičem. Pronađite korisne savjete i trikove!

Kako crtati jednostavne objekte u PowerPointu 2013

Kako crtati jednostavne objekte u PowerPointu 2013

Saznajte kako crtati jednostavne objekte u PowerPoint 2013 uz ove korisne upute. Uključuje crtanje linija, pravokutnika, krugova i više.

Kako filtrirati podatke u programu Access 2016

Kako filtrirati podatke u programu Access 2016

U ovom vodiču vam pokazujemo kako koristiti alat za filtriranje u programu Access 2016 kako biste lako prikazali zapise koji dijele zajedničke vrijednosti. Saznajte više o filtriranju podataka.

Formule za zaokruživanje brojeva u Excelu

Formule za zaokruživanje brojeva u Excelu

Saznajte kako koristiti Excelove funkcije zaokruživanja za prikaz čistih, okruglih brojeva, što može poboljšati čitljivost vaših izvješća.

Kako dizajnirati različita zaglavlja i podnožja za različite stranice u programu Word 2013

Kako dizajnirati različita zaglavlja i podnožja za različite stranice u programu Word 2013

Zaglavlje ili podnožje koje postavite isto je za svaku stranicu u vašem Word 2013 dokumentu. Otkrijte kako koristiti različita zaglavlja za parne i neparne stranice.

Excel izvješća: prilagođeno oblikovanje brojeva

Excel izvješća: prilagođeno oblikovanje brojeva

Poboljšajte čitljivost svojih Excel izvješća koristeći prilagođeno oblikovanje brojeva. U ovom članku naučite kako se to radi i koja su najbolja rješenja.