TwojePC.pl © 2001 - 2024
|
|
A R C H I W A L N A W I A D O M O Ś Ć |
|
|
|
Excel - kolorowanie wierszy. , Mms 10/01/08 11:59 Jest sobie arkusz z kilkoma kolumnami i duza iloscia wierszy. Wiersze na przemian (dwa kolory) mam recznie pokolorowane. Jednak, gdy sortuje arkusz wg jakiejs kolumny, to oczywiscie wiersze juz nie sa na przemian pokolorowane.
Da sie jakos tak ustawic ten arkusz, aby sam sobie na przemian kolorowal (dwa kolory) wiersze.Pozdrawiam - takie makro załatwi sprawę , john565 10/01/08 12:53
Sub koloruj_Paski()
'
' koloruj_Pasek Makro
' Makro zarejestrowane 2007-10-12, autor ----
'
Dim flaga As Boolean
Dim kolor1 As Integer
Dim kolor2 As Integer
kolor1 = 35
kolor2 = 39
flaga = True
For x = 1 To 700
If flaga Then
Range("A" + Trim(Str(x)) + ":K" + Trim(Str(x))).Select
With Selection.Interior
.ColorIndex = kolor1
.Pattern = xlSolid
End With
Else
Range("A" + Trim(Str(x)) + ":K" + Trim(Str(x))).Select
With Selection.Interior
.ColorIndex = kolor2
.Pattern = xlSolid
End With
End If
flaga = Not (flaga)
Next x
End Subf*ck - ewentualnie mozna jeszcze tak: , khobar 11/01/08 11:41
- dodajesz jedną kolumnę gdzie dajesz numerki 1 2 3 .... ( najlepiej niech to będzie pierwsza kolumna czyli A)
- Zaznaczamy cały arkusz ( lub te wiersze, które mają być kolorowane
-Dajemy Format->Formatowanie Warunkowe. Wybieramy "Formuła jest" i wpisujemy =MOD($A1;2)=0 i wybieramy jaki ma być kolor zaznaczenia.
-Zaznaczamy kolumnę A i wciskamy Ctr + 0 ( ukrywanie kolumny aby kolumna byla widoczna wpisujemy w lewym górnym rogu A1 i dajemy Ctrl+Shift+0)
I teraz przy sortowaniu czy zmianach wystarczy że damy aby używał sortowania tylko wybranego obszaru i viola jest kolorowanie...
Sposób co prawda bardziej łopatologiczny niż makro , ale z doświadczenia wiem że na niektórych komputerach makra są poblokowane :DZapraszam http://khobar.ovh.org |
|
|
|
|
All rights reserved ® Copyright and Design 2001-2024, TwojePC.PL |
|
|
|
|