Si të personalizoni kutitë e mesazheve në Excel 2016 VBA

Fleksibiliteti i argumentit të butonave VBA e bën të lehtë personalizimin e kutive të mesazheve në Excel. Ju mund të zgjidhni cilat butona të shfaqen, të përcaktoni nëse shfaqet një ikonë dhe të vendosni se cili buton është i paracaktuar (butoni i paracaktuar "klikon" nëse përdoruesi shtyp Enter).

Ju mund të përdorni konstante të integruara për argumentin e butonave. Nëse preferoni, mund të përdorni vlerën në vend të një konstante (por përdorimi i konstantave të integruara është shumë më i lehtë).

Për të përdorur më shumë se një nga këto konstante si argument, thjesht lidhni ato me një operator +. Për shembull, për të shfaqur një kuti mesazhi me butonat Po dhe Jo dhe një ikonë pasthirrme, përdorni shprehjen e mëposhtme si argumentin e dytë MsgBox:

vbPo Jo + vbThirrje

Ose, nëse preferoni ta bëni kodin tuaj më pak të kuptueshëm, përdorni një vlerë prej 52 (d.m.th., 4 + 48).

Shembulli i mëposhtëm përdor një kombinim konstantesh për të shfaqur një kuti mesazhesh me një buton Po dhe një buton Jo (vbPo Jo) si dhe një ikonë të pikëpyetjes (vbQuestion). Konstantja vbDefaultButton2 cakton butonin e dytë (Jo) si butonin e paracaktuar - domethënë butonin që klikohet nëse përdoruesi shtyp Enter. Për thjeshtësi, këto konstante i caktohen variablit Config dhe më pas përdorin Config si argumentin e dytë në funksionin MsgBox:

Nën GetAnswer3()
  Konfigurimi i zbehtë për aq kohë sa
  Dim Ans si numër i plotë
  Konfigurimi = vbPo Jo + vbQuestion + vbDefaultButton2
  Ans = MsgBox ("Përpunoni raportin mujor?", Konfiguro)
  Nëse Ans = vbPo, atëherë RunReport
Fundi Nën

Nën GetAnswer4()
  Mesazhi i zbehtë si varg, titulli si varg
  Konfigurimi i zbehtë si numër i plotë, Ans si numër i plotë
  Msg = "A doni të përpunoni raportin mujor?"
  Msg = Msg & vbNewLine & vbNewLine
  Msg = Msg & "Përpunimi i raportit mujor do të"
  Msg = Msg & “merr afërsisht 15 minuta. ajo "
  Msg = Msg & "do të gjenerojë një raport 30 faqesh për"
  Msg = Msg & "të gjitha zyrat e shitjeve për momentin"
  Msg = Msg & "muaj".
  Titulli = "Kompania e marketingut XYZ"
  Konfigurimi = vbPo Jo + vbPyetje
  Përgjigje = MsgBox (Msg, konfigurim, titull)
  Nëse Ans = vbPo, atëherë RunReport
Fundi Nën