excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: msgbox dle podmínky
MS Excel
Téma: msgbox dle podmínky 
Zaslal/a radekb 29.9.2010 20:16
Ahoj, tohle bude asi jednoduchý, ale na mě ne :o).
Potřebuji po stisku tlačítka zkontrolovat hodnoty v jednom sloupci a jestliže se tam nachází jedno nebo i více čísel mezi 0 a 60 pak spustit msgbox s nějakou hláškou(třeba POZOR).
Msgbox by měl mít dvě ovládací tlačítka. Třeba O.K. pro zavření msgboxu a ZKONTROLUJ, které mi otevře List "Záruky".Díky za řešení - Radek
Ahoj, po stisku tlačítka píše že makro není k dispozici.
Ani v modulech jsem nic nenašel
a ani skript na msgbox. Tak moc moc prosím o opravu.citovat
Ani v modulech jsem nic nenašel
a ani skript na msgbox. Tak moc moc prosím o opravu.citovatAh, safra... nějaká chyba v uložení sešitu. Teď už by to snad mělo být ok 
citovat
citovatVynikající. Sice nechápu 
ale funguje. Budu se muset móc móc učit. Smekám a díky....radekcitovat
ale funguje. Budu se muset móc móc učit. Smekám a díky....radekcitovatJeště jednou ten samý soubor, pouze je VBA kód doplněn o komentáře, kde popisuju co kod dělá. Snad to pomůže pro pochopení.
Příloha: 
2590_sesit1_2003.zip (17kB, staženo 19x)
citovat2590_sesit1_2003.zip (17kB, staženo 19x)Díky za vysvětlení kódu. Trošku mě to hlava už začíná brát. Ale po důkladnějším otestování se vyskytli chybičky, které asi sám neopravím -
1.nefunguje podmínka, když se ve sloupci nenachází žádné číslo v intervalu 1-60(vyplnil jsem tři řádky číslem 100 a zobrazil se chybný msgbox"Ve sloupci se vyskytlo......" a po stisku volby "ano" nebo "ne" se aktivuje sešit"záruky"
2.nefunguje na poslední číslo ve sloupci(ale to až tak nevadí - vložím na začátek makro pro seřazení hodnot od nejmenší do největší)
No a ještě malou radu:
- kde přepsat, když chci nastavit toto makro pro jiný sloupec? Změna Range("A:A") na např. Range("H:H")nefunguje.
Doufám, že jednou budu moct taky někomu takhle pomáhatcitovat
1.nefunguje podmínka, když se ve sloupci nenachází žádné číslo v intervalu 1-60(vyplnil jsem tři řádky číslem 100 a zobrazil se chybný msgbox"Ve sloupci se vyskytlo......" a po stisku volby "ano" nebo "ne" se aktivuje sešit"záruky"
2.nefunguje na poslední číslo ve sloupci(ale to až tak nevadí - vložím na začátek makro pro seřazení hodnot od nejmenší do největší)
No a ještě malou radu:
- kde přepsat, když chci nastavit toto makro pro jiný sloupec? Změna Range("A:A") na např. Range("H:H")nefunguje.
Doufám, že jednou budu moct taky někomu takhle pomáhat
citovatNedostatky z bodu 1 a 2 byly opraveny.
Co se týče sloupce, tak nestačí změnít pouze .range("H:H"), tato metoda vrací pouze počet neprzádných buněk v tomto sloupci, je třeba také v kodu změnit podmínky, kde se objevuje: Cells(radek, 1)
Cells(radek, sloupec) je odkaz na buňku na příslušném řádku a sloupci. U tebe by jsi musel tedy změnit .Range("H:H") a potom Cells(radek, 8)citovat
Co se týče sloupce, tak nestačí změnít pouze .range("H:H"), tato metoda vrací pouze počet neprzádných buněk v tomto sloupci, je třeba také v kodu změnit podmínky, kde se objevuje: Cells(radek, 1)
Cells(radek, sloupec) je odkaz na buňku na příslušném řádku a sloupci. U tebe by jsi musel tedy změnit .Range("H:H") a potom Cells(radek, 8)
citovat
Tak, již téměř dokonalé. I to seřazení se mi povedlo. Snad poslední věc - Reakce při volbě tlačítka "NE" je teď, přeskok na list "zaruky" bez obarvených buněk. Potřebuju aby se nic neprovedlo, tedy zůstat v listě kontrola. Zkusil jsem to sám, což mi funguje ale až po dvakrát stisknutém tlačítku. Próóč
If test = 0 Then 'podmínka, která se ptá, zda je nějaké číslo k opravě
If vbNo = MsgBox("Ve sloupci se vyskytlo jedno, nebo více čísel v intervalu 1-60, chce je nyní opravit?", vbYesNo) Then
Sheets("kontrola").Select
End If
If vbYes = MsgBox("Ve sloupci se vyskytlo jedno, nebo více čísel v intervalu 1-60, chce je nyní opravit?", vbYesNo) Then
Stačí prosím opravit část kódu. Díkeccitovat
If test = 0 Then 'podmínka, která se ptá, zda je nějaké číslo k opravě
If vbNo = MsgBox("Ve sloupci se vyskytlo jedno, nebo více čísel v intervalu 1-60, chce je nyní opravit?", vbYesNo) Then
Sheets("kontrola").Select
End If
If vbYes = MsgBox("Ve sloupci se vyskytlo jedno, nebo více čísel v intervalu 1-60, chce je nyní opravit?", vbYesNo) Then
Stačí prosím opravit část kódu. Díkeccitovat
Na vyhodnocovani stisku talcitek v msgboxu je lepsipouzivat Select Case (je to rychlejsi i prehlednejsi), pouziva se takto:
Vysledek = MsgBox("prompt", vbYesNo, "title")
Select Case Vysledek
Case vbYes
'kod pri stisku ANO
Case vbNo
'tady nema byt zadny kod
End Selectcitovat
Vysledek = MsgBox("prompt", vbYesNo, "title")
Select Case Vysledek
Case vbYes
'kod pri stisku ANO
Case vbNo
'tady nema byt zadny kod
End Selectcitovat
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články