[ÇÖZÜLDÜ] Değerlerin Sayısal Kısımlarını toplatmak

[muhceli]

Sayın Hocalarım:
Bu formdan çok bilgiler edindim.
Başaramadığım bir konu: Değerlerin; ilk harfleri aynı olan harfleri toplattım ama, aynı harf değerlerindeki sayısal değerleri ayırıp toplatamadım. Ekli dosyaya bir göz atarmısınız...

 

[muhceli]

Sayın Hocalarım:
Bu formdan çok bilgiler edindim.
Başaramadığım bir konu: Değerlerin; ilk harfleri aynı olan harfleri toplattım ama, aynı harf değerlerindeki sayısal değerleri ayırıp toplatamadım. Ekli dosyaya bir göz atarmısınız...
Teşekkür ederim iyi akşamlar.

 

[Orion1]

Sayıların toplanması konusu hazır.
Dosyanız ekte.

Private Sub CommandButton2_Click()
Dim h As Byte, A, C, P As Double
   For h = 1 To 10
    A = A + sayilari_topla("A", Controls("TextBox" & h))
    C = C + sayilari_topla("C", Controls("TextBox" & h))
    P = P + sayilari_topla("P", Controls("TextBox" & h))
   Next h
  Label18.Caption = A
  Label19.Caption = C
  Label20.Caption = P
End Sub

Function sayilari_topla(kriter As String, deg As String)
Dim bul As Byte, sayi As Double
If Len(deg) < 3 Then Exit Function
If kriter = Left(deg, 1) Then
    bul = InStr(1, deg, "+")
    sayi = Mid(deg, bul + 1)
    sayi = Mid(deg, bul + 1, Len(deg) - bul)
    sayilari_topla = sayi
End If
End Function

 

[muhceli]

Sayın;"Evren Gizlen" Hocam.
İlginize ve alakanıza sonsuz teşekkür ederim.
Allah kaleminize ve zekanıza kuvvet versin.
Hayırlı akşamlar.

 

[Orion1]

Sayın;"Evren Gizlen" Hocam.
İlginize ve alakanıza sonsuz teşekkür ederim.
Allah kaleminize ve zekanıza kuvvet versin.
Hayırlı akşamlar.

Rica ederim.
Hayırlı akşamlar.