MS Excel

Zdravím, potřeboval bych prosím poradit, jestli lze nějak barevně odlišit právě použité makro, spuštěné ovládacím prvkem (klasické tlačítko). Mám jich v listu několik, ale potřebuju vidět, které je právě aktivní. Děkuji za radu.

Strana: 1 2 3 4 další »

PavelJanec(16.11.2022 17:32)#053874

Nikdo netušíte? Já to zkoušel tak, že jsem upravil zaznamenal nové makro konkrétního tlačítka s tím, že jsem mu zároveň upravil barvu textu a u dalšího tlačítka jsem postupoval stejně s tím, že tu předchozí barvu jsem odstanil. Po zmáčknutí se tedy písmo změní, ale nahlásí mi to chybu .TintAndShade = 0. Když nastavím -1, nebo 1, je to stejné. Tak nevím.citovat

elninoslov(16.11.2022 19:12)#053877

Ale tušíme, len sa nám nechce vymenovávať všetko aj s príkladmi. Tu je jeden. Ďalší by mohol byť tak, že tlačítko bude menšie ako bunka, každé makro zapíše do nejakej nepodstatnej/skrytej bunky hodnotu, na základe ktorej podmienené formátovanie zvýrazní bunku pod tlačítkom. Ďlaej, ak je tlačítkami volané obdobné makro, len s iným parametrom, dá sa urobiť jedno makro, ktoré bude identifikovať na základe Application.Caller, ktoré tlačítko je stlačené - teda nie tak ako je v tomto príklade. Ale to záleží na tom, čo tie makrá robia. A sme zase tam kde pred pár dňami v inej téme

Ďalšou možnosťou je použiť ActiveX tlačítka, kde je možnosť zmeny pozadia. Prípadne použiť namiesto tlačítka Shape objekt...
Priložte prílohu. Reálnu a anonymizovanú.

Příloha: zip

53877_oznac-farbou-tlacitko.zip (16kB, staženo 6x)

citovat

PavelJanec(16.11.2022 21:16)#053881

Děkuji za ochotu Elnino, já se marně snažím pochopit ten princip. Ten tvůj vzor je v pořádku, ale zkus mi to prosím opravit tak, aby například první označilo buňku ve slouci AR, řádek 10. Díky, snad si z toho něco vezmu.citovat

elninoslov(16.11.2022 23:43)#053883

Ďalších niekoľko príkladov. To sa dá nakombinovať, rôzne možnosti, presne podľa toho čo makrá robia (nevieme), koľko je tlačítok (nevieme), ako sú rozmiestnené (nevieme), stály/dynamický počet (nevieme), ich názvy (nevieme), podmienený formát, zápis pod tlačítko, zápis do spoločnej bunky, počítanie na základe riadku, ...

Příloha: zip

53883_oznac-farbou-tlacitko2.zip (32kB, staženo 5x)

citovat

PavelJanec(17.11.2022 7:11)#053884

To co potřebuji, není určitě nic složitého, jen nevím, jak na to. V příloze posílám vzor. Jedná se o to, aby konkrétní tlačítko odkázalo na konkrétní sloupec, abych v tom sloupci mohl editovat a neposouval to ručně, zároveň, aby zůstalo to tlačítko označené (viz můj první dotaz), abych v tom měl přehled. Asi by mi vyhovovalo to červené písmo, než pozadí buňky. No a poslední věc bude tlačítko RESET. To je pro případ, že budu mít například zafiltrováno. U Resetu potřebuji, aby vše odfiltroval a seřadil abecedně podle sloupce TV a posunul obsah na poslední záznam v řádku ve sloupci A. To je vlastně všechno. Snad jsem to napsal dobře pro pochopení. Moc děkuji za ochotu.

Příloha:

53884_vzor.7z (45kB, staženo 6x)

citovat

elninoslov(17.11.2022 12:39)#053886

Tak toto by som urobil inak. Predpokladám, že v reále namiesto Buňka 1, Buňka 2, ... sú tam nejaké texty. Tak by som to urobil jedným jediným makrom, ktoré by si našlo v 12. riadku správnu pozíciu podľa nápisu na stlačenom tlačítku. Toto uvádzam len jednu z možností. Kľudne sa to dá urobiť na dynamický počet tlačítok, dynamický počet stĺpcov a pod.

Příloha: zip

53886_oznac-tlacitko-3.zip (37kB, staženo 10x)

citovat

PavelJanec(17.11.2022 13:02)#053887

Elnino, je to naprosto perfektní. O to více, že to lze editovat na základě textu. Jen mi ještě řekni, jak mám postupovat, když chci přidat další tlačítko? Zkoušel jsem do těch dvou řad přidat btn9, viz:
With .Buttons(Array("btn1", "btn2", "btn3", "btn4", "btn5", "btn6", "btn7", "btn8", "btn9")).Font
ale nic to nedělá, jen hází chybu. Já ten princip asi nikdy nepochopím. A to tlačítko RESET by mělo skončit na posledním vyplněném řádku ve sloupci A, ale musím sjet dolů, nešlo by to, aby se to zobrazilo nahoře. Děkuji ještě jednou!citovat

PavelJanec(17.11.2022 13:50)#053888

Už jsem na to přišel. Díky Elninocitovat

PavelJanec(17.11.2022 13:57)#053889

Tak beru opět zpět. Když zkopíruju tlačítko a vložím vedle, přepíšu text, nefunguje. Když vytvořím nové a nastavím makro a upravím název kam má směřovat, funguje, ale nezmění barvu. Tak teď už vážně nevím.citovat

elninoslov(17.11.2022 14:15)#053890

Ak chcete pridať tlačítko, musíte mu nastaviť meno. Karta "Domov" - vpravo "Nájsť a vybrať" - "Tabla výberu". Tam som ich pomenoval "btn1", "btn2", ... aby sa dali v makre jednoducho identifikovať. Ak chcete meniť počet tlačítok, dá sa to urobiť aj tak, že iba nove tlačítko pomenujete tak, aby boli všetky tlačítka o ktoré sa jedná, rovnako pomenované, a makro si ich nájde samé, keď budú spĺňať nejakú podmienku, napr. názov začína na "btn". Chápeme sa?

To zaskrolovanie+označenie poslednej bunky v A sa dá urobiť aj tak, že sa zistí viditeľná oblasť listu (pretože môže byť okno rôznej veľkosti, zoomu apod), a zaskroluje sa tak, aby bola tá označená bunka na spodku viditeľnej časti. Lebo teraz je na vrchu, a tie bunky nad ňou nevidno. Teraz som to dal tak, aby ostalo viditeľných 5 buniek nad ňou.

Keďže sa tie názvy používajú na 2 miestach, tak som urobil na začiatku konštantu, a stačí zmeniť iba tú jednu.

Odstránil som tie komentáre, čo ste tam mali, lebo mi to stále písalo, že súbor obsahuje nejaké problémy. Už je to OK. Tak si ich prípadne doplňte.

Dajte vedieť o tej prípadnej zmene tlačítok a počtu stĺpcov na dynamické...

Příloha: zip