Mouse ile iki seçim arasını toplatmak

[dalbil]

Merhaba;

herhangi bir sayfada ve sütundayken, mouse un sol tuşu ile seçtiğimiz sütun ve satır matrisinin toplamını msgbox a yazdırabilirmiyiz.

Tam olarak yapmak istediğim, excelin durum çubuğunda sağ altta göründüğü gibi mouse ile seçtiğim rakamların toplamlarını alabilmek.

Yardımlarınız için teşekkürler
Saygılarımla

 

[Korhan Ayhan]

Selamlar,

Forumumuza hoşgeldiniz.

Aşağıdaki kodu sayfanızın kod bölümüne uygulayıp denermisiniz.

Option Explicit
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error Resume Next
    MsgBox "Seçtiğiniz alandaki değerlerin ; " & Chr(10) & Chr(10) & _
    "TOPLAMI          = " & WorksheetFunction.Sum(Selection) & Chr(10) & _
    "ORTALAMASI   = " & WorksheetFunction.Average(Selection) & Chr(10) & _
    "SAYI ADEDİ       = " & WorksheetFunction.CountA(Selection)
End Sub