MsgBox - dialogové okno - VBA Excel

m.thums

Přidáno: 26.05.12 05:40

Ahoj, když zvolím MsgBox s tlačítkem nápovědy, jak má vypadat kód, který po stisknutí "nápověda" najde třeba příslušný soubor ? m.thums@seznam.cz

Pavel Lasák

Přidáno: 26.05.12 10:16

To m.thums: například takto: souborNapoveda = "D:\mujhelp.chm" strMessage = MsgBox("Nápověda", vbOKCancel + vbQuestion + _ vbDefaultButton1 + vbMsgBoxHelpButton, "Zobrazí nápovědu - help", souborNapoveda, 0) 0, nebo případné číslo odkazu na danou kapitolu v nápovědě

J.P.

Přidáno: 04.02.13 08:39

Dobrý den, je možno umístit hlášku MsgBox třeba na pravý okraj listu? Děkuji za odpověď

Pavel Lasák

Přidáno: 04.02.13 15:59

to J.P.: Pozicování je trochu komplikovanější. Popis je například na webu http://www.excely.com/excel-vba/define-a-position-of-messagebox.shtml

Petra

Přidáno: 26.05.13 19:02

Dobry den, napisu kod: Private Sub CommandButton2_Click() MsgBox ("Moje první okno.") End Sub Jak potom aktivuju, abych to okno videla? Diky, Petra

Pavel Lasák

Přidáno: 28.05.13 21:11

To Petra: MsgBox se zobrazí například: Ve VBA okně klik na zelenou šipku. Nebo vložit na list tlačítko a do tlačítka vložit kod MsgBoxu, nebo jej spustí nějaká jiná akce (v podmínce IF).

Případně další články o VBA v rozcestníku: http://office.lasakovi.com/excel/zaklady/excel-kurz-vba-on-line-zdarma/

Petra

Přidáno: 28.05.13 21:31

Jee, tak uz mi to funguje :-) Vymazala jsem tam na zacatku to Private. Nevim jestli to tim muze byt, ale okno se mi podarilo spustit. Tak se tesim na pokracovani. Diky, Petra

Libor Sztacho

Přidáno: 17.07.14 08:23

Dobrý den, jak lze v dialogovém okně MSGBOX zakázat tlačítko "zrušit"? Díky Libor Sztacho

Pavel Lasák

Přidáno: 17.07.14 16:58

To Libor Sztacho: Kód který jsem někde našel MsgBox "Zavření přes horní X zablokováno.", 20, "NÁZEV OKNA" Nebo využít zakázaní "x" ve vlastním formuláři

Petr Pecháček

Přidáno: 21.07.14 10:12

Jen poznámka: MsgBox neumí pořádně Unicode (azbuka apod.), pro tyto účely je potřeba API funkce MessageBox. S API lze připravit i boudy - přejmenovat tlačítko ANO na NE apod. nebo třeba nachystat časově omezené zobrazení zprávy. Nechá se udělat i bublina zobrazující se v systémové liště.

Petr Pecháček

Přidáno: 21.07.14 10:50

A ještě: Ta hodnota 20 pro "X - Close Button" značí součet 4 + 16, tj. vbYesNo + vbCritical, funguje ještě vbAbortRetryIgnore + vbCritical.

Pavel Lasák

Přidáno: 29.07.14 08:14

To Petr Pecháček: Děkuji za podnětná doporučení. Na MessageBox. Třeba se bude někdy hodit.

Karel Musil

Přidáno: 02.10.14 12:17

Dobry den, mel bych dotaz, lze udelat, ze bude msgbox stale viditelny, napr, pri vyberu tlacitka znova, pro opakovani makra, abych ho nemusel Msgbox znova aktivovat Dekuji Karel

Jirka_111

Přidáno: 29.01.15 20:12

vážený pane Lasáku, pro přátele připravuji aplikaci, kterou budou moci ze kteréhokoli listu ukončit tlačítkem (to je OK ...DisplayAlert=False...Quit) Při otevírání ale u starších verzí naskakuje dialog...Makra povolit ano/ne, u verze 2010 je podobné upozornění zda povolit makra nahoře pod lištami. Můžete mi sdělit jak se tomu při spouštění vyhnout (aby byla makra povolena již samotným spuštěním a tyto dialogy se nezobrazovaly?)

Jirka_111

Přidáno: 29.01.15 20:25

Ještě jednou - omlouvám se, že jsem předchozí neukončil poděkováním. při zavírání aplikace jak popsáno v předchozím příspěvku bych se rád ještě zbavil dialogu zda uložit či neuložit změny (nechci ukládat) a aplikace by se měla otevřít vždy na prvním listu. Díky Jirka

Jojo

Přidáno: 02.02.15 08:52

To Jirka_111: -- V Exc2003 sa dá nastaviť Nízke zabezpečenie cez "Nástroje/Makro/Zabezpečení..." -- (Nedoporučuje sa - automaticky sa môže otvoriť súbor so škodlivým kódom)

Jojo

Přidáno: 04.02.15 09:16

To Jirka_111: -- V Exc2007 -- Možnosti programu Excel/Centrum dôveryhodnosti/Nastavenie centra dôveryhodnosti/Nastavenie makra/Povoliť všetky makrá(neodporúča sa)

Dan78

Přidáno: 04.02.15 10:48

Dobrý den, jeden dotaz, lze pomocí MsgBoxu vytvořit informační okno, ve kterém je vidět (například pomocí procent) určitý stav přepočtu? Dám příklad: Při zobrazení listu spustím makro Private Sub Worksheet_Activate(), které mi přepočítává určité hodnoty, čeká se dokud není přepočet hotový, cca 20 vteřin. Po tuto dobu bych chtěl pouze na obrazovce zobrazit informační okno, ve kterém by skákala procenta. Většinou si uživatel může myslet, že se excel kousnul, ale není tomu tak :-)

Jojo

Přidáno: 05.02.15 09:05

Dan78: -- Riešení je viac, ale cez MsgBox by som to neriešil. Nakoľko by bol popis dlhší, doporučujem hľadať "Progress Bar" na Google napr.: -- http://www.excel-easy.com/vba/examples/progress-indicator.html

Laďa

Přidáno: 05.02.15 11:15

Dobrý den, rád bych požádal o pomoc. Mám rozsáhlou tabulku, tabulka má několik sloupců. Potřeboval bych rychle zpřehlednit/najít údaje z těchto sloupců. Chtěl bych to řešit přes dialogové okno, kdy bych výběrem aktivní buňky přes jedno tlačítko vyvolal dialogové okno, které by obsahovalo informace z řádku vybrané aktivní buňky. Zobrazovaly by hodnoty řekněme ze sloupců P až V. Vyvolání informace prostřednitvím dialogového okna by znamelo, že informace bych nemusel hledat přes vodorovný posuvník. Je důležité, aby se informace objevovaly přes aktivní buňku. Postup by byl tedy takový, vybrat aktivní buňku (je to sloupec D), stiknout tlačítko, aby se objevily informace v dialogovém okně ze stejného řádku, ale obsažené ve sloupích P až V. Hledané informace nejlépe oddělit v dialogovém okně vždy na nový řádek. Nemůžu s tím hnout, díky moc za pomoc, Laďa.

Laďa

Přidáno: 05.02.15 20:36

Zdravím, k mému problému, šlo by to samozřejmě řešit "pomocnou tabulkou", kde bych vyhledal hodnoty z buněk přes SVYHLEDAT a tyto buňky bych pak navázal na dialogové okno. Šlo by to ale řešit elegantněji?

Jojo

Přidáno: 06.02.15 08:54

To Laďa: -- Zobrazenie stĺpcov v danom riadku:Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'Pri kliknutí do stĺpca "D", zobrazí v MsgBox obsah stĺpcov "P" až "V" If Target.Column = 4 Then ' stĺpec "D" rw = Target.Row For col = 16 To 22 ' stĺpce "P" až "V" temp = temp & vbCrLf & Cells(rw, col) Next col MsgBox temp End If End Sub

Laďa

Přidáno: 06.02.15 10:56

Jojo děkuji, pěkná práce. Bylo by ještě možné, aby v dialogovém okně byl i název každého sloupce? Funguje to skvěle, jen bych ještě potřeboval hodnoty pojmenovat. Tedy v mé případě, ve sloupcích P až V je uvedeno např. jméno, příjmení, datum narození...atd. A potřeboval bych aby se v dialogovém okně objevilo jméno a daná hodnota z buňky, příjmení a daná hodnota z buňky...šlo by to takhle ještě vyšperkovat? Moc ti děkuji, je to přesně to, co jsem chtěl, ale s pojmenováním hodnot ze sloupců by bylo ještě lepší. Ještě jednou moc díky. Laďa.

Jojo

Přidáno: 09.02.15 08:34

To Laďa: -- Medzi riadky For a Next treba vložiť: popis = Choose(col - 15, "Meno : ", _ "Priezv : ", _ "Dat_nar.: ", _ "Nazov4 : ", _ "Nazov5 : ", _ "Nazov6 : ", _ "Nazov7 : ") Temp = Temp & vbCrLf & popis & Cells(rw, col)

Laďa

Přidáno: 09.02.15 10:43

Paráda, jsi borec, moc šikovný, děkuji Ti, teď je to perfektní, ještě jednou moc díky, Laďa.

Martin

Přidáno: 11.02.15 20:52

Ahoj. Celkem si to tu dáváte. Já jsem začátečník. A chtěl bych se zeptat jestli lze změnit vzhled dialogového okna ? Třeba aby to byl jenom modrý čtvereček s textem. Děkuji

Přidáno: 24.02.15 11:32

To Jojo .... a další:) Bylo by ještě možné "zúžit" pole výběru pro aktivní buňku? Oč se mi jedná, nyní je výběr vázán na buňky v CELÉM sloupci D. Bylo by možné přepsat makro na výběr v sloupci D, např. pro D 10 - D 5000? Děkuji za pomoc, Laďa.

Jojo

Přidáno: 27.02.15 07:27

To Laďa: -- riadok s "IF..." treba zameniť za: -- If Not Intersect(Target, Range("D10:D5000")) Is Nothing Then

Laďa

Přidáno: 27.02.15 10:29

Jojo moc Ti děkuji, opravdu jsi mi moc pomohl, teď to funguje skvěle, klobouk dolů před Tebou, děkuji, Laďa.

kalmero

Přidáno: 27.02.15 18:06

Dobrý potrebuji radu. s VBA pracuji ale ne na nejake vysoke urovni. Potrebuji makro ktere mi automaticky vyhodi msgbox s hlaskou a tlacitkem ok pokud bunka A1 bude mensi nez 0. udelal jsem uz vsechny mozne varianty ale proste se mi tam nedari dat tu podminku pro spusteni bunka A1 mensi nez 0. dekuji za radu

Kuba

Přidáno: 03.12.15 12:49

Zdravím, potřeboval bych něco na ukončení vyskakovacích oken, makrem slučuji několik buňek ale po každém sloučení(makrem) mě excel upozorňuje: "Po sloučení buňek zůstane zachována jen....". Vzhledem k tomu, že v makru mám asi 200 příkazů na sloučení se mi nechce odklikávat 200 oken s tímto upozorněním. Nějaké rady? Díky,

Pavel

Přidáno: 15.05.16 12:15

Tady je zjednoduseny kod na vyhodnoceni odpovedi ANO - NE. Pokud se vybere NE je konec a nic se nedeje, pokud se vybere ANO - pokracuje Vas dalsi vlastni kod. If MsgBox("Pokračovat?", vbYesNo + vbQuestion) = vbNo Then Exit Sub 'dalsi kod pro kliknuti na ANO

Borny

Přidáno: 17.10.16 16:53

Ahoj, prosím o radu. Jak se dá změnit formát zobrazeného data v MsgBox, které je vypsáno z buňky. Tou změnou myslím například: 1.1.2016 na Leden 2016.