Kod:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Address = "$A$2" Then Exit Sub
If Range("B1") = Empty Then Range("B1") = "="
If IsNumeric(Range("A1")) And Range("A1") = 0 Then Range("B1").Formula = Range("B1").Formula & "+" & Range("A1")
End SubUygulama Adımları
[*]Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
[*]Project - VBAProject alanının, ekranın sol tarafında görüldüğünden emin olun. Görünmüyorsa, Ctrl + R kısayolu ile hızlıca açın.
[*]Microsoft Excel Objects yazısının solundaki + simgesini tıklayın ve hangi sayfada deneme yapacaksanız, o sayfanın adının üstüne çift tıklayın.
[*]Üstteki kodu yapıştırın.
