• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

Příspěvky uživatele

Vlož List naplácej do něho co tě napadne, třeba makrem a tiskni podle libosti.

=KDYŽ(NEBO(MOD(ROK(RC2);400)=0;A(MOD(ROK(RC2);4)=0;MOD(ROK(RC2);100)>0));HODNOTA(RC[-1]+1);"")

Nástroje - Možnosti - Obecné - StylOdkazu - R1C1.
Pak do celého řádku:
=A(RC1=1;RC>=RC7;RC<=RC6) přiřadit formát
=A(RC1=2;RC>=RC7;RC<=RC6) přiřadit formát
atd.

Nabídka soubor - Vzhled stránky - List - Černobíle

Např. pro buňku AA3 by v podmínce byl vzorec:
=A($A3=1;AA3>=$G3;AA3<=$F3).
Ale tím by si vyhodnotil pouze jednu podmínku pro A3=1 a k ní přiřadil formát.
Ty ale chceš podmínít formáty pro hodnoty v sloupci A od 1 do 12.
To znamená dát do buňky 12 podmínek. No a třeba v mým EXCEL 2002 lze dát jen 3 podmínky. Nevím jak v EXCEL 2007.
Pokud ano tak pro AA3
=A($A3=1;AA3>=$G3;AA3<=$F3) přiřadit formát
=A($A3=2;AA3>=$G3;AA3<=$F3) přiřadit formát
=A($A3=3;AA3>=$G3;AA3<=$F3) přiřadit formát
......
=A($A3=12;AA3>=$G3;AA3<=$F3) přiřadit formát

Protože víme jak EXCEL neochotně uklízí. Tak bych volil
pomocný sešit, který by překopíroval původní sešit do nového bez maker a pak ten původní odstranil z disku.

Někam si to rozbal a zkus.

V EXCEL 2007 jde do políčka zadat 12 podmínek?
Musel bysi zadat do každého políčka 12 podmínek vzhledem k hodnotě v sloupci "A". Jinak jedině makro.

Zkus spustit záznam makra, pak běž do nabídky Tisk a zvol požadovanou tiskárnu. Ti to ukáže co to chce.
Něco jako
Application.ActivePrinter = "Microsoft XPS Document Writer na Ne00:"

Jde o to, že tato informace je fuč. Musí se někde zálohovat.
Pak teda
For Sloupec = 1 To 8 Step 1
if něco = true then
Cells(Radek, Sloupec).Interior.ColorIndex = 3
else
'jestli se jedná o jednu konkrétní buňku
Cells(Radek, Sloupec).Interior.ColorIndex = 4
'nebo celý řádek je zelený s tím, že v prvním sloupci
'se barva nemění
Cells(Radek, Sloupec).Interior.Color = Cells(radek, 1).Interior.Color
'nebo celý sloupec je zelený s tím, že v prvním řádku
'se barva nemění
Cells(Radek, Sloupec).Interior.Color = Cells(1, Sloupec).Interior.Color
'nebo lze zálohovat celé schéma třeba o 10 sloupců vpravo
Cells(Radek, Sloupec).Interior.Color = Cells(Radek, Sloupec + 10).Interior.Color
end if
Next Sloupec

Ale zamysli se jestli není vhodnější použít podmíněný formát?!

nebo ještě

Moc chytrý z toho nejsem, pošli rar.

Co tohle

nebo
Union(Cells(Radek, 2), Cells(Radek, 6)).Interior.ColorIndex = 3
nebo
Intersect(Rows(Radek), Union(Columns(2), Columns(6))).Interior.ColorIndex = 3
nebo
For Sloupec = 2 To 6 Step 4
Cells(Radek, Sloupec).Interior.ColorIndex = 3
Next Sloupec

Pokud chceš měnit výběr řádků pak:

Dim rdR As Long, rdW As Long
rdR = ActiveCell.Row
For rdW = rdR To rdR + Selection.Rows.Count - 1
'příkazy
next rdW

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje