Re: Rozliseni definovanych poli v MS Excel.

From: Kamil <sverak (zavinac)>
Date: 30. 01. 2004, 16:00 CET
> Mam problem nebo spis nevim jak na to ....
> Potreboval bych v excelu udelat asi jednoduchou zalezitost a to ... 
> Bunky s hodnotou po obarvit třeba cervene, ut třeba modre atd. .. Po, ut,
> st, ct jsou dny který  pouzivam v tabulce pro vypocet a planovani cestovnich
> aktivit .... A potreboval bych to aktivne rozlisit .-)
> Asi makro .. Ze jo ... Ale to není nic co bych umel ....

neco takoveho? Dopis si dalsi dny popr sloupce..

Sub den_barevne()
    Dim r As Integer
    Dim sl As Integer
    
    sl = 1  'Sloupec A
    For r = 1 To 100
        If Cells(r, sl) = "po" Then
            Cells(r, sl).Interior.ColorIndex = 6
        ElseIf Cells(r, sl) = "ut" Then
            Cells(r, sl).Interior.ColorIndex = 4
        End If
    Next r
End Sub

-- 
cao,
 Kamil 
Received on Fri, 30 Jan 2004 16:00:08 +0100

This archive was generated by hypermail 2.1.8 : 30. 01. 2004, 15:57 CET