Tek hüçrede Toplama işlemi ?

[nihatjeoloji]

selam arkadaşlar


syn danersin
bir ara tek hüçrede toplema işlemini çözdünüz fakat bu gün farkettim ki
küsüratları toplamıyor.

Ã?R:
3*4+0,32+2,45=......


formül bu

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Cells(23, 4).Address And Cells(23, 4) <> "" Then
If Right(Target.Text, 1) = "=" Then
a = Left(Target.Text, Len(Target.Text) - 1)
Else
ry = Application.WorksheetFunction.Find("=", Target.Text, 1)
a = Left(Target.Text, ry - 1)
End If
If IsError(Evaluate(a)) = False Then Target = a & "=" & Evaluate(a)
End If
End Sub

nasıl düzeltebiliriz

Teşekkürler

 

[danersin]

rakamları yazarken virgül yerine nokta kullanırsanız düzgün çalışır.

 

[nihatjeoloji]

syn danersin

çok teşrkkürler

 

[nihatjeoloji]

say danersin

iki sorum daha olacak

1- Toplama arasında boşluk bırakabilirmiyiz ?
Ã?R:
12+2/2=7 bu şekilde değilde

12 + 2 / 2 = 7 bu şekilde


2- çarpımada (*) işareti yerine (X) işaretini yapabilirmiyiz ?

 

[nihatjeoloji]

birde hata var

2.31+1.00*1.97=4,28 bunu veriyor

oysa hesab makinesi
2.31+1.00*1.97=6.5207 veriyor

nedeni bu formül önce çarpma / bölme işlemlerini yapıp sonra toplama işlemine geçiyor.

sırası ile işlem yapılsın istesek. yani soldan sağa doğru sırası ile işlem yapılsın ?
Ã?R:
2.31+1.00*1.97/2
önce artı >> çarpı >>bölme

Ã?R:
2.31*1.00-1.97/2

önce çarpı >> eksi >> bölme

 

[VisualBasic]

İşlem sırasını unutmamak gerekir. Çarp - Böl -Topla - Çıkar bunuda parantezler ile sağlayabilirsiniz.