< návrat zpět

MS Excel

Téma: přidání MsgBox rss

Zaslal/a ludvikd 4.2.2011 14:04

Zdravím,
nevíte někdo jak přidat MsgBox, který by se automaticky zobrazil při zavření sešitu.
díky

Zaslat odpověď >
icon Poki(4.2.2011 14:14)#004023
Poki
staci vlozit MsgBox do procedury Private Sub Workbook_BeforeClose(Cancel As Boolean), ktera je v modulu ThisWorkbook.citovat
ludvikd(8.2.2011 7:45)#004042
avatar
díky moc funguje to, ale ještě bych potřeboval ,jak udělat rozhodovací MsgBox, který by při odpovědi NE nezavřel sešit?

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = "BYL ZAZNAMENÁN POPIS ZMĚNY!!!"
Style = vbYesNo + vbCritical + vbDefaultButton2
Title = "Ukázkové okno"
Help = "DEMO.HLP" ' Definujeme soubor s helpem.
Ctxt = 1000 ' Definujeme řádek z helpu
Response = MsgBox(Msg, Style, Title, Help, Ctxt)

If Response = vbYes Then ' Pokud stiskneme ANO

Else ' Pokud stiskneme Ne.


End If

End Subcitovat
icon Poki(8.2.2011 9:33)#004044
Poki
K rozhodovani rad pouzivam Select case.
pouziva se takto:

Select Case Response
Case vbYES
'kod po stisknuti YES
Case vbNO
Cancel = true
End Selectcitovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

Týden v roce

Petr92 • 16.7. 15:34

Řazení podle času v kategoriích

veny • 16.7. 11:34

špatný výpočet ze zisku - příčina?

Anonym • 12.7. 22:56

špatný výpočet ze zisku - příčina?

Jakoby • 12.7. 12:35

Řazení podle času v kategoriích

Marekh • 12.7. 9:55

Porovnávací Tabulka

Jess • 8.7. 20:49

Vzorec pro zkopírování obsahu buňky.

veny • 6.7. 8:28