Skip to main content

AccessTr.neT


Puantaj Toplama İşlemi

Puantaj Toplama İşlemi

#7
Ozan hocam çok teşekkür ederim gayet güzel oldu ekstradan tekrar toplam gün gibi bir duruma girmeye gerek varmı sizce?

peki "Y" harflerinin yani yarım günü nasıl 0,5 olarak toplatabiliriz aynı alanda
Cevapla
#8
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
Cevapla
#9
(25/02/2019, 13:46)ozanakkaya yazdı:
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



Ozan abi verdiğin formüller işe yaradı baya aşama kaydettik.

Sayın çok kıymetli hocam özgür abimin de destek ve yardımlarıyla site için gayet güzel bir puantaj programı yapıyoruz.çok az kaldı.


Şimdi sizlerden bir ricam olacak ayrı konu da açacağım bunla alakalı formdaki renkli alanları aynı şekilde excele aktarma diye bir konu ile fikirlerinizi alacağım.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da