Aynı Hücre İçerisindeki Birden Fazla Değeri Toplama

  • Konuyu başlatan Konuyu başlatan bd
  • Başlangıç tarihi Başlangıç tarihi
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Çözüm
Bu makroda benden alternatif olsun.

KTF: =XDtop(A1)
VBA: 
Function XDtop(hcr As Range, Optional krt = " kg,")
XDdizi = Split(hcr, krt)
For i = LBound(XDdizi) To UBound(XDdizi)
XDtop = XDtop + CDbl(XDdizi(i))
Next
End Function


VBA: 
Sub exceldepo()
XDdizi = Split(Range("A1").Value, " kg,")
For i = LBound(XDdizi) To UBound(XDdizi)
XDtopla = XDtopla + CDbl(XDdizi(i))
Next
MsgBox XDtopla
End Sub
Tarihe göre sırala Oylamaya göre sırala
Bu makroda benden alternatif olsun.

KTF: =XDtop(A1)
VBA: 
Function XDtop(hcr As Range, Optional krt = " kg,")
XDdizi = Split(hcr, krt)
For i = LBound(XDdizi) To UBound(XDdizi)
XDtop = XDtop + CDbl(XDdizi(i))
Next
End Function


VBA: 
Sub exceldepo()
XDdizi = Split(Range("A1").Value, " kg,")
For i = LBound(XDdizi) To UBound(XDdizi)
XDtopla = XDtopla + CDbl(XDdizi(i))
Next
MsgBox XDtopla
End Sub
 
Oyla 0 Olumsuz oyla
Çözüm
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst Alt