Shembuj të Excel VBA: Përdorimi i një shtesë Excel për të paketuar procedurat tuaja VBA

Ky shembull shtesë i Excel diskuton hapat bazë të përfshirë në krijimin e një shtese të dobishme të cilën mund ta përdorni për të paketuar procedurat tuaja VBA. Ky shembull i Excel VBA bazohet në mjetin e konvertimit të tekstit Change Case.

Vendosja e librit të punës në Excel

Libri i punës Excel përbëhet nga një fletë pune bosh, një modul VBA dhe një UserForm.

Versioni origjinal i programit përfshin opsione për shkronjat e mëdha, të vogla dhe shkronjat e duhura. Versioni shtesë përfshin dy opsione për UserForm, kështu që ka të njëjtat opsione si mjeti i integruar në Microsoft Word:

• Fjalia me shkronja : E bën shkronjën e parë të madhe dhe të gjitha shkronjat e tjera të vogla.
• Ndërrimi i shkronjave : Të gjithë shkronjat e mëdha konvertohen në shkronja të vogla dhe anasjelltas.

Ky imazh tregon UserForm1. Pesë kontrollet OptionButton janë brenda një kontrolli Frame. Përveç kësaj, UserForm ka një buton Cancel (me emrin CancelButton) dhe një buton OK (me emrin OKButton).

Formulari i përdoruesit për shtesën Change Case.

Kodi i ekzekutuar kur klikohet butoni Cancel është shumë i thjeshtë. Kjo procedurë shkarkon Formularin e Përdoruesit pa asnjë veprim:

Nën private CancelButton_Click()
  Shkarko UserForm1
Fundi Nën

Kodi që ekzekutohet kur klikohet butoni OK vijon. Ky kod bën të gjithë punën:

Nën Private OKButton_Click()
  Qelizat e zbehta të tekstit si varg
  Qeliza e zbehtë si varg
  Teksti i zbehtë si varg
  Dim i Sa Long

Krijo një objekt vetëm me konstante teksti
  Në gabim Rifillo Tjetra
  Cakto TextCells = Selection.SpecialCells(xlConstants, xlTextValues)

' Çaktivizo përditësimin e ekranit
  Application.ScreenUpdating = False

' Kaloni nëpër qeliza
  Për çdo qelizë në TextCells
    Tekst = qelizë.Vlera
    Zgjidhni Rastin e vërtetë
    Rasti Option Me shkronja të vogla 'të vogla
      qeliza.Vlera = LCase(qeliza.Vlera)
    Opsioni i kasës E sipërme 'SUPER
      qeliza.Vlera = UCase(qeliza.Vlera)
    Rasti OptionProper 'Rasti i duhur
      cell.Value = WorksheetFunction.Proper(cell.Value)
    Rasti OptionSentence 'Rasti i fjalisë
      Teksti = UCase(Majtas(qeliza.Vlera, 1))
      Tekst = Tekst & LCase (mesa (qeliza.Vlera, 2, Len (qeliza.Vlera)))
      qeliza.Vlera = Tekst
    Opsioni i rastit Ndrysho 'TOGGLE CASE
      Për i = 1 në Len (Tekst)
      Nëse Mid(Text, i, 1) Like "[AZ]" Atëherë
        Mesi (Tekst, i, 1) = LCase (Mes (Tekst, i, 1))
      Përndryshe
        Mesi (Tekst, i, 1) = UCase (Mes (Tekst, i, 1))
      Fundi Nëse
      Tjetra i
      qeliza.Vlera = Tekst
    Fund Zgjidh
  Tjetra

'Shkarko kutinë e dialogut
  Shkarko UserForm1
Fundi Nën

Testimi i librit të punës në Excel

Testoni shtesën Excel përpara se të konvertoni këtë libër pune. Për të simuluar se çfarë ndodh kur libri i punës është një shtesë, duhet ta testoni librin e punës kur një libër tjetër i punës në Excel është aktiv. Për shkak se një shtesë në Excel nuk është asnjëherë fleta ose libri i punës aktive, testimi i tij kur një libër tjetër pune është i hapur mund t'ju ndihmojë të identifikoni disa gabime të mundshme.

Hapni një libër të ri pune dhe futni informacione në disa qeliza.
Për qëllime testimi, futni lloje të ndryshme informacioni, duke përfshirë tekstin, vlerat dhe formulat. Ose thjesht hapni një libër pune ekzistues dhe përdorni atë për testet tuaja. Mos harroni se çdo ndryshim në librin e punës nuk mund të zhbëhet, kështu që mund të dëshironi të përdorni një kopje.

Zgjidhni një ose më shumë qeliza (ose rreshta dhe kolona të tëra).

Ekzekutoni makronë ChangeCase duke zgjedhur komandën e re Change Case nga menyja e shkurtoreve të qelizës (ose rreshtit ose kolonës).

Nëse komanda Change Case nuk shfaqet në menynë tuaj të shkurtoreve, arsyeja më e mundshme është se nuk keni aktivizuar makro kur hapët librin e punës change case.xlsm. Mbyllni librin e punës dhe më pas hapeni përsëri - dhe sigurohuni që të aktivizoni makro.

Shtimi i informacionit përshkrues në shtesën tuaj Excel

Edhe pse nuk kërkohet, konsiderohet të jetë një praktikë më e mirë për të futur një përshkrim të shtesës suaj të Excel . Ndiqni këto hapa për të shtuar një përshkrim:

Aktivizoni ndryshimin e rastit.xlsm fletore pune.

Zgjidhni Skedar → Informacion dhe klikoni Shfaq të gjitha vetitë në fund djathtas.
Excel zgjeron listën e Vetive.

Futni një titull për shtesën në fushën Titulli.
Ky tekst shfaqet në listën e shtesave në kutinë e dialogut Shtesa. Për këtë shembull, futni Change Case.

Në fushën e komenteve, vendosni një përshkrim.
Ky informacion shfaqet në fund të kutisë së dialogut Add-Ins kur zgjidhet shtesa. Për këtë shembull, futni

Ndryshon rastin e tekstit në qelizat e zgjedhura.

Hyni në këtë mjet duke përdorur menynë e shkurtoreve.

Ky imazh tregon seksionin Vetitë me fushat Titulli dhe Komente të mbushura.

Përdorni seksionin Karakteristikat për të futur informacione përshkruese rreth shtesës suaj.

Mbrojtja e kodit VBA

Nëse dëshironi të shtoni një fjalëkalim për të parandaluar që të tjerët të shikojnë kodin VBA , ndiqni këto hapa:

Aktivizoni VBE-në dhe zgjidhni librin e punës ndryshimi case.xlsm në dritaren e Projektit.

Zgjidhni Tools → VBAProject Properties dhe klikoni në skedën Mbrojtja në kutinë e dialogut që shfaqet.

Zgjidhni kutinë e kontrollit Lock Project for Viewing dhe futni një fjalëkalim (dy herë).

Klikoni OK.

Ruani librin e punës duke zgjedhur Skedar → Ruaj në VBE ose duke u kthyer në dritaren e Excel dhe duke zgjedhur Skedar → Ruaj.

Krijimi i shtesës Excel

Në këtë pikë, ju keni testuar skedarin e ndryshimit case.xlsm dhe ai po funksionon si duhet. Hapi tjetër është krijimi i shtesës. Ndiqni këto hapa:

Nëse është e nevojshme, riaktivizoni Excel.

Aktivizoni librin e punës për ndryshim case.xlsm dhe zgjidhni Skedar → Ruaj si → Shfleto.
Excel shfaq kutinë e tij të dialogut Ruaj si.

Nga menyja rënëse Save as Type, zgjidhni Add-In (*.xlam).

Specifikoni vendndodhjen dhe klikoni Ruaj.

Krijohet një skedar i ri shtesë (me një shtesë .xlam) dhe versioni origjinal XLSM mbetet i hapur.

Hapja e shtesës Excel

Për të shmangur konfuzionin, mbyllni librin e punës XLSM përpara se të hapni shtesën që keni krijuar nga ai libër pune.

Hapni shtesën duke ndjekur këto hapa:

Zgjidhni Zhvillues → Shtesa → Shtesa (ose shtypni Alt+TI).
Excel shfaq kutinë e dialogut të Shtesave.

Klikoni butonin Browse.

Gjeni dhe zgjidhni shtesën që sapo keni krijuar.

Kliko OK për të mbyllur kutinë e dialogut Browse.

Pasi të gjeni shtesën tuaj të re, kutia e dialogut Shtesa liston shtesën. Siç tregohet më poshtë, kutia e dialogut "Shtesa" shfaq gjithashtu informacionin përshkrues që keni dhënë në panelin "Veçoritë e dokumentit".

Kutia e dialogut Add-Ins ka zgjedhur shtesën e re.

Sigurohuni që shtesa juaj e re të jetë zgjedhur në kutinë e dialogut Shtesa.

Kliko OK për të mbyllur kutinë e dialogut.

Excel hap shtesën. Tani mund ta përdorni me të gjithë librat e punës. Për sa kohë që mbetet e zgjedhur në kutinë e dialogut Shtesa, shtesa hapet sa herë që nisni Excel.

Shpërndarja e shtesës Excel

Nëse jeni në një humor bujar, mund ta shpërndani këtë shtesë tek përdoruesit e tjerë të Excel thjesht duke u dhënë atyre një kopje të skedarit XLAM. (Ata nuk kanë nevojë për versionin XLSM.) Kur hapin shtesën, komanda e re Change Case shfaqet në menynë e shkurtoreve kur ata zgjedhin një varg, një ose më shumë rreshta ose një ose më shumë kolona. Nëse e kyçni projektin VBA me një fjalëkalim, të tjerët nuk mund ta shikojnë kodin tuaj makro nëse nuk e dinë fjalëkalimin.

Modifikimi i shtesës Excel

Një shtesë mund të modifikohet ashtu si çdo libër tjetër pune. Ju mund ta modifikoni skedarin XLAM drejtpërdrejt (nuk keni nevojë të punoni me versionin origjinal XLSM) duke ndjekur këto hapa:

Hapni skedarin tuaj XLAM, nëse nuk është tashmë i hapur.

Aktivizoni VBE. Klikoni dy herë emrin e projektit në dritaren e Projektit.

Nëse e keni mbrojtur kodin, do t'ju kërkohet fjalëkalimi.

Futni fjalëkalimin tuaj dhe klikoni OK.

Bëni ndryshimet tuaja në kod.

Ruani skedarin duke zgjedhur Skedar → Ruaj.

Nëse krijoni një shtesë që ruan informacionin në një fletë pune, duhet të vendosni veçorinë IsAddIn të librit të punës në False për të parë librin e punës. Këtë e bëni në dritaren Properties kur zgjidhet objekti ThisWorkbook. Pasi të keni bërë ndryshimet në librin e punës, sigurohuni që ta keni vendosur përsëri veçorinë IsAddIn në True përpara se të ruani skedarin.

Bërja e një shtese jo një shtesë.