Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
possible have sum and average at bottom?
Thanks for any help.
I use the sum display at the bottom of the window alot, and recently have been using the average-is it possible to display both, one right next to each other? I right-click to the left and right of it, but if I change, I don't add another one, just change the one that is there. I go between sum and average enough to that changing it is a bit of a hassle. It looks like there is enough space there to have average and sum right next to each other. Thanks again. |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
possible have sum and average at bottom?
Try "=AVERAGE(range of cells)
"Ian Elliott" wrote: Thanks for any help. I use the sum display at the bottom of the window alot, and recently have been using the average-is it possible to display both, one right next to each other? I right-click to the left and right of it, but if I change, I don't add another one, just change the one that is there. I go between sum and average enough to that changing it is a bit of a hassle. It looks like there is enough space there to have average and sum right next to each other. Thanks again. |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
possible have sum and average at bottom?
No, it is one or the other.
You could always build your own Option Explicit Private Sub Workbook_Open() On Error Resume Next Application.CommandBars("myCB").Delete On Error GoTo 0 With Application.CommandBars.Add(Name:="myCB", temporary:=True) With .Controls.Add(Type:=msoControlButton) .Caption = "Sum=" .Style = msoButtonCaption End With With .Controls.Add(Type:=msoControlEdit) .Caption = "mySum" End With With .Controls.Add(Type:=msoControlButton) .BeginGroup = True .Caption = "Ave=" .Style = msoButtonCaption End With With .Controls.Add(Type:=msoControlEdit) .Caption = "myAve" End With .Visible = True End With End Sub 'This is workbook event code. 'To input this code, right click on the Excel icon on the worksheet '(or next to the File menu if you maximise your workbooks), 'select View Code from the menu, and paste the code Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Dim cell As Range Dim nTotal As Double Dim cItems As Long For Each cell In Target If IsNumeric(cell.Value) Then nTotal = nTotal + cell.Value cItems = cItems + 1 End If Next cell If cItems < 0 Then Application.CommandBars("myCB").Controls("mySum"). Text = nTotal Application.CommandBars("myCB").Controls("myAve"). Text = nTotal / cItems End If End Sub -- HTH Bob Phillips (replace somewhere in email address with gmail if mailing direct) "Ian Elliott" wrote in message ... Thanks for any help. I use the sum display at the bottom of the window alot, and recently have been using the average-is it possible to display both, one right next to each other? I right-click to the left and right of it, but if I change, I don't add another one, just change the one that is there. I go between sum and average enough to that changing it is a bit of a hassle. It looks like there is enough space there to have average and sum right next to each other. Thanks again. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|