- Katılım
- 16 Nisan 2005
- Mesajlar
- 353
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
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