Hücre içeriğine göre simge ekleme

[krldg]

Merhabalar

İki hücreyi karşılastırıp büyük - eşit - küçük değerlere göre yukarı yana ve aşagı oklar getirmek istiyorum. Bunu koşullu biçimlendirme ile yapıyorum ancak tek hücrede büyük boyutta simgenin gelmesini istiyorum.

kısaca aşagıdaki resimdeki gibi istiyorum.

Teşekkür ederim

 

[Mahmut Kök]

Bu kodlar deger1 ve deger2'nin aldığı değerlere göre aktif hücrenin olduğu yere ok işareti ekler. Çalışmanıza uyarlayabilirsiniz.

Sub Degere_Gore_Ok_Ekleme()
On Error GoTo devam

Set belge = Worksheets(1)
Dim t As Integer
Dim l As Integer
Dim g As Integer
Dim y As Integer
Dim o As Integer
Dim esitmi As Boolean
Dim deger1, deger2 As Integer

belge.Shapes(1).Delete
devam:

'Hücrelerden alınacak değerler...
'Değerleri değiştirerek deneyiniz.
deger1 = 10
deger2 = 10


'okun yönünü ve boyutlarını ayarlıyoruz.
If (deger1 = deger2) Then
o = 33
g = 50
y = 20
ElseIf (deger1 > deger2) Then
o = 35
g = 20
y = 50
Else
o = 36
g = 20
y = 50
End If


'Okun oluşacağı yer belirleniyor.
'Activecell kısmı belirli bir hücre ile değiştirilebilir.
t = ActiveCell.Top
l = ActiveCell.Left

belge.Shapes.AddShape o, l, t, g, y
End Sub

 

[krldg]

Faydalı bir cevap oldu teşekkür ediyorum ancak Kontrol edilmesi gereken çok sayıda hücre oldugu için bu yapı geliştirilmesi gerekiyor. VBA ile kontrol yapmadan yapabilen var mı acaba.