Sådan tilføjes dialogbokse til Excel-makroer med Visual Basic Editor - dummier

Du kan bruge InputBox-funktionen til at tilføje dialogbokse til dine Excel 2013-makroer. Når du kører makroen, får denne Visual Basic-funktion Excel til at vise en Input-dialogboks, hvor du kan indtaste, hvad titlen giver mening for det nye regneark. Makroen sætter så den pågældende tekst i den aktuelle celle og formaterer denne tekst, hvis det er hvad du har uddannet din makro til at gøre næste gang.

For at se, hvor nemt det er at bruge InputBox-funktionen til at tilføje interaktivitet til en ellers stilig makro, skal du følge trinene for at konvertere makroen Company_Name, der aktuelt indtaster teksten "Mind Over Media" til en, der faktisk beder dig om navnet som du vil indtaste. InputBox-funktionen bruger følgende syntaks:

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

I denne funktion er kun prompt > Argument er påkrævet, mens resten af argumenterne er valgfrie. Argumentet prompt angiver den meddelelse, der vises i dialogboksen Indtastning, hvorved brugeren bliver bedt om at indtaste en ny værdi (eller i dette tilfælde et nyt firmanavn). Argumentet

prompt kan være op til maksimalt 1, 024 tegn. Hvis du vil have den hurtige besked på forskellige linjer inde i dialogboksen, indtaster du funktionerne Chr (13) og Chr (10) i teksten (for at indsætte en vognretur og en linjefeed i meddelelsen).

Argumentet valgfri

titel angiver, hvilken tekst der skal vises i titellinjen i dialogboksen Indtastning. Hvis du ikke angiver et titel argument, viser Excel navnet på applikationen på titellinjen. Det valgfrie standard -argument angiver det standard svar, der automatisk vises i tekstboksen nederst i dialogboksen Indtastning. Hvis du ikke angiver et standardargument, er tekstboksen tom i dialogboksen Indtastning.

xpos og ypos valgfrie argumenter angiver den vandrette afstand fra skærmens venstre kant til den venstre kant af dialogboksen og den lodrette afstand fra skærmens øverste kant til øverste kant af dialogboksen. Hvis du ikke angiver disse argumenter, centrerer Excel indgangsdialogboksen vandret og placerer den cirka en tredjedel af vejen ned ad skærmen lodret. Den

hjælpefil og kontekst valgfrie argumenter angiver navnet på den brugerdefinerede hjælpefil, som du stiller til rådighed for brugeren, for at forklare indstillingerne i dialogboksen Indtastning samt typen af data, som den accepterer. Som led i processen med at oprette en brugerdefineret hjælpefil til brug i Excel Help-systemet, tildeler du emnet et kontekstnummer, der passer til dets indhold, som derefter angives som argumentet

kontekst for InputBox funktion. Når du angiver en hjælpefil og

kontekst -argument for denne funktion, tilføjer Excel en hjælpeknap til den brugerdefinerede input-dialogboks, som brugere kan klikke for at få adgang til den brugerdefinerede hjælpefil i Hjælp-vinduet. Før du kan føje kodekoden til makroen med InputBox-funktionen, skal du finde stedet i Visual Basic-kommandoerne, hvor linjen skal gå. For at komme ind i "Mind Over Media" -teksten i den aktive celle, bruger Company_Name-makroen følgende Visual Basic-kommando:

ActiveCell. FormulaR1C1 = "Mind Over Media"

For at tilføje interaktivitet til makroen, skal du indsætte InputBox-funktionen på en linje i kodevinduet lige over denne ActiveCell. FormulaR1C1 erklæring, som følger:

Placer indsættelsespunktet i kodevinduet i starten af ActiveCell. FormulaR1C1 erklæring og tryk Enter for at indsætte en ny linje.

Nu hvor du har tilføjet en ny linje, skal du flytte indsættelsespunktet op til det.

Tryk på pil op for at placere indsættelsespunktet i begyndelsen af den nye linje.
På denne linje vil du oprette en variabel, der leverer argumentet

prompt til InputBox-funktionen. For at gøre dette angives navnet på variablen (InputMsg i dette tilfælde) efterfulgt af dens aktuelle indgang. Sørg for at vedhæfte meddelelsesteksten på højre side af ens tegn i et lukket par dobbelt citatmærker. Indtast følgende kode for at oprette variablen InputMsg på linje 8 og tryk derefter på Enter for at starte en ny linje 9:
InputMsg = "Indtast firmaets navn eller titel for dette regneark i tekstfeltet nedenfor og derefter Klik på OK: "
```
Dernæst opretter du en variabel med navnet InputTitle, der leverer det valgfrie
```
titel -argument for InputBox-funktionen. Denne variabel viser, at teksten "Regnearkstitel" vises som titlen på input-dialogboksen. Igen skal du huske at vedhæfte navnet på dialogboksens titellinje i citatmærker. Indtast følgende kode for at oprette variablen InputTitle på linje 9 og tryk derefter på Enter for at indsætte en ny linje 10:
InputTitle = "Regnearkstitel"
```
Dernæst opretter du et variabelnavn DefaultText, der leverede valgfri
```
standard argument til InputBox-funktionen. Denne variabel gør teksten "Mind Over Media" vist som standardindtastningen i tekstboksen nederst i dialogboksen Brugerdefineret virksomhedsnavn. Indtast følgende kode for at oprette standardtekstvariablen på linje 10 og tryk derefter på Enter for at indsætte en ny linje 11:

DefaultText = "Mind Over Media"

Dernæst opretter du en endelig variabel, der hedder CompanyName, der angiver InputBox-funktionen som dens indtastning (ved hjælp af InputMsg, InputTitle og DefaultText-variabler, som du netop har oprettet) og gemmer resultaterne af denne funktion.

Indtast følgende kode for at oprette variablen SpreadsheetTitle, der bruger InputBox-funktionen på linje 11:

SpreadsheetTitle = InputBox (InputMsg, InputTitle, DefaultText)

Endelig erstatter du værdien "Mind Over Media" i ActiveCell.FormulaR1C1-egenskaben med variablen SpreadsheetTitle (hvis værdi bestemmes af hvad som helst, der indtastes i dialogboksen Spreadsheet Title Input), og erstatter således denne konstant i makroen med midlerne til at gøre denne indgang virkelig interaktiv.

Vælg "Mind Over Media" på linje 12 og erstat det med SpreadsheetTitle (uden anførselstegn).

Gem den redigerede makro ved at klikke på knappen Gem på Visual Basic-værktøjslinjen og derefter gå tilbage til regnearket ved at klikke på knappen Vis Microsoft Excel eller trykke på Alt + F11. Klik derefter på knappen Skjul i vinduet Vindue i fanebladet VIS.
Nu er du klar til at åbne en ny projektmappe og køre den redigerede makro ved at trykke på Ctrl + N.

Figuren viser kodevinduet med den redigerede Company_Name-makro, efter at du har tilføjet de udsagn, der gør det interaktivt.

Følgende figur viser dialogboksen Regnearkstitel i aktion i regnearket. Denne input dialogboks vises nu automatisk og beder dig om input, når du kører den redigerede og nu fuldt interaktive version af Company_Name-makroen.

For at gå videre og indtaste Mind Over Media i den nuværende celle og formatere den ved at bruge resten af makrokommandoerne, skal du bare klikke på OK i denne brugerdefinerede dialogboks. For at indtaste og formatere navnet på et andet firma, skal du blot skrive navnet på virksomheden (som automatisk erstatter Mind Over Media i tekstboksen), før du klikker på OK.