kako v excelu avtomatsko obarvati celice

Pogojno oblikovanje

Ni problema, še kdaj. Je užitek odgovarjat, če ni treba človeku cele procedure spisat, ampak je sposoben potem sam najti/zgooglati do konca.

Zdravo, tudi sam imam problem z barvanje celic, le da je moj malo bolj kompliciran:)

Imam tabelo števil ~ 10 stolpcev X 40 vrstic. Rad bi sestavil makro, ki bi v vsaki vrstici poiskal največja 3 števila in jih potem pobarval. Na netu sem uspel izbrskati kodo, ki približno ustreza mojemu problemu, jo malenkost priredil, ampak bi rabil še dodatno pomoč.

Sub Barvaj()
Dim arr(3)
For i = 1 To 3
arr(i) = WorksheetFunction.Large(Selection, i)
Next i
For i = 3 To 1 Step -1
Select Case i
Case 1
colorr = 27
Case 2
colorr = 15
Case 3
colorr = 53
End Select
Set findit = Selection.Find(what:=arr(i))
findit.Interior.ColorIndex = colorr
If WorksheetFunction.CountIf(Selection, arr(i)) > 1 Then
firstadd = findit.Address
Do
Set findit = Selection.Find(what:=arr(i), after:=Range(findit.Address))
findit.Interior.ColorIndex = colorr
Loop Until findit.Address = firstadd
End If
Next i
End Sub

Ta koda načeloma dela in pobarva 3 največja števila v določeni tabeli. Ampak bi moral ročno označevati vsako vrstico in klikati gumb pobarvaj za vsako vrstico posebej. Rad pa bi da je že vnaprej določeno od kje do kje je tabela s podatki, in da se program sam premika od 1. pa do zadnje vrstice in sproti označuje polja.
Problem pri zgornji kodi je tudi ta, da ne upošteva enakih števil. Če imam recimo vrednosti 5,5,4,3.
Bo petici označil z barvo za največje število, štirico z barvo za drugo največje število. Trojke pa ne bo označil, čeprav želim da bi jo označil z barvo za tretje mesto. Predvidevam da je to zaradi casov, pa me zanima katera rešitev bi bila za to bolj primerna.

Upam da mi kdo lahko pomaga:)


LP, Jan

V osnovi dela tako kot sem si zamislil. Bom pa najbrž rabil še nekaj časa da to prilagodim svojemu primeru. :)

Zaenkrat pa sem opazil 2 težavi. Podobno stvar bom uporabljal na isti tabeli tudi za navpično barvanje polj, tako da bi moral vključiti v kodo še da vsa ostala polja pobarva belo, saj mi drugače ostane barva v tistih poljih ki so bila obarvana vodoravno.

Napako pa mi javi tudi v primeru ko je toliko polj z enako vrednostjo da so vsa polja izenačena ali na 1. mestu, ali pa na prvih dveh in ni nobeno na 3. mestu.

Imaš še glede tega kakšno idejo?

Drugače pa hvala za to kodo. Že to mi je ogromno pomagalo.

Super! Za navpično bom pa sam poskušal spremeniti to kodo. Če se mi kje zatakne pa vprašam.
Vidim da obvladaš te zadeve. Katero gradivo za učenje VB-a bi priporočil?

Najlepša hvala še enkrat.

LP, Jan