Puan Karşılaştırma ve Simge Kümeleri Kullanma

[pisagor26]

Değerli arkadaşlar; ekte ki çalışmada iki sütunda sınav puanları mevcut. Her satır için puanları karşılaştırıp ( ilk ve ikinci sınav durumunu) simge kümeleri kullanmak (yukarı-aşağı yan yön tuşları) istiyorum.Yardımlarınızı bekliyorum.Teşekkürler...

 

[muygun]

Merhaba;
Eki İnceleyin.
İyi çalışmalar.

 

[veyselemre]

Yanlış anlamadıysam aşağıdaki kodları deneyiniz.

Sub test()
    With ActiveSheet
        For Each shp In .Shapes
            shp.Delete
        Next shp
        For i = 4 To [b65536].End(3).Row
            sp = msoShapeUpArrow
            If Cells(i, 2) > Cells(i, 3) Then sp = msoShapeDownArrow: renk = 10 Else sp = msoShapeUpArrow: renk = 11
            Set shp = .Shapes.AddShape(sp, Cells(i, 3).Left, Cells(i, 3).Top + 2, 20, Cells(i, 3).Height - 4)
            shp.Fill.ForeColor.SchemeColor = renk
        Next i
    End With
End Sub

 

[pisagor26]

Çok çok tesekkurler... ellerinize saglik. Muhteşemsiniz.