Word
Excel
PowerPoint
Access
Outlook
ECDL
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
------- 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ěď 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ěď 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ěď 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ěď |
