Hur man lägger till dialogrutor till Excel Makroer med Visual Basic Editor - dummies

Du kan använda InputBox-funktionen för att lägga till dialogrutor i Excel 2013-makronen. När du kör makroen ger denna Visual Basic-funktion Excel för att visa en Input-dialogruta där du kan ange vilken titel som helst som är meningsfullt för det nya arbetsbladet. Makroet lägger sedan texten i den aktuella cellen och formaterar den här texten, om det är vad du har tränat ditt makro för att göra nästa.

För att se hur enkelt det är att använda InputBox-funktionen för att lägga till interaktivitet i ett annat stabilt makro, följ stegen för att konvertera Company_Name-makroet som för närvarande matar in texten "Mind Over Media" till en som faktiskt uppmanar dig till namnet som du vill skriva in. InputBox-funktionen använder följande syntax:

InputBox (prompt [title] [standard] [xpos] [ypos] [helpfile, context])

I denna funktion är endast > Argument krävs när resten av argumenten är frivilliga. Argumentet prompt anger det meddelande som visas i dialogrutan Inmatning, vilket ger användaren möjlighet att ange ett nytt värde (eller i det här fallet ett nytt företagsnamn). Argumentet

prompt kan uppgå till högst 1, 024 tecken. Om du vill att snabbmeddelandet ska visas på olika rader inuti dialogrutan, anger du funktionerna Chr (13) och Chr (10) i texten (för att infoga en vagnretur och en radmatning i respektive meddelande).

Argumentet för valfri

titel anger vilken text som ska visas i titellistan i dialogrutan Inmatning. Om du inte anger ett titel -argument, visar Excel namnet på programmet på titellistan. Det valfria standard -argumentet anger det standardsvar som automatiskt visas i textrutan längst ner i dialogrutan Inmatning. Om du inte anger ett standardargument är textrutan tom i dialogrutan Inmatning.

Den

xpos och ypos valfria argumenten anger det horisontella avståndet från skärmens vänstra kant till dialogrutans vänstra kant och det vertikala avståndet från skärmens övre kant till den övre kanten av dialogrutan. Om du inte anger dessa argument placerar Excel inmatningsdialogrutan horisontellt och placerar den ungefär en tredjedel av vägen nerför skärmen vertikalt. Den

helpfile och kontexten frivilliga argument anger namnet på den anpassade hjälpfilen som du gör tillgänglig för användaren för att förklara hur dialogrutan Inmatningsrutan fungerar liksom vilken typ av data som den accepterar. Som en del av processen med att skapa en anpassad hjälpfil för användning i Excel Hjälp-systemet tilldelar du ämnet ett sammanhangsnummer som är lämpligt för innehållet, vilket då anges som argumentet

kontext för InputBox-funktionen. När du anger en hjälpfil och

kontext -argument för den här funktionen lägger Excel till en hjälpknapp i den anpassade inmatningsdialogrutan som användare kan klicka för att komma åt den anpassade hjälpfilen i hjälpfönstret. Innan du kan lägga till koden till makroen med InputBox-funktionen, måste du hitta platsen i Visual Basic-kommandon där linjen ska gå. Om du vill skriva in texten Mind Over Media i den aktiva cellen använder Company_Name-makro följande Visual Basic-kommando:

ActiveCell. FormulaR1C1 = "Mind Over Media"

För att lägga till interaktivitet i makrot måste du infoga InputBox-funktionen på en rad i kodfönstret precis ovanför denna ActiveCell. FormulaR1C1 uttalande, enligt följande:

Placera insättningspunkten i kodfönstret i början av ActiveCell. FormulaR1C1-satsen och tryck på Enter för att infoga en ny rad.

Nu när du har lagt till en ny rad måste du flytta infogningspunkten upp till den.

Tryck på uppåtpilknappen för att placera inläggspunkten i början av den nya raden.
På den här raden vill du skapa en variabel som ger argumentet

prompt till InputBox-funktionen. För att göra detta anger du namnet på variabeln (InputMsg i det här fallet) följt av dess aktuella post. Var noga med att bifoga meddelandetexten på högra sidan av lika tecknet i ett slutet par dubbla citattecken. Skriv följande kod för att skapa InputMsg-variabeln på rad 8 och tryck sedan på Enter-tangenten för att starta en ny rad 9:
InputMsg = "Ange företagsnamn eller titel för detta arbetsblad i textrutan nedan och sedan klicka på OK: "
```
Därefter skapar du en variabel som heter InputTitle som tillhandahåller det valfria argumentet
```
title för InputBox-funktionen. Denna variabel visar att texten "Kalkylbladstitel" visas som titeln på dialogrutan Inmatning. Återigen, var noga med att bifoga namnet på dialogfältets titelfält i citattecken. Skriv följande kod för att skapa InputTitle-variabeln på rad 9 och tryck sedan på Enter för att infoga en ny rad 10:
InputTitle = "Kalkylbladstitel"
```
Därefter skapar du ett variabelnamn DefaultText som levererade tillvalet
```
standard argument till InputBox-funktionen. Denna variabel gör att texten "Mind Over Media" visas som standardinmatning i textrutan längst ner i dialogrutan Custom Company Name Input. Skriv följande kod för att skapa StandardText-variabeln på rad 10 och tryck sedan på Enter för att infoga en ny rad 11:

DefaultText = "Mind Over Media"

Därefter skapar du en slutlig variabel med namnet CompanyName som anger InputBox-funktionen som dess inmatning (med hjälp av InputMsg, InputTitle och DefaultText-variablerna som du just skapat) och lagrar resultaten av denna funktion.

Skriv följande kod för att skapa variabeln SpreadsheetTitle som använder InputBox-funktionen på rad 11:

SpreadsheetTitle = InputBox (InputMsg, InputTitle, DefaultText)

Slutligen ersätter du värdet "Mind Over Media" i ActiveCell.FormulaR1C1-egenskapen med variabeln SpreadsheetTitle (vars värde bestäms av vad som helst som matas in i dialogrutan Spreadsheet Title Input), och ersätter sålunda denna konstant i makronen med hjälp av de här sätten att göra denna ingång verkligen interaktiv.

Välj "Mind Over Media" på rad 12 och ersätt det med SpreadsheetTitle (utan citattecken).

Spara det redigerade makroet genom att klicka på Spara-knappen på Visual Basic-verktygsfältet och sedan återgå till kalkylbladet genom att klicka på knappen Visa Microsoft Excel eller trycka på Alt + F11. Klicka sedan på Dölj-knappen i fönstergruppen på fliken VIEW.
Nu är du redo att öppna en ny arbetsbok och köra det redigerade makroet genom att trycka på Ctrl + N.

Figuren visar kodfönstret med det redigerade Company_Name-makroet efter att ha lagt till de uttalanden som gör det interaktivt.

Följande bild visar dialogrutan Kalkylbladstitel i åtgärd i arbetsbladet. Den här dialogrutan för inmatning visas nu automatiskt och uppmanas till inmatning när du kör den redigerade och nu fullständigt interaktiva versionen av Company_Name-makro.

För att gå vidare och ange Mind Over Media i den aktuella cellen och formatera den sedan genom att använda resten av makrokommandon, klickar du bara på OK i den här anpassade dialogrutan. För att skriva in och formatera ett annat företags namn skriver du bara namnet på företaget (som automatiskt ersätter Mind Over Media i textrutan) innan du klickar på OK.