Odpověděl/a – 3.červen 23:29
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.ColorIndex = 3
Cells(1, 2).Interior.ColorIndex = –4142
Case „hruška“
Cells(1, 2).Interior.ColorIndex = 5
Cells(1, 1).Interior.ColorIndex = –4142
Case Else
MsgBox „C1 neobsahuje text.“
Exit Sub
End Select
End Sub
Odpověděl/a – 3.červen 23:47
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.ColorIndex = 3
Cells(1, 2).Interior.ColorIndex = –4142
Case „hruška“
Cells(1, 2).Interior.ColorIndex = 5
Cells(1, 1).Interior.ColorIndex = –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.