| Home |
| Search |
| Today's Posts |
|
#5
Posted to microsoft.public.excel.misc
|
|||
|
|||
AVG,SUM
Excellent! Thank you,
Alan. "Jack Sons" wrote in message ... Juanpablo, Yes, it is. I got the wonderful code you see below, I think from a MVP. Put it in the This Workbook module of your personal.xls. Beside AVG and SUM, you also get count, count nums, max and min. Jack. ------------------------------------------------------------------------------------------------------ Option Explicit Public WithEvents xlApp As Application Private Sub Workbook_BeforeClose(Cancel As Boolean) Set xlApp = Nothing Application.DisplayStatusBar = True End Sub Private Sub Workbook_Open() Set xlApp = Application End Sub Private Sub xlApp_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) On Error Resume Next If Target.Count < 2 Then Application.StatusBar = False Else Application.StatusBar = _ "Average=" & Round(Application.Average(Target), 2) & _ "; " & _ "Count=" & Application.CountA(Target) & "; " & _ "Count nums=" & Application.Count(Target) & _ "; " & _ "Sum=" & Format(Round(Application.sum(Target), 2), "#,##0.00") & "; " & _ "Max=" & Application.Max(Target) & "; " & _ "Min=" & Application.Min(Target) End If End Sub --------------------------------------------------------------------------- "juanpablo" schreef in bericht ... Is it possible to have the AVG and also at the same time the SUM on the status bar of Excel. JP |
Threaded Mode
