Dette Excel-tilføjelseseksempel diskuterer de grundlæggende trin involveret i at skabe et nyttigt tilføjelsesprogram, som du kan bruge til at pakke dine VBA-procedurer. Dette Excel VBA-eksempel er baseret på tekstkonverteringsværktøjet Change Case.
Excel-projektmappen består af et tomt regneark, et VBA-modul og en brugerformular.
Den originale version af værktøjet indeholder muligheder for store bogstaver, små bogstaver og rigtige bogstaver. Tilføjelsesversionen inkluderer to muligheder til UserForm, så den har de samme muligheder som det indbyggede værktøj i Microsoft Word:
Dette billede viser UserForm1. De fem OptionButton-kontroller er inde i en Frame-kontrol. Derudover har brugerformularen en Annuller-knap (navngivet CancelButton) og en OK-knap (kaldet OKButton).
Brugerformularen til tilføjelsesprogrammet Change Case.
Koden, der udføres, når der trykkes på Annuller-knappen, er meget enkel. Denne procedure fjerner brugerformularen uden handling:
Private Sub CancelButton_Click() Fjern UserForm1 Slut Sub
Den kode, der udføres, når der klikkes på OK-knappen, følger. Denne kode gør alt arbejdet:
Privat under OKButton_Click()
Dæmp tekstceller som rækkevidde
Dæmp celle som område
Dæmp tekst som streng
Dim i As Long
' Opret et objekt med kun tekstkonstanter
Ved fejl Genoptag Næste
Indstil TextCells = Selection.SpecialCells(xlConstants, xlTextValues)
' Slå skærmopdatering fra
Application.ScreenUpdating = Falsk
' Gå gennem cellerne
For hver celle i tekstceller
Tekst = celle.Værdi
Vælg Case True
Mulighed for små bogstaver Små bogstaver
celle.Value = LCase(celle.Value)
Case OptionUpper 'STORT
celle.Value = UCase(celle.Value)
Case OptionProper 'Proper Case
cell.Value = ArbejdsarkFunction.Proper(cell.Value)
Sag OptionSentence 'Sætningssag
Tekst = UCase(Left(cell.Value, 1))
Tekst = Tekst & LCase(Mid(celle.Value, 2, Len(cell.Value)))
cell.Value = Tekst
Case OptionToggle 'TogGLE CASE
For i = 1 til Len(tekst)
Hvis Mid(Tekst, i, 1) Som "[AZ]" Så
Mid(Tekst, i, 1) = LCase(Mid(Tekst, i, 1))
Andet
Mid(Tekst, i, 1) = UCase(Mid(Tekst, i, 1))
Afslut Hvis
Næste i
cell.Value = Tekst
Afslut Vælg
Næste
' Fjern dialogboksen
Fjern UserForm1
Slut Sub
Test Excel-tilføjelsesprogrammet, før du konverterer denne projektmappe. For at simulere, hvad der sker, når projektmappen er et tilføjelsesprogram, bør du teste projektmappen, når en anden Excel-projektmappe er aktiv. Fordi et Excel-tilføjelsesprogram aldrig er det aktive ark eller projektmappe, kan testning af det, når en anden projektmappe er åben, hjælpe dig med at identificere nogle potentielle fejl.
Åbn en ny projektmappe, og indtast oplysninger i nogle celler.
Til testformål skal du indtaste forskellige typer oplysninger, herunder tekst, værdier og formler. Eller bare åbn en eksisterende projektmappe og brug den til dine tests. Husk, at eventuelle ændringer i projektmappen ikke kan fortrydes, så det kan være en god ide at bruge en kopi.
Vælg en eller flere celler (eller hele rækker og kolonner).
Udfør ChangeCase-makroen ved at vælge den nye Change Case-kommando fra din Celle (eller Row eller Column) genvejsmenu.
Hvis kommandoen Change Case ikke vises på din genvejsmenu, er den mest sandsynlige årsag, at du ikke aktiverede makroer, da du åbnede change case.xlsm-projektmappen. Luk projektmappen, og åbn den derefter igen - og sørg for, at du aktiverer makroer.
Selvom det ikke er påkrævet, anses det for at være en god praksis at indtaste en beskrivelse af dit Excel-tilføjelsesprogram . Følg disse trin for at tilføje en beskrivelse:
Aktiver ændringscase.xlsm-projektmappen.
Vælg Filer → Info, og klik på Vis alle egenskaber nederst til højre.
Excel udvider egenskabslisten.
Indtast en titel for tilføjelsen i feltet Titel.
Denne tekst vises på listen over tilføjelser i dialogboksen Tilføjelsesprogrammer. I dette eksempel skal du indtaste Skift store og små bogstaver.
Indtast en beskrivelse i feltet Kommentarer.
Disse oplysninger vises nederst i dialogboksen Tilføjelsesprogrammer, når tilføjelsesprogrammet er valgt. For dette eksempel skal du indtaste
Ændrer store og små bogstaver i tekst i valgte celler.
Få adgang til dette værktøj ved at bruge genvejsmenuen.
Dette billede viser sektionen Egenskaber med felterne Titel og Kommentarer udfyldt.
Brug sektionen Egenskaber til at indtaste beskrivende oplysninger om dit tilføjelsesprogram.
Hvis du vil tilføje en adgangskode for at forhindre andre i at se VBA- koden, skal du følge disse trin:
Aktiver VBE, og vælg change case.xlsm-projektmappen i projektvinduet.
Vælg Værktøjer → VBAProject Properties, og klik på fanen Beskyttelse i dialogboksen, der vises.
Marker afkrydsningsfeltet Lås projekt til visning, og indtast en adgangskode (to gange).
Klik på OK.
Gem projektmappen ved at vælge Filer → Gem i VBE eller ved at gå tilbage til Excel-vinduet og vælge Filer → Gem.
På dette tidspunkt har du testet filen change case.xlsm, og den fungerer korrekt. Det næste trin er at oprette tilføjelsen. Følg disse trin:
Genaktiver Excel om nødvendigt.
Aktiver change case.xlsm-projektmappen, og vælg Filer → Gem som → Gennemse.
Excel viser dens Gem som-dialogboks.
Fra rullemenuen Gem som type skal du vælge Tilføjelse (*.xlam).
Angiv placeringen, og klik på Gem.
En ny tilføjelsesfil (med en .xlam-udvidelse) oprettes, og den originale XLSM-version forbliver åben.
For at undgå forvirring skal du lukke XLSM-projektmappen, før du åbner det tilføjelsesprogram, som du oprettede fra den pågældende projektmappe.
Åbn tilføjelsesprogrammet ved at følge disse trin:
Vælg Udvikler → Tilføjelsesprogrammer → Tilføjelsesprogrammer (eller tryk på Alt+TI).
Excel viser dialogboksen Tilføjelsesprogrammer.
Klik på knappen Gennemse.
Find og vælg det tilføjelsesprogram, du lige har oprettet.
Klik på OK for at lukke dialogboksen Gennemse.
Når du har fundet dit nye tilføjelsesprogram, viser dialogboksen Tilføjelsesprogrammer tilføjelsesprogrammet. Som vist nedenfor viser dialogboksen Tilføjelsesprogrammer også de beskrivende oplysninger, du har angivet i panelet Dokumentegenskaber.
Dialogboksen Tilføjelsesprogrammer har det nye tilføjelsesprogram valgt.
Sørg for, at dit nye tilføjelsesprogram er valgt i dialogboksen Tilføjelsesprogrammer.
Klik på OK for at lukke dialogboksen.
Excel åbner tilføjelsesprogrammet. Nu kan du bruge det med alle dine projektmapper. Så længe det forbliver valgt i dialogboksen Tilføjelsesprogrammer, åbnes tilføjelsesprogrammet, hver gang du starter Excel.
Hvis du er i et generøst humør, kan du distribuere denne tilføjelse til andre Excel-brugere blot ved at give dem en kopi af XLAM-filen. (De har ikke brug for XLSM-versionen.) Når de åbner tilføjelsesprogrammet, vises den nye kommando Change Case på genvejsmenuen, når de vælger et område, en eller flere rækker eller en eller flere kolonner. Hvis du låser VBA-projektet med en adgangskode, kan andre ikke se din makrokode, medmindre de kender adgangskoden.
Et tilføjelsesprogram kan redigeres ligesom enhver anden projektmappe. Du kan redigere XLAM-filen direkte (du behøver ikke at arbejde med den originale XLSM-version) ved at følge disse trin:
Åbn din XLAM fil, hvis den ikke allerede er åben.
Aktiver VBE. Dobbeltklik på projektets navn i projektvinduet.
Hvis du beskyttede koden, bliver du bedt om adgangskoden.
Indtast din adgangskode, og klik på OK.
Foretag dine ændringer i koden.
Gem filen ved at vælge Filer → Gem.
Hvis du opretter et tilføjelsesprogram, der gemmer oplysninger i et regneark, skal du indstille projektmappens IsAddIn-egenskab til False for at se projektmappen. Du gør dette i vinduet Egenskaber, når ThisWorkbook-objektet er valgt. Når du har foretaget dine ændringer i projektmappen, skal du sørge for at sætte egenskaben IsAddIn tilbage til True, før du gemmer filen.
At lave et tilføjelsesprogram, ikke et tilføjelsesprogram.
Sådan blokerer du Microsoft Word fra at åbne filer i skrivebeskyttet tilstand på Windows Microsoft Word åbner filer i skrivebeskyttet tilstand, hvilket gør det umuligt at redigere det? Bare rolig, metoderne er nedenfor
Sådan rettes fejl ved udskrivning af forkerte Microsoft Word-dokumenter Fejl ved udskrivning af Word-dokumenter med ændrede skrifttyper, rodede afsnit, manglende tekst eller tabt indhold er ret almindelige. Men lad være
Hvis du har brugt pennen eller highlighteren til at tegne på dine PowerPoint-dias under en præsentation, kan du gemme tegningerne til næste præsentation eller slette dem, så næste gang du viser den, starter du med rene PowerPoint-dias. Følg disse instruktioner for at slette pen- og highlighter-tegninger: Sletning af linjer en ved […]
Style-biblioteket indeholder CSS-filer, Extensible Stylesheet Language-filer (XSL) og billeder, der bruges af foruddefinerede mastersider, sidelayouts og kontrolelementer i SharePoint 2010. For at finde CSS-filer i Style-biblioteket på et udgivelsessted: Vælg Site Actions→ View Alt webstedsindhold. Indholdet af webstedet vises. Style-biblioteket ligger i […]
Overvæld ikke dit publikum med gigantiske tal. I Microsoft Excel kan du forbedre læsbarheden af dine dashboards og rapporter ved at formatere dine tal, så de vises i tusinder eller millioner.
Lær, hvordan du bruger SharePoints sociale netværksværktøjer, der lader enkeltpersoner og grupper kommunikere, samarbejde, dele og forbinde.
Julianske datoer bruges ofte i produktionsmiljøer som et tidsstempel og hurtig reference for et batchnummer. Denne type datokodning giver detailhandlere, forbrugere og serviceagenter mulighed for at identificere, hvornår et produkt blev fremstillet, og dermed produktets alder. Julianske datoer bruges også i programmering, militæret og astronomi. Forskellige […]
Du kan oprette en webapp i Access 2016. Så hvad er en webapp overhovedet? Nå, web betyder, at det er online, og app er kun en forkortelse for "applikation". En Custom Web App er en online databaseapplikation, der tilgås fra skyen ved hjælp af en browser. Du bygger og vedligeholder webappen i desktopversionen […]
De fleste sider i SharePoint 2010 viser en liste over navigationslinks på linjen Hurtig start langs venstre side af siden. Hurtig startlinjen viser links til fremhævet webstedsindhold såsom lister, biblioteker, websteder og udgivelsessider. Hurtigstartlinjen indeholder to meget vigtige links: Linket Alt webstedsindhold: […]
Ved simple problemer finder Solver i Excel som regel hurtigt de optimale Solver-variableværdier for objektivfunktionen. Men i nogle tilfælde har Solver problemer med at finde de Solver-variableværdier, der optimerer objektivfunktionen. I disse tilfælde viser Solver typisk en meddelelse eller en fejlmeddelelse, der beskriver eller diskuterer det problem, der […]
