Sådan tilpasser du beskedbokse i Excel 2016 VBA

Fleksibiliteten af ​​VBA-knappernes argument gør det nemt at tilpasse dine Excel-meddelelsesbokse. Du kan vælge, hvilke knapper der skal vises, bestemme om et ikon skal vises, og bestemme hvilken knap der er standard (standardknappen "klikkes", hvis brugeren trykker på Enter).

Du kan bruge indbyggede konstanter til knappens argument. Hvis du foretrækker det, kan du bruge værdien i stedet for en konstant (men at bruge de indbyggede konstanter er meget nemmere).

For at bruge mere end én af disse konstanter som et argument, skal du bare forbinde dem med en +-operator. Hvis du f.eks. vil vise en beskedboks med knapperne Ja og Nej og et udråbsikon, skal du bruge følgende udtryk som det andet MsgBox-argument:

vbJaNej + vbUdråb

Eller, hvis du foretrækker at gøre din kode mindre forståelig, skal du bruge en værdi på 52 (det vil sige 4 + 48).

Det følgende eksempel bruger en kombination af konstanter til at vise en beskedboks med en Ja-knap og en Nej-knap (vbYesNo) samt et spørgsmålstegnikon (vbQuestion). Konstanten vbDefaultButton2 angiver den anden knap (Nej) som standardknappen - det vil sige den knap, der klikkes på, hvis brugeren trykker på Enter. For nemheds skyld tildeles disse konstanter til Config-variablen og bruger derefter Config som det andet argument i MsgBox-funktionen:

Sub GetAnswer3()
  Dim Config As Long
  Dim Ans Som heltal
  Config = vbYesNo + vbQuestion + vbDefaultButton2
  Ans = MsgBox(“Behandle den månedlige rapport?”, Config)
  Hvis Ans = vbYes Så KørRapport
Slut Sub

Tjek den beskedboks, Excel viser, når du udfører GetAnswer3-proceduren. Hvis brugeren klikker på knappen Ja, udfører rutinen proceduren med navnet RunReport. Hvis brugeren klikker på knappen Nej (eller trykker på Enter), afsluttes rutinen uden handling. Fordi titelargumentet blev udeladt i MsgBox-funktionen, bruger Excel standardtitlen, Microsoft Excel.

Sådan tilpasser du beskedbokse i Excel 2016 VBA

MsgBox-funktionens buttons-argument bestemmer, hvad der vises i meddelelsesboksen.

Følgende rutine giver et andet eksempel på brug af MsgBox-funktionen:

Sub GetAnswer4()
  Dæmp besked som streng, titel som streng
  Dim Config As Integer, Ans As Integer
  Msg = "Vil du behandle den månedlige rapport?"
  Msg = Msg & vbNewLine & vbNewLine
  Msg = Msg & "Behandling af den månedlige rapport vil"
  Msg = Msg & "tag cirka 15 minutter. Det "
  Msg = Msg & "vil generere en 30-siders rapport for "
  Msg = Msg & "alle salgskontorer for den nuværende"
  Msg = Msg & "month."
  Titel = "XYZ Marketing Company"
  Config = vbYesNo + vbQuestion
  Ans = MsgBox(Msg, Config, Title)
  Hvis Ans = vbYes Så KørRapport
Slut Sub

Dette eksempel viser en effektiv måde at angive en længere besked i en beskedboks. En variabel (Msg) og sammenkædningsoperatoren (&) bruges til at bygge beskeden i en række udsagn. vbNewLine-konstanten indsætter et linjeskifttegn, der starter en ny linje (brug det to gange til at indsætte en tom linje). Titelargumentet bruges til at vise en anden titel i meddelelsesboksen. Her er meddelelsesboksen, som Excel viser, når du udfører denne procedure.

Sådan tilpasser du beskedbokse i Excel 2016 VBA

Denne dialogboks, der vises af MsgBox-funktionen, viser en titel, et ikon og to knapper.

Du kan bruge konstanter (såsom vbYes og vbNo) til returværdien af ​​en MsgBox-funktion. Her er et par andre konstanter.

Konstant Værdi Hvad det betyder
vbOK 1 Bruger klikkede OK.
vbAnnuller 2 Bruger klikkede på Annuller.
vbAbort 3 Bruger klikkede på Afbryd.
vbPrøv igen 4 Brugeren klikkede på Prøv igen.
vbIgnorer 5 Brugeren klikkede på Ignorer.
vbJa 6 Bruger klikkede på Ja.
vbNr 7 Bruger klikkede på Nej.

Og det er stort set alt, hvad du behøver at vide om MsgBox-funktionen. Brug dog beskedbokse med forsigtighed. Der er normalt ingen grund til at vise beskedbokse, der ikke tjener noget formål. For eksempel har folk en tendens til at blive irriterede, når de hver dag ser en beskedboks, hvor der står Godmorgen. Tak, fordi du indlæste budgetprojekterings-projektbogen.


Sådan blokerer du Microsoft Word fra at åbne filer i skrivebeskyttet tilstand på Windows

Sådan blokerer du Microsoft Word fra at åbne filer i skrivebeskyttet tilstand på Windows

Sådan blokerer du Microsoft Word fra at åbne filer i skrivebeskyttet tilstand på Windows Microsoft Word åbner filer i skrivebeskyttet tilstand, hvilket gør det umuligt at redigere det? Bare rolig, metoderne er nedenfor

Sådan rettes forkert udskrivning af Microsoft Word-dokumenter

Sådan rettes forkert udskrivning af Microsoft Word-dokumenter

Sådan rettes fejl ved udskrivning af forkerte Microsoft Word-dokumenter Fejl ved udskrivning af Word-dokumenter med ændrede skrifttyper, rodede afsnit, manglende tekst eller tabt indhold er ret almindelige. Men lad være

Slet pen- og highlighter-tegninger på dine PowerPoint-dias

Slet pen- og highlighter-tegninger på dine PowerPoint-dias

Hvis du har brugt pennen eller highlighteren til at tegne på dine PowerPoint-dias under en præsentation, kan du gemme tegningerne til næste præsentation eller slette dem, så næste gang du viser den, starter du med rene PowerPoint-dias. Følg disse instruktioner for at slette pen- og highlighter-tegninger: Sletning af linjer en ved […]

Indhold af stilbibliotek i SharePoint 2010

Indhold af stilbibliotek i SharePoint 2010

Style-biblioteket indeholder CSS-filer, Extensible Stylesheet Language-filer (XSL) og billeder, der bruges af foruddefinerede mastersider, sidelayouts og kontrolelementer i SharePoint 2010. For at finde CSS-filer i Style-biblioteket på et udgivelsessted: Vælg Site Actions→ View Alt webstedsindhold. Indholdet af webstedet vises. Style-biblioteket ligger i […]

Formater tal i tusinder og millioner i Excel-rapporter

Formater tal i tusinder og millioner i Excel-rapporter

Overvæld ikke dit publikum med gigantiske tal. I Microsoft Excel kan du forbedre læsbarheden af ​​dine dashboards og rapporter ved at formatere dine tal, så de vises i tusinder eller millioner.

Sådan deler og følger du SharePoint-websteder

Sådan deler og følger du SharePoint-websteder

Lær, hvordan du bruger SharePoints sociale netværksværktøjer, der lader enkeltpersoner og grupper kommunikere, samarbejde, dele og forbinde.

Sådan konverteres datoer til julianske formater i Excel

Sådan konverteres datoer til julianske formater i Excel

Julianske datoer bruges ofte i produktionsmiljøer som et tidsstempel og hurtig reference for et batchnummer. Denne type datokodning giver detailhandlere, forbrugere og serviceagenter mulighed for at identificere, hvornår et produkt blev fremstillet, og dermed produktets alder. Julianske datoer bruges også i programmering, militæret og astronomi. Forskellige […]

Sådan opretter du en Access Web App

Sådan opretter du en Access Web App

Du kan oprette en webapp i Access 2016. Så hvad er en webapp overhovedet? Nå, web betyder, at det er online, og app er kun en forkortelse for "applikation". En Custom Web App er en online databaseapplikation, der tilgås fra skyen ved hjælp af en browser. Du bygger og vedligeholder webappen i desktopversionen […]

Hurtig startlinje i SharePoint 2010

Hurtig startlinje i SharePoint 2010

De fleste sider i SharePoint 2010 viser en liste over navigationslinks på linjen Hurtig start langs venstre side af siden. Hurtig startlinjen viser links til fremhævet webstedsindhold såsom lister, biblioteker, websteder og udgivelsessider. Hurtigstartlinjen indeholder to meget vigtige links: Linket Alt webstedsindhold: […]

Hvad betyder Solver-fejlmeddelelserne i Excel?

Hvad betyder Solver-fejlmeddelelserne i Excel?

Ved simple problemer finder Solver i Excel som regel hurtigt de optimale Solver-variableværdier for objektivfunktionen. Men i nogle tilfælde har Solver problemer med at finde de Solver-variableværdier, der optimerer objektivfunktionen. I disse tilfælde viser Solver typisk en meddelelse eller en fejlmeddelelse, der beskriver eller diskuterer det problem, der […]