Detta Excel-tilläggsexempel diskuterar de grundläggande stegen som är involverade i att skapa ett användbart tillägg som du kan använda för att paketera dina VBA-procedurer. Det här Excel VBA-exemplet är baserat på verktyget Change Case-textkonvertering.
Excel-arbetsboken består av ett tomt kalkylblad, en VBA-modul och ett användarformulär.
Den ursprungliga versionen av verktyget innehåller alternativ för versaler, gemener och proprietära bokstäver. Tilläggsversionen innehåller två alternativ till UserForm så den har samma alternativ som det inbyggda verktyget i Microsoft Word:
Den här bilden visar UserForm1. De fem OptionButton-kontrollerna finns inuti en Frame-kontroll. Dessutom har UserForm en Avbryt-knapp (som heter CancelButton) och en OK-knapp (som heter OKButton).
Användarformuläret för Change Case-tillägget.
Koden som körs när du klickar på knappen Avbryt är mycket enkel. Denna procedur tar bort UserForm utan åtgärd:
Private Sub CancelButton_Click() Ta bort UserForm1 Avsluta Sub
Koden som exekveras när du klickar på OK-knappen följer. Den här koden gör allt:
Privat sub OKButton_Click()
Dim textceller som intervall
Dim cell som intervall
Dim text som sträng
Dim i As Long
' Skapa ett objekt med bara textkonstanter
Vid fel Resume Next
Set TextCells = Selection.SpecialCells(xlConstants, xlTextValues)
' Stäng av skärmuppdatering
Application.ScreenUpdating = Falskt
' Gå igenom cellerna
För varje cell i TextCells
Text = cell.Värde
Välj Case True
Case Option Små bokstäver
cell.Value = LCase(cell.Value)
Case Option Upper 'VERSOR
cell.Value = UCase(cell.Value)
Case OptionProper 'Proper Case
cell.Value = WorksheetFunction.Proper(cell.Value)
Case OptionSentence 'Meningsfall
Text = UCase(Left(cell.Value, 1))
Text = Text & LCase(Mid(cell.Value, 2, Len(cell.Value)))
cell.Value = Text
Case OptionToggle 'tOGGLE CASE
För i = 1 Till Len(Text)
Om Mid(Text, i, 1) Gillar "[AZ]" Då
Mid(Text, i, 1) = LCase(Mid(Text, i, 1))
Annan
Mid(Text, i, 1) = UCase(Mid(Text, i, 1))
Avsluta om
Nästa i
cell.Value = Text
Avsluta Välj
Nästa
' Ta ur dialogrutan
Ta bort UserForm1
Avsluta Sub
Testa Excel-tillägget innan du konverterar den här arbetsboken. För att simulera vad som händer när arbetsboken är ett tillägg, bör du testa arbetsboken när en annan Excel-arbetsbok är aktiv. Eftersom ett Excel-tillägg aldrig är det aktiva bladet eller arbetsboken, kan det hjälpa dig att identifiera några potentiella fel om du testar det när en annan arbetsbok är öppen.
Öppna en ny arbetsbok och ange information i vissa celler.
För teständamål, ange olika typer av information, inklusive text, värden och formler. Eller öppna bara en befintlig arbetsbok och använd den för dina tester. Kom ihåg att alla ändringar i arbetsboken inte kan ångras, så du kanske vill använda en kopia.
Välj en eller flera celler (eller hela rader och kolumner).
Kör ChangeCase-makrot genom att välja det nya kommandot Change Case från din snabbmeny för Cell (eller Rad eller Kolumn).
Om kommandot Change Case inte visas på din snabbmeny är den mest troliga anledningen att du inte aktiverade makron när du öppnade arbetsboken change case.xlsm. Stäng arbetsboken och öppna den sedan igen - och se till att du aktiverar makron.
Även om det inte krävs, anses det vara en bästa praxis att ange en beskrivning av ditt Excel-tillägg . Följ dessa steg för att lägga till en beskrivning:
Aktivera arbetsboken change case.xlsm.
Välj Arkiv → Info och klicka på Visa alla egenskaper längst ned till höger.
Excel utökar listan Egenskaper.
Ange en titel för tillägget i fältet Titel.
Denna text visas i listan över tillägg i dialogrutan Tillägg. I det här exemplet anger du Ändra skiftläge.
Ange en beskrivning i fältet Kommentarer.
Denna information visas längst ned i dialogrutan Tillägg när tillägget är valt. För detta exempel, enter
Ändrar skiftläge för text i markerade celler.
Gå till det här verktyget genom att använda genvägsmenyn.
Den här bilden visar avsnittet Egenskaper med fälten Titel och Kommentarer ifyllda.
Använd avsnittet Egenskaper för att ange beskrivande information om ditt tillägg.
Om du vill lägga till ett lösenord för att hindra andra från att se VBA- koden, följ dessa steg:
Aktivera VBE och välj arbetsboken change case.xlsm i projektfönstret.
Välj Verktyg → VBAProject Properties och klicka på fliken Skydd i dialogrutan som visas.
Markera kryssrutan Lås projekt för visning och ange ett lösenord (två gånger).
Klicka på OK.
Spara arbetsboken genom att välja Arkiv → Spara i VBE eller genom att gå tillbaka till Excel-fönstret och välja Arkiv → Spara.
Vid det här laget har du testat filen change case.xlsm och den fungerar korrekt. Nästa steg är att skapa tillägget. Följ dessa steg:
Om det behövs, återaktivera Excel.
Aktivera arbetsboken change case.xlsm och välj Arkiv → Spara som → Bläddra.
Excel visar dialogrutan Spara som.
Från rullgardinsmenyn Spara som typ väljer du Tillägg (*.xlam).
Ange platsen och klicka på Spara.
En ny tilläggsfil (med tillägget .xlam) skapas och den ursprungliga XLSM-versionen förblir öppen.
För att undvika förvirring, stäng XLSM-arbetsboken innan du öppnar tillägget som du skapade från den arbetsboken.
Öppna tillägget genom att följa dessa steg:
Välj Utvecklare → Tillägg → Tillägg (eller tryck på Alt+TI).
Excel visar dialogrutan Tillägg.
Klicka på knappen Bläddra.
Leta upp och välj tillägget du just skapade.
Klicka på OK för att stänga dialogrutan Bläddra.
När du har hittat ditt nya tillägg visar dialogrutan Tillägg tillägget. Som visas nedan visar dialogrutan Tillägg även den beskrivande information du angav i panelen Dokumentegenskaper.
Dialogrutan Tillägg har det nya tillägget valt.
Se till att ditt nya tillägg är valt i dialogrutan Tillägg.
Klicka på OK för att stänga dialogrutan.
Excel öppnar tillägget. Nu kan du använda den med alla dina arbetsböcker. Så länge det är markerat i dialogrutan Tillägg öppnas tillägget varje gång du startar Excel.
Om du är på ett generöst humör kan du distribuera detta tillägg till andra Excel-användare helt enkelt genom att ge dem en kopia av XLAM-filen. (De behöver inte XLSM-versionen.) När de öppnar tillägget visas det nya kommandot Change Case på genvägsmenyn när de väljer ett intervall, en eller flera rader eller en eller flera kolumner. Om du låser VBA-projektet med ett lösenord kan andra inte se din makrokod om de inte känner till lösenordet.
Ett tillägg kan redigeras precis som vilken annan arbetsbok som helst. Du kan redigera XLAM-filen direkt (du behöver inte arbeta med den ursprungliga XLSM-versionen) genom att följa dessa steg:
Öppna filen XLAM om den inte redan är öppen.
Aktivera VBE. Dubbelklicka på projektets namn i projektfönstret.
Om du skyddade koden ombeds du ange lösenordet.
Ange ditt lösenord och klicka på OK.
Gör dina ändringar i koden.
Spara filen genom att välja Arkiv → Spara.
Om du skapar ett tillägg som lagrar information i ett kalkylblad måste du ställa in arbetsbokens IsAddIn-egenskap till False för att se arbetsboken. Du gör detta i fönstret Egenskaper när ThisWorkbook-objektet är markerat. När du har gjort dina ändringar i arbetsboken, se till att du ställer tillbaka egenskapen IsAddIn till True innan du sparar filen.
Att göra ett tillägg inte ett tillägg.
Lär dig att använda kommandona Gör om och Upprepa i Word 2016 för att effektivt hantera dina dokument. Dessa funktioner hjälper dig att enkelt ångra och återställa ändringar.
Hur man blockerar Microsoft Word från att öppna filer i skrivskyddat läge på Windows Microsoft Word öppnar filer i skrivskyddat läge, vilket gör det omöjligt att redigera dem? Oroa dig inte, metoderna finns nedan
Så här åtgärdar du fel vid utskrift av felaktiga Microsoft Word-dokument Fel vid utskrift av Word-dokument med ändrade teckensnitt, röriga stycken, saknad text eller förlorat innehåll är ganska vanligt. Men gör det inte
Om du har använt pennan eller överstrykningspennan för att rita på dina PowerPoint-bilder under en presentation, kan du spara ritningarna till nästa presentation eller radera dem så att nästa gång du visar den börjar du med rena PowerPoint-bilder. Följ dessa instruktioner för att radera ritningar med penna och överstrykningspenna: Radera linjer ett på […]
Stilbiblioteket innehåller CSS-filer, XSL-filer (Extensible Stylesheet Language) och bilder som används av fördefinierade mallsidor, sidlayouter och kontroller i SharePoint 2010. För att hitta CSS-filer i stilbiblioteket på en publiceringswebbplats: Välj Webbplatsåtgärder→Visa Allt webbplatsinnehåll. Innehållet på webbplatsen visas. Style-biblioteket ligger i […]
Överväldiga inte din publik med gigantiska siffror. I Microsoft Excel kan du förbättra läsbarheten för dina instrumentpaneler och rapporter genom att formatera dina siffror så att de visas i tusentals eller miljoner.
Lär dig hur du använder SharePoints sociala nätverksverktyg som låter individer och grupper kommunicera, samarbeta, dela och ansluta.
Julianska datum används ofta i tillverkningsmiljöer som en tidsstämpel och snabbreferens för ett batchnummer. Denna typ av datumkodning tillåter återförsäljare, konsumenter och serviceagenter att identifiera när en produkt tillverkades och därmed produktens ålder. Julianska datum används också i programmering, militären och astronomi. Annorlunda […]
Du kan skapa en webbapp i Access 2016. Så vad är en webbapp egentligen? Tja, webben betyder att den är online, och appen är bara en förkortning för "applikation". En anpassad webbapp är en onlinedatabasapplikation som nås från molnet med en webbläsare. Du bygger och underhåller webbappen i skrivbordsversionen […]
De flesta sidor i SharePoint 2010 visar en lista med navigeringslänkar i snabbstartsfältet till vänster på sidan. Snabbstartsfältet visar länkar till utvalt webbplatsinnehåll som listor, bibliotek, webbplatser och publiceringssidor. Snabbstartsfältet innehåller två mycket viktiga länkar: Länken Allt webbplatsinnehåll: […]
