< návrat zpět

MS Excel


Téma: kopie pouze změněného formátu rss

Zaslal/a 14.9.2021 7:23

Dobrý den, prosím o radu. Mám několik sešitů a v každém jsem barevně označil některé buňky (vždy list1). Např.: sešit_1 - označeno B1 a C3; sešit_2 - označeno D2:D18; sešit3 - označeno A6 a B6:B9; atd. sešitů je více a buněk v každém sešitu taky označeno více.
Nyní bych potřeboval v jiném sešitu na jednom listě vidět všechny označené buňky.
Zkoušel jsem přes kopírování formátu, ale tím vždy přepíšu předchozí stav a nepodařilo se mi dohledat jak tomuto zabránit (přes vložit jinak). Pracuji s office 2019. Děkuji.

Zaslat odpověď >

#051211
avatar
A to akože chceš vo výslednom hárku vidieť zjednotenie množín označených buniek jednotlivých hodnotených zošitov alebo nebodaj aj informáciu, v ktorom zo zošitov je daná bunka označená? Čo potom v prípade, ak je konkrétna bunka označená vo viacerých zošitoch?citovat
#051214
avatar
Informaci o zdroji (sešitu) nepotřebuji. V tomto případě mám buňky označeny všechny stejnou barvou. Pokud by tomu tak nebylo, pak by měla platit vždy ta barva z nejnovějšího souboru (sešit_3). Jde mi pouze o přenesení vybarvení buňky, zbytek obsahu není pro mě podstatný. Děkuji.citovat
#051219
avatar
Na inšpiráciu prikladám výpis makra, ktoré ti vyhodnotí prvé tri hárky a do štvrtého ti označí bunky, ktoré sú označené v prvých troch hárkoch (označenie = podfarbenie musí byť červenou farbou s indexom 255).
Pracuje v oblasti, ktorá je zjednotením tebou uvedených príkladov (A1:D20)
Ostatné (vyhodnocovanie zošitov a nie hárkov; farba podfarbenia; iný rozsah buniek) je už len nadstavba...
Makro:
Sub Oznacenie()
Application.ScreenUpdating = False
PocRiadkov = 20
PocStlpcov = 4
PocHarkov = 3

Range(Cells(1, 1), Cells(PocRiadkov, PocStlpcov)).Interior.Pattern = xlNone
For i = 1 To PocHarkov
For j = 1 To PocRiadkov
For k = 1 To PocStlpcov
If Sheets(i).Cells(j, k).Interior.Color = 255 Then Sheets(PocHarkov + 1).Cells(j, k).Interior.Color = 255
Next k
Next j
Next i
End Sub
citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

Zvýraznění překročené hodnoty v grafu

ABRAMOWSKI61 • 19.10. 23:14

EXCEL VBA vyhledání buňky

elninoslov • 19.10. 11:34

EXCEL VBA vyhledání buňky

elninoslov • 19.10. 11:24

EXCEL VBA vyhledání buňky

ben59 • 19.10. 9:34

Ověření datumu TextBox1.Text

Stana-V • 19.10. 7:43

Ověření datumu TextBox1.Text

elninoslov • 18.10. 20:15

Auto mazanie emailov

elninoslov • 18.10. 20:01