Sub Hesapla()
Dim GSayi As Integer
GSayi = 0
GSayi = 0
For ss = 1 To 31
ss = Format(ss, "00")
If Controls("G" & ss).Value = "X" Then
GSayi = GSayi + 1
ElseIf Controls("G" & ss).Value = "Y" Then
GSayi2 = GSayi2 + 0.5
End If
Next ss
Me.Gun = GSayi + GSayi2
End Sub
Puantaj Toplama İşlemi
Bu Konudaki Yorumlar |
Puantaj Toplama İşlemi - Yazar: IceMan7 - 18/02/2019, 14:59
Cvp: Puantaj Toplama İşlemi - Yazar: ozanakkaya - 18/02/2019, 16:30
Cvp: Puantaj Toplama İşlemi - Yazar: IceMan7 - 22/02/2019, 10:24
Cvp: Puantaj Toplama İşlemi - Yazar: ozanakkaya - 22/02/2019, 12:40
Cvp: Puantaj Toplama İşlemi - Yazar: IceMan7 - 22/02/2019, 16:25
Cvp: Puantaj Toplama İşlemi - Yazar: ozanakkaya - 22/02/2019, 18:00
Cvp: Puantaj Toplama İşlemi - Yazar: IceMan7 - 23/02/2019, 11:54
Cvp: Puantaj Toplama İşlemi - Yazar: ozanakkaya - 25/02/2019, 13:46
Cvp: Puantaj Toplama İşlemi - Yazar: IceMan7 - 03/03/2019, 14:58
|
Konuyu Okuyanlar: 1 Ziyaretçi