WWW pro školy
Jak na Office - tutoriály, video návody











Vytvoř si  geekové tričko

Poradna - Informace o počtu odstraněných duplicit do stavového řádku + Zvuk

hlavní kategorie | zpět | + odpovědět na toto téma
Informace o počtu odstraněných duplicit do stavového řádku + Zvuk - diskuze na toto téma
Mám následující makro, a potřeboval bych do něj vložit kód, aby až se odstraní duplicity, se mi zobrazila tato informace o počtu odstraněných duplicit dole ve stavovém řádku. A na konci celého makra pak zazněl nějaký zvuk. Upravíte mi ho prosím? Děkuji. ------ Sub OdstranitDuplicityNovychAutoru() ' ' OdstranitDuplicityNovychAutoru Makro ' ' Columns("A:A").Select ActiveSheet.Range("$A$1:$A$154628").RemoveDuplicates Columns:=1, Header:= _ xlNo End Sub -------

elninoslov | 22.10.2018 00:08  
 
 
Stavový riadok? To je lepšie na toto použiť MsgBox. Dostanete oznam aj pípnutie. Stavový riadok sa používa na priebeh. Ak do neho totiž zapíšete informáciu, ostane tam, pokým ju nezrušíte/neprepíšete. A to je v rozpore s tým čo chcete. Buď tam zostane až do zatvorenia Excelu, ale sa hneď po prejdení makra korektne vypne (príkaz som ukázal v prílohe), ale to si to nestačíte prečítať. Naplánovávať kvôli tomuto úlohu, že sa za 10 sekúnd deaktivuje je blbosť (a navyše sa to bude potýkať s nespoľahlivosťou naplánovania vo VBA). Naproti tomu MsgBox je určený na jednorázové zdelenie informácie a ostane na očiach po ukončení makra, pokým neodkliknete OK.
Odpověď
betcup.cz | 22.10.2018 02:00  
 
 
Rozumím, a tedy ta druhá varianta s MsgBox by potom vypadala jak, můžete k tomu vytvořit také xlsm soubor? Děkuji.
Odpověď
elninoslov | 22.10.2018 10:06  
 
 
Pr.
Odpověď
betcup.cz | 23.10.2018 22:03  
 
 
Ano, to vypadá líp. A můžu se teda zeptat jak tohle do toho makra zabudovat? Zkoušel jsem to zde podle tohoto návodu > https://office.lasakovi.com/excel/vba-formulare/excel-vba-dialogove-okno-msgbox/#01 a vůbec mi to nefungovalo.
Odpověď
elninoslov | 24.10.2018 12:47  
 
 
Do akého "do toho makra" ??? V tomto čo tu uvádzate na začiatku témy, to máte predsa implementované. Jeden riadok kódu to robí. Ak "do toho makra" myslíte túto inú tému www.jaknaoffice.cz/2-forum/?id=4832 , tak potom tam ten 1 riadok kódu navyše jednoducho zrevidujete, napr. takto. Podstata je v tom, že najskôr zistíte poslednú neprázdnu bunku (a tým počet prvkov), vymažete duply, a vypíšete rozdiel pôvodného počtu prvkov - opätovné zistenie počtu (podľa opäť zistenej poslednej bunky po výmaze duplicít).
Odpověď