Historie úprav

nonnel

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.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

nonnel

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.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.