-
DİKKAT DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Listboxda filtreli toplama problemi
- Konbuyu başlatan byfika
- Başlangıç tarihi
- Katılım
- 15 Aralık 2007
- Mesajlar
- 1,666
- Excel Vers. ve Dili
- 2021 PRO [TR]
t1 değişkeni sırasıyla
12
1224
2458
değerlerini alıyor.
Sizin toplameder ifadesi ile yapmak istediğiniz şey sanırım burada olayı karıştırıyor.
burayı biraz daha dikkatli inceleyin.
Hatta bu kadar uzun ifadeyi tek satırda yazmadan, parçalara ayırıp adım adım takip ederseniz hatayı yakalaması daha kolay olacaktır.
a=Listbox1.List(i,7)
b=Replace(a, "x" , "y")
c=Cdbl(b) gibi.
12
1224
2458
değerlerini alıyor.
Sizin toplameder ifadesi ile yapmak istediğiniz şey sanırım burada olayı karıştırıyor.
Kod:
t1 = CDbl(Replace(Replace(IIf(ListBox1.List(i, 7) = Empty, 0, ListBox1.List(i, 7)), ".", ""), " TL", "")) + CDbl(Replace(t1, ".", ""))Hatta bu kadar uzun ifadeyi tek satırda yazmadan, parçalara ayırıp adım adım takip ederseniz hatayı yakalaması daha kolay olacaktır.
a=Listbox1.List(i,7)
b=Replace(a, "x" , "y")
c=Cdbl(b) gibi.
- Katılım
- 15 Ağustos 2009
- Mesajlar
- 512
- Excel Vers. ve Dili
- Excel Vers. ve Dili : Ofis 2016 Tr
Aşağıdaki kodlama ile problemi çözdüm.
İhtiyaç duyan arkadaşlara yardımcı olması amacıyla siteye yüklüyorum.
Private Sub CommandButton8_Click()
Dim i As Long
Dim toplam As Double
Dim sutunIndex As Integer
sutunIndex = 7
toplam = 0
For i = 0 To ListBox1.ListCount - 1
If IsNumeric(ListBox1.List(i, sutunIndex)) Then
toplam = toplam + CDbl(ListBox1.List(i, sutunIndex))
End If
Next i
TextBox17.Value = Format(toplam, "#,##0.00")
End Sub
İhtiyaç duyan arkadaşlara yardımcı olması amacıyla siteye yüklüyorum.
Private Sub CommandButton8_Click()
Dim i As Long
Dim toplam As Double
Dim sutunIndex As Integer
sutunIndex = 7
toplam = 0
For i = 0 To ListBox1.ListCount - 1
If IsNumeric(ListBox1.List(i, sutunIndex)) Then
toplam = toplam + CDbl(ListBox1.List(i, sutunIndex))
End If
Next i
TextBox17.Value = Format(toplam, "#,##0.00")
End Sub
Son düzenleme: