Forum Programosy

Excel posiada opcje formatowania warunkowego komórek, ale istnieje mozliwość podania trzech warunków, czyli w moim przypadku mogę uzyskać 4 kolory komórek, z czego jeden musi być biały.
Niestety ale ja potrzebuje koloru białego i 4 innych, czyli brakuje mi jednego warunku w tym.

W takim razie czy istnieje jakaś inna możliwość automatycznej zmiany koloru komórki i czcionki w niej, w zależności od wartości jakie podane są w tej komórce. Wartościami nie będą przedziały, tylko stałe wartości liczbowe; 0 - biały, 1-4 - inne kolory.

Wiem że można to zrobić poprzez VisualBasica, ale niestety nie znam go żeby to w ten sposób zrobić, dlatego też pytam czy jest jakiś inny sposób na to.

Niestety nie znam możliwości poszerzenia warunkowania w Excelu. Ale pomogę makrem. Jak je wprowadzić w życie myślę że sobie już poradzisz. Nie mam dokładnych danych więc zrobiłem makro na macierz 10x10. Jeśli chcesz zobaczyć jak działa, w Visualu użyj klawisza F8 - marko będzie się wykonywało krok po kroku. Całe makro uruchomisz klawiszem F5. Cyfry po ColorIndex = ?? to oznaczenia kolorów.

***********************************
Sub KOLOR()
'Makro sprawdza wartości komórek od podanej komórki w zakresie 10x10 od podanej komórki
wiersz = 6 'nr wiersza 1 komórki
kol = 5 ' nr kolumny 1 komórki
Cells(wiersz, kol).Activate

For wiersz = wiersz To 10
For kol = kol To 10

Select Case Cells(wiersz, kol).Value
Case 0:
Cells(wiersz, kol).Interior.ColorIndex = 2
Case 1:
Cells(wiersz, kol).Interior.ColorIndex = 4
Case 2:
Cells(wiersz, kol).Interior.ColorIndex = 6
Case 3:
Cells(wiersz, kol).Interior.ColorIndex = 8
Case 4:
Cells(wiersz, kol).Interior.ColorIndex = 10
End Select

Next kol
Next wiersz

End Sub
********************************

POWODZENIA

Jest problem, ponieważ sprawdza tylko 6 komórek w jednym wierszu i tyle. Jak mógł bys to zerknij na to i dodaj jeszcze żeby zmieniało kolor czcionki na taki sam jak komórki.

Prosze. Wersja poprawiona i sprawdzona

******************************************
Sub KOLOR()
'Makro sprawdza wartości komórek od podanej komórki w zakresie 10x10 od podanej komórki
wiersz = 5 'nr wiersza 1 komórki
kol = 6 ' nr kolumny 1 komórki
Cells(wiersz, kol).Activate

For i = 1 To 10 '<- tą liczbę 10 zmień np na 15 wydłuży to liczbę sprawdzanych komórek w poziomie
For j = 1 To 10 '<- tą liczbę 10 zmień np na 15 wydłuży to liczbę sprawdzanych komórek w pionie

Select Case ActiveCell.Offset(i - 1, j - 1).Value
Case 0:
ActiveCell.Offset(i - 1, j - 1).Interior.ColorIndex = 2
ActiveCell.Offset(i - 1, j - 1).Font.ColorIndex = 2
Case 1:
ActiveCell.Offset(i - 1, j - 1).Interior.ColorIndex = 4
ActiveCell.Offset(i - 1, j - 1).Font.ColorIndex = 4
Case 2:
ActiveCell.Offset(i - 1, j - 1).Interior.ColorIndex = 6
ActiveCell.Offset(i - 1, j - 1).Font.ColorIndex = 6
Case 3:
ActiveCell.Offset(i - 1, j - 1).Interior.ColorIndex = 8
ActiveCell.Offset(i - 1, j - 1).Font.ColorIndex = 8
Case 4:
ActiveCell.Offset(i - 1, j - 1).Interior.ColorIndex = 10
ActiveCell.Offset(i - 1, j - 1).Font.ColorIndex = 10
End Select
Next j
Next i

End Sub