Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Status Bar
Just got this code from one of the other groups. It displays all of the
options like Sum, Average etc available on the Status Bar at the same time. A really useful thing to have in the Personal Macro's. I don't know who wrote it, certainly not me! I'm just passing it on, I take off my hat to whoever it was, Regards, Alan. Option Explicit Public WithEvents xlApp As Application Private Sub Workbook_Open() Set xlApp = Application End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) Set xlApp = Nothing Application.DisplayStatusBar = True 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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Status Bar
Looks like something adapted from one of my posts in this ng
http://groups.google.co.uk/group/mic...f4abf75d78758f Regards, Peter T "Alan" wrote in message ... Just got this code from one of the other groups. It displays all of the options like Sum, Average etc available on the Status Bar at the same time. A really useful thing to have in the Personal Macro's. I don't know who wrote it, certainly not me! I'm just passing it on, I take off my hat to whoever it was, Regards, Alan. Option Explicit Public WithEvents xlApp As Application Private Sub Workbook_Open() Set xlApp = Application End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) Set xlApp = Nothing Application.DisplayStatusBar = True 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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Status Bar
In that case, thank you. This is one of the most useful things I've seen in
a long time, Regards, Alan. "Peter T" <peter_t@discussions wrote in message ... Looks like something adapted from one of my posts in this ng http://groups.google.co.uk/group/mic...f4abf75d78758f Regards, Peter T "Alan" wrote in message ... Just got this code from one of the other groups. It displays all of the options like Sum, Average etc available on the Status Bar at the same time. A really useful thing to have in the Personal Macro's. I don't know who wrote it, certainly not me! I'm just passing it on, I take off my hat to whoever it was, Regards, Alan. Option Explicit Public WithEvents xlApp As Application Private Sub Workbook_Open() Set xlApp = Application End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) Set xlApp = Nothing Application.DisplayStatusBar = True 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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Status Bar | Excel Discussion (Misc queries) | |||
reuest formula for auto update status & status date | Excel Worksheet Functions | |||
Status Bar - Need to see # of # | Excel Discussion (Misc queries) | |||
Status Bar | Excel Discussion (Misc queries) | |||
Need a msg box that displays time status or loading status | Excel Programming |