Jak přizpůsobit schránky zpráv v Excelu 2016 VBA

Flexibilita argumentu tlačítek VBA usnadňuje přizpůsobení oken zpráv aplikace Excel. Můžete si vybrat, která tlačítka se mají zobrazit, určit, zda se zobrazí ikona, a rozhodnout, které tlačítko je výchozí (výchozí tlačítko „klikne“, pokud uživatel stiskne Enter).

Pro argument tlačítka můžete použít vestavěné konstanty. Pokud chcete, můžete použít hodnotu spíše než konstantu (ale použití vestavěných konstant je mnohem jednodušší).

Chcete-li jako argument použít více než jednu z těchto konstant, stačí je spojit s operátorem +. Chcete-li například zobrazit okno se zprávou s tlačítky Ano a Ne a ikonou vykřičníku, použijte jako druhý argument pole MsgBox následující výraz:

vbYesNo + vbExclamation

Nebo, pokud chcete, aby byl váš kód méně srozumitelný, použijte hodnotu 52 (tj. 4 + 48).

Následující příklad používá kombinaci konstant k zobrazení okna se zprávou s tlačítkem Ano a tlačítkem Ne (vbYesNo) a také s ikonou otazníku (vbQuestion). Konstanta vbDefaultButton2 označuje druhé tlačítko (Ne) jako výchozí tlačítko – tedy tlačítko, na které se klikne, když uživatel stiskne Enter. Pro jednoduchost jsou tyto konstanty přiřazeny k proměnné Config a poté použijte Config jako druhý argument ve funkci MsgBox:

Sub GetAnswer3()
  Dim Config As Long
  Dim Ans As Integer
  Config = vbYesNo + vbQuestion + vbDefaultButton2
  Ans = MsgBox(“Zpracovat měsíční přehled?”, Konfigurace)
  If Ans = vbYes Then RunReport
End Sub

Sub GetAnswer4()
  Dim Msg As String, Title As String
  Dim Config As Integer, Ans As Integer
  Msg = "Chcete zpracovat měsíční přehled?"
  Msg = Msg & vbNewLine & vbNewLine
  Msg = Msg & „Zpracování měsíčního přehledu bude“
  Msg = Msg & „trvá přibližně 15 minut. To "
  Msg = Msg & “vygeneruje 30stránkový report pro “
  Msg = Msg & „všechny prodejní kanceláře pro aktuální“
  Msg = Zpráva a „měsíc“.
  Název = „Marketingová společnost XYZ“
  Config = vbYesNo + vbQuestion
  Ans = MsgBox (Zpráva, Konfigurace, Název)
  If Ans = vbYes Then RunReport
End Sub