Çikarma İŞlemİ

[speedy 61]

Arkadaşlar örnekteki tablomun herhangi bir yerinde çıkarma işlemi yapacağım zaman shift=,-,enter formülünü her seferinde kullanmadan daha pratik bir şekilde yapabilirmiyim.Yani alt alta gelen iki sayıyı toplama işleminde seçili alanların toplamı aşağıda yazdığı gibi çıkarma işleminde de böyle bir kolaylık var mı?Yardımlarınız için şimdiden teşekkürler.

 

[Seyit Tiken]

Kodu uygulayınız. Birbirinden çıkarılacak veri girip enterleyin.

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveCell = ActiveCell.Offset(-2) - ActiveCell.Offset(-1)
End Sub

 

[ileriexcel]

Yanlız j14 hücresinde çalışması için.
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [j14]) Is Nothing Then Exit Sub
If ActiveCell.Value <> "" Then
deg1 = ActiveCell.Offset(-2, 0)
deg2 = ActiveCell.Offset(-1, 0)
ActiveCell.Value = deg1 - deg2
End If
End Sub