- Katılım
- 15 Haziran 2019
- Mesajlar
- 26
- Excel Vers. ve Dili
- excel 2016 türkçe
- Altın Üyelik Bitiş Tarihi
- 12-10-2022
formül çubuğuna gireceğim alandaki hücrelerde değerler var, ben oluşturduğum bir fonksyonla bu değerleri değiştirdikten sonra bu değerleri toplayıp fonksyonu yazdığım hücrede gösterecek bir fonksyon yazmak istemiştim
yani sütundaki hücrelerdeki değerleri ilk önce ilk fonksyonla değiştirip sonra ayrıca toplamak istemiyorum. tek bir fonksyon, belirttiğim aralıkta ilk fonksyonu çalıştırsın oluşan değerleri toplasın istiyorum. böyle bir şey mümkünmü? birşeyler yazdım ama çalıştıramadım #DEĞER! hatası veriyor
Function sadecesayi(ifade) ' suanda bu fonksyon bir hücredeki harf işaret karışık bir kelimeden sayıları çekip alıyor fakat fonksyon tanımlama kısmına(buraya) As integer yazdığım zaman DEĞER hatası veriyor. acaba bu yüzdenmi aşağıdaki fonksyonda kullanılamıyor?
Application.Volatile
Dim uzunluk As Long
uzunluk = Len(ifade)
sadecesayi = ""
For i = 5 To uzunluk - 2
If IsNumeric(Mid(ifade, i, 1)) Then
sadecesayi = sadecesayi & Mid(ifade, i, 1)
End If
Next
End Function
bu fonksyonu aşağıda kullanmak istiyorum ama yapamadım
Function toplam(bolge As Range) As Integer
Dim rng As Range
Application.Volatile
For Each rng In Range("bolge")
rng = sadecesayi(rng)
x = x + rng.Value
Next rng
toplam= x
End Function
yeni öğreniyorum bugün bu noktada çok takıldım yardım ederseniz çok sağolun..
yani sütundaki hücrelerdeki değerleri ilk önce ilk fonksyonla değiştirip sonra ayrıca toplamak istemiyorum. tek bir fonksyon, belirttiğim aralıkta ilk fonksyonu çalıştırsın oluşan değerleri toplasın istiyorum. böyle bir şey mümkünmü? birşeyler yazdım ama çalıştıramadım #DEĞER! hatası veriyor
Function sadecesayi(ifade) ' suanda bu fonksyon bir hücredeki harf işaret karışık bir kelimeden sayıları çekip alıyor fakat fonksyon tanımlama kısmına(buraya) As integer yazdığım zaman DEĞER hatası veriyor. acaba bu yüzdenmi aşağıdaki fonksyonda kullanılamıyor?
Application.Volatile
Dim uzunluk As Long
uzunluk = Len(ifade)
sadecesayi = ""
For i = 5 To uzunluk - 2
If IsNumeric(Mid(ifade, i, 1)) Then
sadecesayi = sadecesayi & Mid(ifade, i, 1)
End If
Next
End Function
bu fonksyonu aşağıda kullanmak istiyorum ama yapamadım
Function toplam(bolge As Range) As Integer
Dim rng As Range
Application.Volatile
For Each rng In Range("bolge")
rng = sadecesayi(rng)
x = x + rng.Value
Next rng
toplam= x
End Function
yeni öğreniyorum bugün bu noktada çok takıldım yardım ederseniz çok sağolun..
Son düzenleme: