Gemiddelde weergave in statusbalk.

[Jan van Asseldonk]

Rechtsonder in de statusbalk krijg je standaard de som te zien van de geselecteerde getallen.
Je kunt, door met rechts op dit deel te klikken, ook kiezen voor min, max, aantal, etc.
Als ik kies voor gemiddelde komt er netjes het gemiddelde staan, alleen dit is niet meer volledig leesbaar omdat de tekst "Gemiddelde=" ervoor geplaatst wordt en deze is dus te lang.

Vraag: is het mogelijk om A: dit 'blok' breder te maken of B: de tekst "Gemiddelde=" in te korten tot bijv. "Gem.=" zodat het gemiddelde volledig getoond wordt.

(Excel 2002 SP2 met WinXP sp2)

 

[Jan van Asseldonk]

Inmiddels heb ik op meerdere forums gezocht en ben tot de conclusie gekomen dat het niet mogelijk is om de afmeting aan te passen.

Ik heb wel een noodoplossing gevonden om de gegevens die in de statusbalk weergegeven kunnen worden met een macro weer te geven.


Voor degene die hierin geïnteresseerd is, hier volgt de code.

Sub Statusbar_simulation()
' http://www.mvps.org/dmcritchie/statusbar.htm
Dim str As String, strcnt As String, _
strx As String, strcnta As String
If Application.Count(Selection.SpecialCells _
(xlCellTypeVisible)) >= 1 And _
Application.CountA(Selection.SpecialCells _
(xlCellTypeVisible)) > 1 Then
str = "SUM=" & _
Application.Sum(Selection.SpecialCells _
(xlCellTypeVisible)) & " on Status Bar"
strcnt = "Count Nums=" & _
Application.Count(Selection.SpecialCells(xlCellTypeVisible)) & " on Status Bar"
strcnta = "Count=" & _
Application.CountA(Selection.SpecialCells _
(xlCellTypeVisible)) & " on Status Bar"
strx = Chr(10) & " Average=" & _
Application.Sum(Selection.SpecialCells(xlCellTypeVisible)) _
/ Application.Count(Selection.SpecialCells(xlCellTypeVisible)) _
& Chr(10) & " Count=" & Application.CountA(Selection. _
SpecialCells(xlCellTypeVisible)) _
& Chr(10) & " Count Nums=" & Application.Count( _
Selection.SpecialCells(xlCellTypeVisible)) _
& Chr(10) & " Max=" & Application.Max(Selection. _
SpecialCells(xlCellTypeVisible)) _
& Chr(10) & " Min=" & Application.Min(Selection. _
SpecialCells(xlCellTypeVisible)) _
& Chr(10) & " Sum=" & Application.Sum(Selection. _
SpecialCells(xlCellTypeVisible)) _
& Chr(10) & _
" Status Bar reporting reflects visible cells when filtered."
Else
str = "Nothing would be reported for SUM="
strcnt = "Nothing would be reported for Count Nums="
strx = "Nothing would be reported on Status Bar"
End If

MsgBox "Actual Values:" & Chr(10) _
& Application.Sum(Selection.SpecialCells(xlCellTypeVisible)) _
& " Calculated SUM" _
& ", " & str & Chr(10) _
& Application.Count(Selection.SpecialCells(xlCellTypeVisible)) _
& " Numeric count" _
& ", " & strcnt & Chr(10) _
& Application.CountA(Selection.SpecialCells(xlCellTypeVisible)) _
& " Nonblank count" _
& ", " & strcnta & Chr(10) _
& Application.CountA(Selection.SpecialCells(xlCellTypeVisible)) _
- Application.Count(Selection.SpecialCells(xlCellTypeVisible)) _
& " text count" & Chr(10) & Chr(10) _
& "Status Bar Reporting (depends on choice):" & strx
End Sub

Deze is iets aangepast t.o.v. de gevonden macro.
Bovenstaande werkt ook in Excel97.

De orginele code staat op http://www.mvps.org/dmcritchie/excel/statusbar.htm#simulation

 

[Imod]

Misschien heb je hier wat aan Jan en kun je dit aanpassen naar eigen wensen.
http://members.home.nl/t.idema/excel/demo6.html

mvg Imod

 

[Jan van Asseldonk]

Bedankt Imod,

is in principe ongeveer gelijk aan wat ik gevonden had, maar dit is al vertaald, wel zo gemakkelijk en nog wat uitgebreider.
Ik maak er een invoegtoepassing van met knop op een eigen werkbalk en heb het dan altijd binnen bereik.
Het is alleen jammer dat je op deze manier niet gelijk tijdens het selecteren de uitkomst ziet.
Dit is op de statusbalk wel het geval.
Meestal geen probleem alleen bij gemiddelde komt er een te lange tekst voor staan.