G Guest Aug 18, 2006 #1 How can you have the Excel Status Bar simultaneously display Sum, Average, Max & Min of highlighted data ?
How can you have the Excel Status Bar simultaneously display Sum, Average, Max & Min of highlighted data ?
D Dave Peterson Aug 18, 2006 #2 Not possible. Maybe you could create a macro that you could assign to a shortcut key: Option Explicit Sub ShowStats() Dim myRng As Range Dim myMin As Variant Dim myMax As Variant Dim myAve As Variant Dim mySum As Variant Set myRng = Selection With Application myMin = .Min(myRng) myMax = .Max(myRng) myAve = .Average(myRng) mySum = .Sum(myRng) End With If IsError(myMin) Then myMin = "--" If IsError(myMax) Then myMax = "--" If IsError(myAve) Then myAve = "--" If IsError(mySum) Then mySum = "--" MsgBox "Min: " & myMin & vbLf & _ "Max: " & myMax & vbLf & _ "Ave: " & myAve & vbLf & _ "Sum: " & mySum End Sub If you're new to macros, you may want to read David McRitchie's intro at: http://www.mvps.org/dmcritchie/excel/getstarted.htm
Not possible. Maybe you could create a macro that you could assign to a shortcut key: Option Explicit Sub ShowStats() Dim myRng As Range Dim myMin As Variant Dim myMax As Variant Dim myAve As Variant Dim mySum As Variant Set myRng = Selection With Application myMin = .Min(myRng) myMax = .Max(myRng) myAve = .Average(myRng) mySum = .Sum(myRng) End With If IsError(myMin) Then myMin = "--" If IsError(myMax) Then myMax = "--" If IsError(myAve) Then myAve = "--" If IsError(mySum) Then mySum = "--" MsgBox "Min: " & myMin & vbLf & _ "Max: " & myMax & vbLf & _ "Ave: " & myAve & vbLf & _ "Sum: " & mySum End Sub If you're new to macros, you may want to read David McRitchie's intro at: http://www.mvps.org/dmcritchie/excel/getstarted.htm