Hvordan legge til dialogbokser til Excel-makroer med Visual Basic Editor

Du kan bruke InputBox funksjonen for å legge til dialogbokser til Excel 2013 makroer. Når du kjører makroen, dette fører til Visual Basic-funksjonen i Excel for å vise en dialogboks inngang der du kan skrive inn hva tittelen er fornuftig for det nye regnearket. Makro deretter setter som tekst i gjeldende celle og formater denne teksten, hvis det er det du har trent makroen skal gjøre videre.

For å se hvor enkelt det er å bruke InputBox funksjonen for å legge til interaktivitet til en ellers trauste makro, følger du fremgangsmåten for å konvertere selskapets _
navn makro som for tiden innganger teksten "Mind Over Media" til en som faktisk spør etter navnet du vil inn. Den InputBox funksjonen bruker følgende syntaks:
InputBox (rask [, tittel] [, standard] [, XPOS] [, ypos] [, hjelpefilen, kontekst])

I denne funksjonen bare teksten
argument er nødvendig med resten av argumentene være valgfritt. rask
argumentet angir meldingen som vises inne i dialogboksen Input-boksen, ber brukeren om å skrive inn en ny verdi (eller i dette tilfellet, et nytt firmanavn).

rask
argument kan være opp til maksimalt 1024 tegn. Hvis du vil at rask melding vises på forskjellige linjer inne i dialogboksen angir du funksjonene Chr (13) og Chr (10) i teksten (for å sette inn et linjeskift og linjeskift i meldingen, henholdsvis).

den valgfrie tittelen
argumentet angir hvilken tekst som skal vises i tittellinjen i dialogboksen Input-boksen. Hvis du ikke angir et tittelen
argument, viser Excel navnet på programmet på tittellinjen. Den valgfrie standard
argumentet angir standardsvar som automatisk vises i tekstboksen nederst i dialogboksen Input-boksen.

Hvis du ikke angir en standard argument, er tekstboksen tomt i dialogboksen-boksen.

XPOS Hotell og ypos
valgfrie argumenter angi den horisontale avstanden fra venstre kant av skjermen til venstre kant av dialogboksen og den vertikale avstanden fra den øverste kanten av skjermen til øvre kant av dialogboksen. Hvis du ikke angir disse argumentene, Excel sentre input dialogboksen horisontalt og plasserer den omtrent en tredjedel av veien nedover skjermen vertikalt.

hjelpefilen Hotell og sammenheng
valgfrie argumenter angi navnet på den tilpassede hjelpefilen som du gjør tilgjengelig for brukeren å forklare hjemkomsten av Input dialogboksen samt hvilken type data som den godtar.

som en del av prosessen med å lage en egendefinert hjelpefilen for bruk i Excel hjelpesystemet, tildeler du temaet en kontekst nummer som passer til innholdet, som deretter angitt som sammenheng
argument for InputBox funksjonen.
< p> Når du angir en hjelp fil og sammenheng
argument for denne funksjonen, Excel legger en Hjelp-knapp til skikken Input dialogboksen som brukere kan klikke for å få tilgang til tilpassede hjelpefilen i hjelpevinduet.

Før du kan legge til linjen med kode til makroen med InputBox funksjonen, må du finne det stedet i Visual Basic kommandoer hvor grensen skal gå. Å gå inn i Mind Over Media tekst i den aktive cellen, selskapet _
Navn makro bruker følgende Visual Basic kommando:
ActiveCell.FormulaR1C1 = "Mind Over Media"

For å legge til interaktivitet til makro, må du sette inn InputBox funksjonen på en linje i koden vinduet rett ovenfor denne ActiveCell.FormulaR1C1 uttalelse, som følger:

Plasser innsettingspunktet i koden vinduet på begynnelsen av ActiveCell.FormulaR1C1 uttalelse 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å opp-piltasten til posisjon innsettingspunktet ved begynnelsen av den nye linjen.
på denne linjen, du vil opprette en variabel som forsyner teksten
argument til InputBox funksjonen. For å gjøre dette, oppgir du navnet på variabelen (InputMsg i dette tilfellet), etterfulgt av sin nåværende oppføring. Husk å legge ved meldingsteksten på høyre side av likhetstegnet i en lukket par doble anførselstegn.

  • Skriv inn følgende kode for å opprette InputMsg variabelen på linje 8 og trykk Enter tasten for å starte en ny linje 9:
    InputMsg = "Skriv inn firmanavn eller tittel for dette regnearket i tekstboksen nedenfor og klikk deretter OK:" deretter oppretter du en variabel som heter InputTitle som leverer den valg tittel
    argument for InputBox funksjonen. Denne variabelen gjør teksten "regneark Title" vises som tittel i dialogboksen Input-boksen. Igjen, sørg for å legge inn navnet på dialogboksen tittellinjen i anførselstegn

    Skriv inn følgende kode for å opprette InputTitle variabelen på linje 9 og trykk deretter Enter for å sette inn en ny linje 10.:
    InputTitle = "regneark Title" Deretter oppretter du en variabelnavn DefaultText som leverte den valg standard
    argument til InputBox funksjonen. Denne variabelen gjør teksten, "Mind Over Media," vises som standard oppførings på tekstboksen nederst på den tilpassede Firmanavn Input dialogboksen.
  • Skriv inn følgende kode for å opprette DefaultText variabel på linje 10 og trykk på Enter for å sette inn en ny linje 11:
    DefaultText = "Mind Over Media" deretter oppretter du en endelig variabel som heter Ola Normann som angir InputBox funksjon som sin inntreden (ved hjelp av InputMsg, InputTitle, og DefaultText variabler som du nettopp opprettet) og lagrer resultatene av denne funksjonen

    Skriv inn følgende kode for å opprette SpreadsheetTitle variabel som bruker InputBox funksjon på linje 11:.
    SpreadsheetTitle = InputBox (InputMsg , InputTitle, DefaultText) til slutt, du erstatte verdien, "Mind Over medier", i ActiveCell.FormulaR1C1 eiendom med SpreadsheetTitle variable (der verdien bestemmes av hva som innspill til regneark Tittel dialog Input box), og dermed effektivt erstatte dette konstant i makro med midler for å gjøre denne inngangen virkelig interaktiv.

    Velg "Mind Over Media" på linje 12 og erstatte den med SpreadsheetTitle (uten anførselstegn).

    Lagre den redigerte makroen ved å klikke på Lagre-knappen på verktøylinjen for Visual Basic og deretter gå tilbake til regnearket ved å klikke på Vis Microsoft Excel-knappen eller trykke Alt + F11. Deretter klikker du på Skjul-knappen i Vindu-gruppen i kategorien VIEW.
    Nå er du klar til å åpne en ny arbeidsbok og kjøre redigert makro ved å trykke Ctrl + N.
    < p> figuren viser Code-vinduet med det redigerte selskapet _
    Navn makro etter tilsetting uttalelser som gjør det interaktivt.

    figuren nedenfor viser regneark Tittel dialogboksen i aksjon i regnearket . Denne inngangen dialogboks vises nå automatisk og ber deg om innspill når du kjører redigert og nå fullstendig interaktiv versjon av Company_Name makro.

    For å gå videre og skriv Mind Over Media i gjeldende celle og deretter formatere den ved bruke resten av makro-kommandoer, klikker du bare OK i denne skikken dialogboksen. For å legge inn og formaterer navnet på et annet selskap, du bare skrive inn navnet på selskapet (som automatisk erstatter Mind Over Media i tekstboksen) før du klikker OK.