Yıl 2023 olmuş hala daha en basit bir toplama işlemini bile yapamıyor !!!
Bu nedir ya !!!
Yaşım 54, 30 senedir bilgisayar kullanıyorum, programcılık dahil, Unix, Linux işletim sistemleri dahil, hala daha çıktığınız yerdesiniz ya !!!
Lütfen geliştirin kendizi artık !!!
Eke gönderiyorum dosyayı, toplama yaptırabilene aşk olsun !!!
Toplama İşlemi Sorunu !!!
-
- Mesajlar: 3
- Kayıt: 06 Ara 2022, 00:08
- İşletim Sisteminiz: Windows 10 64 Bit
- LibreOffice Sürümü: 7.4.2.3
Toplama İşlemi Sorunu !!!
- Dosya ekleri
-
- KÜBAJ İCMALİ.xls
- (11 KiB) 103 kere indirildi
-
- Mesajlar: 3
- Kayıt: 06 Ara 2022, 00:08
- İşletim Sisteminiz: Windows 10 64 Bit
- LibreOffice Sürümü: 7.4.2.3
Re: Toplama İşlemi Sorunu !!!
Bari nokta virgül (. ,) nasıl topluca değiştirilir onu söyleyin yoksa tek tek hesap makinasıyla toplama yapacağım !!!
-
- Mesajlar: 3
- Kayıt: 06 Ara 2022, 00:08
- İşletim Sisteminiz: Windows 10 64 Bit
- LibreOffice Sürümü: 7.4.2.3
Re: Toplama İşlemi Sorunu !!!
Sorun şu ki; noktayı farklı algılıyor hazretleri, o yüzden hepsinin virgül olmasını istiyor. Bu nedir ya, biri virgül ister, biri nokta ister, böyle saçmalık mı olur, sayıysa sayıdır kardeşim daha ne istiyorsun !!!
- Hamurcu
- Mesajlar: 265
- Kayıt: 06 Ağu 2012, 00:14
- İşletim Sisteminiz: Windows 10/11 - Pardus Linux
- LibreOffice Sürümü: 7.x
Re: Toplama İşlemi Sorunu !!!
Düzenle menüsünden Bul ve Değiştir ile tüm nokta (.) ları virgül (,) ile değişebilirsiniz.
-
- Mesajlar: 9
- Kayıt: 23 Eki 2020, 15:14
- İşletim Sisteminiz: Ubuntu & Windows
- LibreOffice Sürümü: 7.1.5.2
Re: Toplama İşlemi Sorunu !!!
Kod: Tümünü seç
REM **** Ondalık ayracı noktayken aralığı toplar ****
Function NoktaylaTopla(range) As STRING
Dim row, col As Integer
Dim cell, newcell, newresult, This As STRING
Dim result As Double
result = 0
For row = LBound(range, 1) To UBound(range, 1)
For col = LBound(range, 2) To UBound(range, 2)
cell = range(row, col)
newcell = ""
For NoktaVirgul = LEN(cell) to 1 STEP -1
This = MID(cell, NoktaVirgul, 1)
If This = "." Then
newcell = "," + newcell
Else
newcell = This + newcell
End If
Next
cell = CDbl(newcell)
If IsNumeric(cell) = True Then
result = result + CDbl(cell)
Else
End If
Next
Next
For VirgulNokta = LEN(CStr(result)) to 1 STEP -1
This = MID(CStr(result), VirgulNokta, 1)
If This = "," Then
newresult = "." + newresult
Else
newresult = This + newresult
End If
Next
NoktaylaTopla = newresult
End Function