Excel 2007 – Podmíněné fotmátování podle textu v jiné buňce

Takže postupně asi nějak takto:
Klikni na tu bunku, kterou chceš podm. formátovat.
Pak vyber v liště podmíněné formátování
z políčka vyber je rovno a do vedlejšího políčka napiš toto
„jablko“
pak vyber barvu buňky
přidej další podmínku a udělej to samé jen do políčka napiš „hruška“ a vyber barvu.
Můžeš zadat max. 3 podmínky
Pak ok

Ano, jde

Tady máš malý prográmek. Vzorcem to možná taky jde, ale nevím jak.

Sub Barvy()
Dim text$
text = LCase(Cells(1, 3).Value)
Select Case text
Case „jablko“
Cells(1, 1).Interior.Co­lorIndex = 3
Cells(1, 2).Interior.Co­lorIndex = –4142
Case „hruška“
Cells(1, 2).Interior.Co­lorIndex = 5
Cells(1, 1).Interior.Co­lorIndex = –4142
Case Else
MsgBox „C1 neobsahuje text.“
Exit Sub
End Select
End Sub
Doplňuji:
Najdi si editor maker (zprovozni záložku Vývojář) a klikni na Visual Basic. Otevře se ti Editor VB. Nejdřív klikni na sešit, který budeš používat (levá strana editoru). Potom v nabídce klikni na Insert a pak na Module. Dvakrát klikni na Module1, který se ti u tvého sešitu vytvoří. Na pravou stranu, na prázdnou plochu zkopíruj ten program. Program spustíš klávesou F5, ale nejdřív dej kurzor někam do oblasti Sub Barvy. Potom se přepni do sešitu a připrav si list s jedním z textů. Ten list musí být při spouštění programu aktivní. Potom se opět přepni do editoru a stiskni F5.

Upravil/a: nonnel

nevím jak je to v exelu,ale openu,když si vyberu podmínečné formátování,tak mám dvě možnosti:je…nap­říklad rovno,a to se vztahuje k dané buňce,kterou formátuji,anebo „VZOREC JE“ a tam napíšu buňka C1 rovná se jablko >> C1=„jablko“
Doplňuji:
takto to funguje v openofice,mys­lím,že u tebe to bude podobné:D11 je buňka,kde se mění formát=styl buňky v závislosti na buňce G8
http://letecka­posta.cz/885848723

Upravil/a: Mc Merkurion