Slik legger du til dialogbokser til Excel Makroer med Visual Basic Editor - dummies

Du kan bruke InputBox-funksjonen til å legge til dialogbokser i Excel 2013-makroene dine. Når du kjører makroen, forårsaker denne Visual Basic-funksjonen Excel å vise en Input-dialogboks der du kan skrive inn hvilken tittel som gir mening for det nye regnearket. Makroen legger deretter teksten i gjeldende celle og formaterer denne teksten, hvis det er det du har trent makroen til å gjøre neste gang.

For å se hvor enkelt det er å bruke InputBox-funksjonen for å legge til interaktivitet i en ellers sta makro, følg trinnene for å konvertere Company_Name-makroen som for øyeblikket legger inn teksten "Mind Over Media" til en som faktisk ber om navnet ditt som du vil skrive inn. InputBox-funksjonen bruker følgende syntaks:

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

I denne funksjonen er det bare > Argumentet kreves når resten av argumentene er valgfrie. Argumentet prompt angir meldingen som vises i Input-dialogboksen, og ber om at brukeren oppgir en ny verdi (eller i dette tilfellet et nytt firmanavn). Argumentet

ledig kan være maksimalt 1, 024 tegn. Hvis du vil at hurtigmeldingen skal vises på forskjellige linjer inne i dialogboksen, skriver du inn funksjonene Chr (13) og Chr (10) i teksten (for å sette inn en vognretur og en linjefeed i meldingen, henholdsvis).

Argumentet valgfritt

tittel angir hvilken tekst som skal vises i tittellinjen i Input-dialogboksen. Hvis du ikke angir et tittel -argument, viser Excel navnet på programmet på tittellinjen. Det valgfrie standard -argumentet angir standardresponsen som automatisk vises i tekstboksen nederst i Input-dialogboksen. Hvis du ikke angir et standardargument, er tekstboksen tom i Input-dialogboksen.

xpos

og ypos valgfrie argumenter angir den horisontale avstanden fra skjermens venstre kant til den venstre kanten av dialogboksen og den vertikale avstanden fra toppen av skjermen til øverste kant av dialogboksen. Hvis du ikke angir disse argumentene, senterer Excel inngangsdialogboksen horisontalt og plasserer den omtrent en tredjedel av veien nedover skjermen vertikalt. Den helpfile

og konteksten valgfrie argumenter angir navnet på den egendefinerte hjelpefilen du gjør tilgjengelig for brukeren, for å forklare arbeidene i Input-dialogboksen, samt typen av data som den aksepterer. Som en del av prosessen med å opprette en tilpasset hjelpefil for bruk i Excel Help-systemet, tilordner du emnet et kontekstnummer som passer til innholdet, som deretter angis som argumentet kontekst

for InputBox-funksjon. Når du angir en hjelpefil og kontekst

-argument for denne funksjonen, legger Excel til en Hjelp-knapp i den tilpassede Input-dialogboksen som brukere kan klikke for å få tilgang til den egendefinerte hjelpefilen i Hjelp-vinduet. Før du kan legge til koden til makroen med InputBox-funksjonen, må du finne stedet i Visual Basic-kommandoene der linjen skal gå. For å skrive inn Mind Over Media-teksten i den aktive cellen, bruker Company_Name-makroen følgende Visual Basic-kommando: ActiveCell. FormulaR1C1 = "Mind Over Media"

For å legge til interaktivitet i makroen, må du sette inn InputBox-funksjonen på en linje i kodevinduet rett over denne ActiveCell. FormulaR1C1-setningen, som følger:

Plasser innsettingspunktet i kodevinduet i begynnelsen av ActiveCell. FormulaR1C1-setningen og trykk Enter for å sette inn en ny linje.

Nå som du har lagt til en ny linje, må du flytte innsettingspunktet opp til det.

Trykk på pil opp-tasten for å plassere innsatspunktet i begynnelsen av den nye linjen.

På denne linjen vil du opprette en variabel som leverer argumentet
prompt

til InputBox-funksjonen. For å gjøre dette oppgir du navnet på variabelen (InputMsg i dette tilfellet) etterfulgt av gjeldende oppføring. Pass på at du legger inn tekstteksten på høyre side av likestillingsmerket i et lukket par dobbeltnoteringsmerker. Skriv inn følgende kode for å opprette InputMsg-variabelen på linje 8 og trykk deretter Enter-tasten for å starte en ny linje 9: InputMsg = "Skriv inn firmaets navn eller tittel for dette regnearket i tekstboksen under og deretter klikk OK: "
Deretter oppretter du en variabel som heter InputTitle som leverer det valgfrie
```
tittelen
```
-argumentet for InputBox-funksjonen. Denne variabelen gjør at teksten "Regnearktittel" vises som tittelen på Input-dialogboksen. Igjen, vær sikker på å legge ved navnet på dialogboksens tittellinje i anførselstegn. Skriv inn følgende kode for å opprette InputTitle-variabelen på linje 9, og trykk deretter på Enter for å sette inn en ny linje 10: InputTitle = "Regnearktittel"
Deretter oppretter du et variabelnavn DefaultText som ga tilleggsutstyret
```
standard
```
argument til InputBox-funksjonen. Denne variabelen gjør at teksten "Mind Over Media" vises som standardoppføring i tekstboksen nederst i dialogboksen Tilpasset bedriftsnavn. Skriv inn følgende kode for å lage standardtekstvariabelen på linje 10 og trykk deretter på Enter for å sette inn en ny linje 11: DefaultText = "Mind Over Media"
Deretter oppretter du en endelig variabel som heter CompanyName som angir InputBox-funksjonen som sin oppføring (ved hjelp av InputMsg, InputTitle og DefaultText-variablene du nettopp har opprettet) og lagrer resultatene av denne funksjonen.
```
Skriv inn følgende kode for å opprette variabelen SpreadsheetTitle som bruker InputBox-funksjonen på linje 11:
```
SpreadsheetTitle = InputBox (InputMsg, InputTitle, DefaultText)
Endelig erstatter du verdien "Mind Over Media" i ActiveCell.FormulaR1C1-egenskapen med variabelen SpreadsheetTitle (hvis verdi bestemmes av hva som helst som legges inn i dialogboksen Regnearktittelinngang), og dermed erstatter denne konstanten effektivt i makroen, med mulighetene for å gjøre dette innspillet virkelig interaktivt.
```
Velg "Mind Over Media" på linje 12 og erstatt den med SpreadsheetTitle (uten anførselstegn).
```
Lagre den redigerte makroen ved å klikke på Lagre-knappen på Visual Basic-verktøylinjen og deretter gå tilbake til regnearket ved å klikke på Vis Microsoft Excel-knappen eller trykke på Alt + F11. Deretter klikker du Skjul-knappen i Vinduegruppen på VIEW-fanen.
Nå er du klar til å åpne en ny arbeidsbok og kjøre den redigerte makroen ved å trykke Ctrl + N.
Figuren viser kodevinduet med den redigerte Company_Name-makroen etter å ha lagt til setningene som gjør det interaktivt.

Følgende figur viser dialogboksen Regnearktittel i handlingen i regnearket. Denne inntastingsdialogboksen vises nå automatisk og ber deg om input når du kjører den redigerte og nå helt interaktive versjonen av Company_Name-makroen.

For å gå videre og skriv inn Mind Over Media i gjeldende celle og formater den deretter ved å bruke resten av makrokommandoene, klikker du bare OK i denne egendefinerte dialogboksen. For å skrive inn og formatere navnet på et annet selskap, skriver du bare navnet på firmaet (som automatisk erstatter Mind Over Media i tekstboksen) før du klikker OK.