excelde işlemeler

[aeous]

A stünuna 1000 öğrencinin aldıları notları rasgele yazınız daha sonra B stütuna 90 ile 100 alanlar AA 80 ile 89 arası BB 70 ile 79 arası CC yazan programı yazınız

sadece B stunu ile ilgili kısmıda atsanız yeter şimdiden teşekkür ederim

 

[aeous]

Sub KOD()
For a = 1 To 1000
x = Int(Rnd * 100 + 1)
Cells(a, "A") = x
If x >= 90 Then Cells(a, "B") = "AA"
If x > 80 And x <= 89 Then Cells(a, "B") = "BA"
If x > 75 And x <= 79 Then Cells(a, "B") = "BB"
If x > 70 And x <= 74 Then Cells(a, "B") = "CB"
If x > 60 And x <= 69 Then Cells(a, "B") = "CC"
If x > 50 And x <= 59 Then Cells(a, "B") = "DC"
If x > 40 And x <= 49 Then Cells(a, "B") = "DD"
If x > 30 And x <= 39 Then Cells(a, "B") = "FD"
If x > 0 And x <= 29 Then Cells(a, "B") = "FF"

Next

End Sub


merak edenler için cevabı