mause tuşu ile eksiltme ve artırma

[sirkülasyon]

excel sayfasının tamamında
mause sol tuşu ile çift tık ile hücrede var olan sayıyı birer eksiltecek,
mause sağ tuşu ile çift tık ile hücrede var olan sayıyı birer artıracak, makro koduna ihtiyacım var.
Yardımcı olabilir misiniz?

 

[antonio]

Sayfa sekmesine sağ tıklayarak "kod görüntüle" yi seçiniz, açılan pencereye aşağıdaki kodların tümünü kopyalayıp yapıştırınız.
Fare ile tıklama sonucunda değişiklik olmasını istediğiniz hücreleri; aşağıdaki kod satırında kırmızı renkli [B2] köşeli parantezinin içinde belirtiniz.
Hiçbir hücre sınırlaması yapmadan sayfadaki tüm hücrelerde bu uygulamanın çalışmasını istiyorsanız;

If Not Intersect(Target, [COLOR="Red"][B][B2][/B][/COLOR]) Is Nothing Then

kod satırını,

If Not Intersect(Target, [COLOR="Red"][B]ActiveSheet.Cells[/B][/COLOR]) Is Nothing Then

olarak değiştiriniz.

Dim mevcut As Long, deg As Long
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
mevcut = Target.Value
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, [COLOR="Red"][B][B2][/B][/COLOR]) Is Nothing Then
    deg = mevcut - 1
    Target.Value = deg
    Target.Offset(1, 0).Select
End If
End Sub
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    deg = mevcut + 1
    Target.Value = deg
    Target.Offset(1, 0).Select
End Sub

 

[sirkülasyon]

Sayın antonio
Ellerine Sağlık. Çok çok Sağolasın

 

[antonio]

Rica ederim. İyi çalışmalar.