+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Metin Ve Sayıların Olduğu Hücre (/konu-metin-ve-sayilarin-oldugu-hucre.html)
Sayfalar:
1
2
Metin Ve Sayıların Olduğu Hücre - yyhy - 09/11/2023
Metin ve sayıların olduğu hücreden toplamları almak için formülle yapılabilir mi acaba?
RE: Metin Ve Sayıların Olduğu Hücre - feraz - 09/11/2023
Kod ile isterseniz split ,replace vb... kodlarla basitçe yapılır.
Ayrıca kod ile KTF olarakta yapılıp formül gibi kullanabilirsiniz.
RE: Metin Ve Sayıların Olduğu Hücre - yyhy - 10/11/2023
Sayın @feraz bey KTF olarak kullanmayı düşünüyorum.
=TOPLA.ÇARPIM(--KIRP(PARÇAAL(YERİNEKOY(G2;",";YİNELE(" ";UZUNLUK(G2)));1+((SATIR(DOLAYLI("$1:"&(1+UZUNLUK(G2)-UZUNLUK(YERİNEKOY(G2;",";"")))))-1)*UZUNLUK(G2));UZUNLUK(G2))))
ve
=EĞERHATA(TOPLA(EĞER(EĞERHATA(MBUL("#";"#"&YERİNEKOY(G2;", ";"#")&"#";SATIR(KAYDIR(A$1;;;UZUNLUK("#"&YERİNEKOY(G2;", ";"#")&"#")-1;1)));"")<>EĞERHATA(MBUL("#";"#"&YERİNEKOY(G2;", ";"#")&"#";SATIR(KAYDIR(A$2;;;UZUNLUK("#"&YERİNEKOY(G2;", ";"#")&"#")-1;1)));"");EĞERHATA(PARÇAAL("#"&YERİNEKOY(G2;", ";"#")&"#";EĞERHATA(MBUL("#";"#"&YERİNEKOY(G2;", ";"#")&"#";SATIR(KAYDIR(A$1;;;UZUNLUK("#"&YERİNEKOY(G2;", ";"#")&"#")-1;1)));"")+1;EĞERHATA(MBUL("#";"#"&YERİNEKOY(G2;", ";"#")&"#";SATIR(KAYDIR(A$2;;;UZUNLUK("#"&YERİNEKOY(G2;", ";"#")&"#")-1;1)));"")-EĞERHATA(MBUL("#";"#"&YERİNEKOY(G2;", ";"#")&"#";SATIR(KAYDIR(A$1;;;UZUNLUK("#"&YERİNEKOY(G2;", ";"#")&"#")-1;1)));"")-1)*1;"");""));"")
Arkadaşların yardımları ile çözüldü. Ama hem forumda hem de bizlerde örnek olması hasabiyle çeşitli alternatifler olsa iyi olur. Emeği geçenlere çok teşekkür ederim.
RE: Metin Ve Sayıların Olduğu Hücre - feraz - 10/11/2023
Ktf olarak akşama doğru yapıp eklerim.
Re: Metin Ve Sayıların Olduğu Hücre - feraz - 10/11/2023
(10/11/2023, 12:36)feraz yazdı: Ktf olarak akşama doğru yapıp eklerim.
=ToplaKTF(G2;",")
Alttaki kodu boş bir modüle ekleyip yukardaki gibi hücreye ekleyin.
PHP Kod:
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
RE: Metin Ve Sayıların Olduğu Hücre - feraz - 10/11/2023
=ToplaKTF(G2)
Yada alttaki gibi olabilir ama çok fazla satır olacaksa mesela 1 den 5bine kadar satır.O zaman yavaş çalışıyor.Kullanımıda yukardaki gibi.
PHP Kod:
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