En büyük 4 hücreyi Koşullu biçimlendirme ile renklendirme

[fnrbhccmhryt]

Merhaba, Bir satırdaki hücreler arasında en büyük 4 hücreyi farklı renklerde otomatik olarak biçimlendirebilirmiyiz. Koşullu biçimlendirme ile nasıl yaparız. Yardımlarınız için şimdiden teşekkür ederim

 

[Ali]

Koşullu biçimlendirmeye

=TOPLA.ÇARPIM((A1<$A$1:$A$100)/EĞERSAY($A$1:$A$100;$A$1:$A$100&""))+1<=4

yazıp istediğiniz desen rengi seçiniz.


19
19
19
19
18
17
16
15
14 gibi devam eden bir A sütununda En büyük 19-18-17 ve 16 olan sayıların hepsi renklenecektir.

 

[fnrbhccmhryt]

formüllerin ingilizcesi nasıl peki eğersay= countif olduğunu biliyorum. topla.çarpım nasıl olabilir

 

[Ali]

Topla.Çarpim=sumproduct
EĞersay=countif

 

[fnrbhccmhryt]

Merhaba, Bir satırdaki hücreler arasında en büyük 4 hücreyi farklı renklerde otomatik olarak biçimlendirebilirmiyiz. Koşullu biçimlendirme ile nasıl yaparız. Yardımlarınız için şimdiden teşekkür ederim

Teşekkür ederim. Peki farklı renklerde yapmak mümkünmü. Asıl istediğim buydu. Örneğin 19 sarı, 18, mavi, 17, kırmızı, 16, yeşil olarak biçimlenebilirmi.

 

[N.Ziya Hiçdurmaz]

Yanıt

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim SUT, S, SAT As Integer
On Error GoTo ERR
[A1:G1].Interior.ColorIndex = xlNone
For SUT = 1 To 4
S = S + 1
Cells(S, "H") = WorksheetFunction.Large([A1:G1], SUT)
Next
For SAT = 1 To 7
For SUT = 1 To 4
If Cells(1, SAT) = Cells(SUT, "H") Then
S = S + 1
Cells(1, SAT).Interior.ColorIndex = (S)
End If
Next
Next
ERR:
If ERR Then MsgBox ERR.Description
End Sub

 

[Ali]

Aşağıdaki linki inceleyiniz.

Girilen sayısal değere göre hücre renklendirme