Metin ve sayıların olduğu hücreden toplamları almak için formülle yapılabilir mi acaba?
yyhy, 18-05-2009 tarihinden beri AccessTr.neT üyesidir.
(10/11/2023, 12:36)feraz yazdı: Ktf olarak akşama doğru yapıp eklerim.
Function ToplaKTF(hucre As Range, ayrac As String) As Double
Dim topla As Double, kes, i As Long
Application.Volatile
ToplaKTF = 0
kes = Replace(hucre, " ", "")
kes = Split(kes, ayrac)
For i = 0 To UBound(kes)
If IsNumeric(kes(i)) = True Then topla = topla + CDbl(kes(i))
Next
ToplaKTF = topla
End Function
Function ToplaKTF(hucre As Range) As Double
Dim topla As Double, arr, i As Long
Application.Volatile
ToplaKTF = 0
With CreateObject("vbscript.regexp")
.Pattern = "[^0-9]"
.Global = True
.IgnoreCase = True
arr = Split(Trim(.Replace(hucre.Value, " ")), " ")
End With
For i = 0 To UBound(arr)
If IsNumeric(arr(i)) = True Then topla = topla + CDbl(arr(i))
Next
ToplaKTF = topla
End Function