J
juanpablo
Is it possible to have the AVG and also at the same time the SUM on the
status bar of Excel.
JP
status bar of Excel.
JP
You are using an out of date browser. It may not display this or other websites correctly.
You should upgrade or use an alternative browser.
You should upgrade or use an alternative browser.
A
Alan
No, I don't think so.
Regards,
Alan.
Regards,
Alan.
L
Lars-Åke Aspelin
Is it possible to have the AVG and also at the same time the SUM on the
status bar of Excel.
JP
If you have Excel2007 you may customize the status bar to do this and
more.
/ Lars-Åke
J
Jack Sons
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
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
A
Alan
Excellent! Thank you,
Alan.
Alan.
Jack Sons said: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