Bir notu parçalara bölme

[serkanholep]

bu kod girilen bir notun belli kriterlere göre küçük parçalara bölünmesini sağlıyor

yani 90 girilirse, 15 kriter var ise ve bu kriterlere iyi,orta,kötü gibi değerler (1,2,3) veriliyorsa bu 15 kriteri otomatik olarak doldurmaya yarıyor.

bu kodu hazır buldum ve kendi programıma entegre etmek istiyorum fakat mantığını çözemedim

koyu yazdığım yerde neden 1,33 e bölmüş


Private Sub CommandButton1_Click()
Dim i, j, k, l As Integer
For i = 2 To 100
If Cells(i, 19) < 1 Then
GoTo 20
End If
If Cells(i, 19) < 30 And Cells(i, 19) > 0 Then
MsgBox "Lütfen 30 dan küçük not girmeyiniz", , "VEDAT ÇILMAN"
Cells(i, 19).Select
GoTo 10
Else
If Cells(i, 19) > 100 Then
MsgBox "Lütfen 100 den büyük not girmeyiniz", , "VEDAT ÇILMAN"
Cells(i, 19).Select
GoTo 10
End If
If Cells(i, 19) > 29 And Cells(i, 19) < 41 Then
15:
Cells(i, 3) = Int(Rnd * 3 + 1)
Cells(i, 4) = Int(Rnd * 3 + 1)
Cells(i, 5) = Int(Rnd * 3 + 1)
Cells(i, 6) = Int(Rnd * 3 + 1)
Cells(i, 7) = Int(Rnd * 3 + 1)
Cells(i, 8) = Int(Rnd * 3 + 1)
Cells(i, 9) = Int(Rnd * 3 + 1)
Cells(i, 10) = Int(Rnd * 3 + 1)
Cells(i, 11) = Int(Rnd * 3 + 1)
Cells(i, 12) = Int(Rnd * 3 + 1)
Cells(i, 13) = Int(Rnd * 3 + 1)
Cells(i, 14) = Int(Rnd * 3 + 1)
Cells(i, 15) = Int(Rnd * 3 + 1)
Cells(i, 16) = Int(Rnd * 3 + 1)
Cells(i, 17) = Int(Rnd * 3 + 1)




************************


k = Int(Cells(i, 19) / 1.33)


*******************************





l = (Cells(i, 3) + Cells(i, 4) + Cells(i, 5) + Cells(i, 6) + Cells(i, 7) + Cells(i, 8) + Cells(i, 9) + Cells(i, 10) + Cells(i, 11) + Cells(i, 12) + Cells(i, 13) + Cells(i, 14) + Cells(i, 15) + Cells(i, 16) + Cells(i, 17))

If l = k Then
Cells(i, 18) = Cells(i, 19)
Cells(i, 19) = ""
Else
GoTo 15
End If
End If
If Cells(i, 19) > 40 And Cells(i, 19) < 71 Then
22:
Cells(i, 3) = Int(Rnd * 5 + 1)
Cells(i, 4) = Int(Rnd * 5 + 1)
Cells(i, 5) = Int(Rnd * 5 + 1)
Cells(i, 6) = Int(Rnd * 5 + 1)
Cells(i, 7) = Int(Rnd * 5 + 1)
Cells(i, 8) = Int(Rnd * 5 + 1)
Cells(i, 9) = Int(Rnd * 5 + 1)
Cells(i, 10) = Int(Rnd * 5 + 1)
Cells(i, 11) = Int(Rnd * 5 + 1)
Cells(i, 12) = Int(Rnd * 5 + 1)
Cells(i, 13) = Int(Rnd * 5 + 1)
Cells(i, 14) = Int(Rnd * 5 + 1)
Cells(i, 15) = Int(Rnd * 5 + 1)
Cells(i, 16) = Int(Rnd * 2 + 1)
Cells(i, 17) = Int(Rnd * 5 + 1)
k = Int(Cells(i, 19) / 1.33)
l = (Cells(i, 3) + Cells(i, 4) + Cells(i, 5) + Cells(i, 6) + Cells(i, 7) + Cells(i, 8) + Cells(i, 9) + Cells(i, 10) + Cells(i, 11) + Cells(i, 12) + Cells(i, 13) + Cells(i, 14) + Cells(i, 15) + Cells(i, 16) + Cells(i, 17))

If l = k Then
Cells(i, 18) = Cells(i, 19)
Cells(i, 19) = ""
Else
GoTo 22
End If
End If
If Cells(i, 19) > 70 And Cells(i, 19) < 91 Then
16:
Cells(i, 3) = Int(Rnd * 3 + 3)
Cells(i, 4) = Int(Rnd * 3 + 3)
Cells(i, 5) = Int(Rnd * 3 + 3)
Cells(i, 6) = Int(Rnd * 3 + 3)
Cells(i, 7) = Int(Rnd * 3 + 3)
Cells(i, 8) = Int(Rnd * 3 + 3)
Cells(i, 9) = Int(Rnd * 3 + 3)
Cells(i, 10) = Int(Rnd * 3 + 3)
Cells(i, 11) = Int(Rnd * 3 + 3)
Cells(i, 12) = Int(Rnd * 3 + 3)
Cells(i, 13) = Int(Rnd * 3 + 3)
Cells(i, 14) = Int(Rnd * 3 + 3)
Cells(i, 15) = Int(Rnd * 3 + 3)
Cells(i, 16) = Int(Rnd * 3 + 3)
Cells(i, 17) = Int(Rnd * 3 + 3)
k = Int(Cells(i, 19) / 1.33)
l = (Cells(i, 3) + Cells(i, 4) + Cells(i, 5) + Cells(i, 6) + Cells(i, 7) + Cells(i, 8) + Cells(i, 9) + Cells(i, 10) + Cells(i, 11) + Cells(i, 12) + Cells(i, 13) + Cells(i, 14) + Cells(i, 15) + Cells(i, 16) + Cells(i, 17))

If l = k Then
Cells(i, 18) = Cells(i, 19)
Cells(i, 19) = ""
Else
GoTo 16
End If
End If
If Cells(i, 19) > 90 And Cells(i, 19) < 96 Then
17:
Cells(i, 3) = Int(Rnd * 2 + 4)
Cells(i, 4) = Int(Rnd * 2 + 4)
Cells(i, 5) = Int(Rnd * 2 + 4)
Cells(i, 6) = Int(Rnd * 2 + 4)
Cells(i, 7) = Int(Rnd * 2 + 4)
Cells(i, 8) = Int(Rnd * 2 + 4)
Cells(i, 9) = Int(Rnd * 2 + 4)
Cells(i, 10) = Int(Rnd * 2 + 4)
Cells(i, 11) = Int(Rnd * 2 + 4)
Cells(i, 12) = Int(Rnd * 2 + 4)
Cells(i, 13) = Int(Rnd * 2 + 4)
Cells(i, 14) = Int(Rnd * 2 + 4)
Cells(i, 15) = Int(Rnd * 2 + 4)
Cells(i, 16) = Int(Rnd * 2 + 4)
Cells(i, 17) = Int(Rnd * 2 + 4)
k = Int(Cells(i, 19) / 1.33)
l = (Cells(i, 3) + Cells(i, 4) + Cells(i, 5) + Cells(i, 6) + Cells(i, 7) + Cells(i, 8) + Cells(i, 9) + Cells(i, 10) + Cells(i, 11) + Cells(i, 12) + Cells(i, 13) + Cells(i, 14) + Cells(i, 15) + Cells(i, 16) + Cells(i, 17))

If l = k Then
Cells(i, 18) = Cells(i, 19)
Cells(i, 19) = ""
Else
GoTo 17
End If
End If
If Cells(i, 19) > 95 Then
18:
Cells(i, 3) = 5
Cells(i, 4) = 5
Cells(i, 5) = 5
Cells(i, 6) = 5
Cells(i, 7) = 5
Cells(i, 8) = 5
Cells(i, 9) = 5
Cells(i, 10) = Int(Rnd * 2 + 4)
Cells(i, 11) = Int(Rnd * 2 + 4)
Cells(i, 12) = Int(Rnd * 2 + 4)
Cells(i, 13) = Int(Rnd * 2 + 4)
Cells(i, 14) = Int(Rnd * 2 + 4)
Cells(i, 15) = Int(Rnd * 2 + 4)
Cells(i, 16) = Int(Rnd * 2 + 4)
Cells(i, 17) = Int(Rnd * 2 + 4)
k = Int(Cells(i, 19) / 1.33)
l = (Cells(i, 3) + Cells(i, 4) + Cells(i, 5) + Cells(i, 6) + Cells(i, 7) + Cells(i, 8) + Cells(i, 9) + Cells(i, 10) + Cells(i, 11) + Cells(i, 12) + Cells(i, 13) + Cells(i, 14) + Cells(i, 15) + Cells(i, 16) + Cells(i, 17))

If l = k Then
Cells(i, 18) = Cells(i, 19)
Cells(i, 19) = ""
Else
GoTo 18
End If
End If
End If
20:
Next
10:
End Sub

 

[serkanholep]

dün yazdığıma cevap yazmamaış kimse ama bugün başka bir şey sorcam

ekteki programda yazılan not random değerler verilerek ( deriçinde ve projede 5 performans da 4 puan) parçalanyor

normalde parçalı bir şekilde verilip notun hesaplanması gerekirken ben terseten yaparak öğretmenlerin işini kolaykaştırmayı istiyorum

fakat programda düğmeye basınca (özellikle proje ve dersiçinde) çok yavaşlıyor bazen de takılıp kalıyor

bu yavaşlığı nasıl halledebilirim. ya da programın mantığını nasıl değiştirebilirim