مجموع سل هاي انتخاب شده؟

[afshin160]

سلام .چطور مي توان مجموع سل ها انتخاب شده را از هر جا و هر شيت را در سلي خواص نشان داد . يعني هر جايي را كه انتخاب كرديم مجموع ازدر سلي نمايش داده شود . مانند خود اكسل كه در نوار پايين آن نمايش ميدهد ؟

[امين اسماعيلي]

RE: مجموع سل هاي انتخاب شده؟

با درود

کار خاصی رو نمیخواد انجام بدی

کد های زیر رو در رویداد workbook واسه اینکه در همه sheet ها اعمال بشه کپی کن
حله


[undefined=undefined]


Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim myRng As Range
Dim sumTip
Set myRng = Selection
sumTip = WorksheetFunction.Sum(myRng)
If myRng.Count > 1 Then
If sumTip > 0 Then

MsgBox "sum = " & sumTip
Else
End If
End If
End Sub