Makro - změna hodnoty -> změna zabarvení obrázku

Programy pro práci v kanceláři (Word, Excel, Access…=>Office)

Moderátor: Mods_senior

Kevis
nováček
Příspěvky: 2
Registrován: leden 19
Pohlaví: Muž

Makro - změna hodnoty -> změna zabarvení obrázku

Příspěvekod Kevis » 04 led 2019 09:59

Ahoj,

chtěl bych se zeptat, zda někdo nemůže poradit, jak udělat makro, které by měnilo zabarvení objektu (vloženého nepravidelného obrazce) na základě změny hodnoty v buňce.

Chtěl bych porovnat obsah buňky A1 z nově vytvořeného listu (např. List2) s obsahem buňky A1 z předcházejícího listu (např. List1) a v případě, že se hodnota buňky nezmění, nechat objekt zabarven do původní barvy (červené). V případě nějaké změny docílit, aby se objekt zabarvil do jiné barvy (zelené).

A takto postupně porovnávat obsahy i v dalších buňkách, které by odkazovaly na jiné objekty.

Doposud jsem s makry nepracoval, takže děkuji za jakoukoliv radu. :thumbup:
Nemáte oprávnění prohlížet přiložené soubory.



Reklama
xlnc
Level 3.5
Level 3.5
Příspěvky: 849
Registrován: červenec 11
Pohlaví: Muž

Re: Makro - změna hodnoty -> změna zabarvení obrázku

Příspěvekod xlnc » 04 led 2019 10:19

Vidím v tom spousty povyku pro jeden bláznivý nápad.

Jak vzniká nový list? Mění se obsah jeho buňky A1 už tehdy?
Vzhledem k tomu, že není znám počet takto vytvořených listů, je nutné zpracovat událost Worksheet_Change na úrovni sešitu (v modulu ThisWorkbook). To proto, aby budoucí změna obsahu A1 zajistila přebarvení objektu (nejen) následujícího listu.
A to vlastně není přesná definice. Změna obsahu buňky musí zajistit případné přebarvení objektu daného listu a zároveň provést kontrolu všech dalších listů, je to řetězová reakce.
Plus ošetření okrajových podmínek - první list nemá předchůdce a poslední následníka.
A vy těch objektů budete mí asi tak tunu podle náhledu...

Co si vizuál řešit obrázkovým fontem a zbytek nějakým podmíněným formátem nebo funkcí KDYŽ a volbou jiného znaku?
administrátor ProExcel.cz | lektor | vývojář | léčitel pro Microsoft Excel

Kevis
nováček
Příspěvky: 2
Registrován: leden 19
Pohlaví: Muž

Re: Makro - změna hodnoty -> změna zabarvení obrázku

Příspěvekod Kevis » 04 led 2019 13:50

Nový list vzniká přidáním listu na konec (budou se evidovat jednotlivé týdny v roce). Jinak mi jde pouze o porovnávání nového listu s tím předchozím tak, aby byla na první pohled viditelná změna (barevně), která se udála právě během toho jednoho týdne.

Proto by mi stačilo porovnání pouze nově vytvořeného listu s tím předcházejícím. Přemýšlím tak nad tím a říkám si, že by v podstatě stačilo (jedná se o jednotlivé parcely, které jsem si zvýraznil v aplikaci MS Excel pomocí volného tvaru) vytvořit kopii posledně sledovaného listu a potom porovnávat aktuálnost v informacích o jednotlivých parcelách. V případě, že bych u některé parcely změnil jeho popisek, tak aby se automaticky změnila i barva tohoto objektu na zelenou. Nevím, zda je to takto srozumitelně vysvětleno.

Zkrátka jednoduše, když budu brát pouze List1, tak abych v případě, že v buňce A1,2 nebude text Nejsou evidována žádná zařízení. (ale například prázdný text, či cokoliv jiného), tak aby se jeden z objektů (podle toho, kterého objektu se bude změna týkat) změnil svoji barvu na zelenou. Následně bych při dalším sledovaném týdnu vytvořil kopii z posledního týdne a opět v případě přepisu některé informace by se provedla změna barvy u objektu.

Díky za info

xlnc
Level 3.5
Level 3.5
Příspěvky: 849
Registrován: červenec 11
Pohlaví: Muž

Re: Makro - změna hodnoty -> změna zabarvení obrázku

Příspěvekod xlnc » 04 led 2019 15:02

Za mě jste to nikam neposunul, takže zadání opouštím.
administrátor ProExcel.cz | lektor | vývojář | léčitel pro Microsoft Excel


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • Excel - Změna velikosti obrázku dle buňky
    od Xamik » 20 zář 2018 10:39 » v Kancelářské balíky
    2
    551
    od Xamik
    20 zář 2018 12:43
  • chybi zmena kompatibilty
    od s4rk4n » 08 úno 2018 09:38 » v Windows 10, 8, 7, Vista, XP…
    0
    312
    od s4rk4n
    08 úno 2018 09:38
  • změna IP adresy
    od VlejKO » 25 úno 2018 15:24 » v Sítě - hardware
    2
    754
    od VlejKO
    26 úno 2018 12:12
  • Změna jmenovky svazku
    od mmmartin » 23 čer 2018 11:25 » v Windows 10, 8, 7, Vista, XP…
    2
    250
    od mmmartin
    23 čer 2018 11:57
  • Změna funkcí klávesnice
    od Jenda66 » 11 zář 2018 21:06 » v Windows 10, 8, 7, Vista, XP…
    2
    259
    od Jenda66
    11 zář 2018 21:45

Zpět na “Kancelářské balíky”

Kdo je online

Uživatelé prohlížející si toto fórum: CommonCrawl [Bot], elninoslov a 2 hosti