Nyttig information i statuslinjen

Nogen kan lide, men jeg har personligt kun brug for en statuslinje i 2-3 tilfælde:

  • efter filtrering viser den antallet af resterende værdier efter valget
  • når et område er valgt, viser det summen, gennemsnittet og antallet af valgte celler
  • i tilfælde af tunge filer, kan du se fremskridtene i genberegning af formler i bogen.

Ikke så meget for en line, der fylder næsten hele skærmens bredde og hænger på den hele tiden. Lad os prøve at udvide denne beskedne liste og tilføje nogle flere nyttige funktioner til den 🙂

Generelle principper for styring af statuslinjen

Det er meget nemt at administrere statuslinjen med Visual Basic. For at vise din tekst i den, kan du bruge en simpel makro:

Sub MyStatus() Application.StatusBar = "Periv!" Slut Sub

Efter at have kørt den får vi:

Nyttig information i statuslinjen

For at gendanne statuslinjens oprindelige tilstand skal du bruge den samme korte "anti-makro":

Sub MyStatus_Off() Application.StatusBar = Falsk Slut Sub

I den grundlæggende version, som du kan se, er alt meget enkelt. Lad os nu prøve at udvikle ideen...

Adressen på det valgte område i statuslinjen

 I øverste venstre hjørne af Excel-vinduet i formellinjen kan du altid se adressen på den aktuelle celle. Men hvis et helt område er valgt, så vil vi desværre ikke se valgadressen der - den samme ene aktive celle vises:

Nyttig information i statuslinjen

For at løse dette problem kan du bruge en simpel makro, der viser adressen på det valgte område i statuslinjen. Desuden bør denne makro startes automatisk med enhver ændring i markeringen på ethvert ark - for dette vil vi placere den i hændelseshandleren Valg Ændre vores bog.

Åbn Visual Basic Editor ved at bruge knappen af ​​samme navn på fanen developer (Udvikler) eller tastaturgenveje Venstre Alt+F11. Find din bog i øverste venstre hjørne af projektpanelet, og åbn modulet i den ved at dobbeltklikke Denne bog (Denne arbejdsbog):

Kopier og indsæt følgende makrokode i vinduet, der åbnes:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Application.StatusBar = "Выделено: " & Selection.Address(0, 0) End Sub

Nu, når et område er valgt (inklusive mere end ét!), vil dets adresse blive vist i statuslinjen:

Nyttig information i statuslinjen

For at forhindre adresserne på flere områder valgt med Ctrl i at flette, kan du tilføje en lille forbedring – brug funktionen Erstat til at erstatte et komma med et komma med et mellemrum:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Application.StatusBar = "Выделено: " & Replace(Selection.Address(0, 0), ",", ", ") End Sub

Antal markerede celler i statuslinjen

Når et område er valgt, vises antallet af ikke-tomme valgte celler i højre side af statuslinjen som standard. Nogle gange har du brug for at kende antallet af tildelte. Denne opgave kan også udføres med en simpel makro til at håndtere SelectionChange-boghændelsen, som i det foregående eksempel. Du skal bruge en makro som:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Dim CellCount As Variant, rng As Range For Hver rng In Selection.Areas 'Gener gennem alle valg RowsCount = rng.Rows.Count 'antal rækker ColumnsCount = rng.Columns . Antal 'antal kolonner CellCount = CellCount + RowsCount * ColumnsCount 'akkumuler det samlede antal celler Næste 'visning i statuslinjen Application.StatusBar = "Valgt: " & CellCount & " celler" End Sub

Denne makro går gennem alle Ctrl-valgte områder (hvis der er mere end én), gemmer antallet af rækker og kolonner i hvert område i variablerne RowsCount og ColumnsCount og akkumulerer antallet af celler i CellCount-variablen, som derefter vises i statuslinjen. På arbejdet vil det se sådan ud:

Nyttig information i statuslinjen

Selvfølgelig kan du kombinere denne og de foregående makroer for at vise både adressen på det valgte område og antallet af celler på samme tid. Du behøver kun at ændre en næstsidste linje til:

Application.StatusBar = "Valgt: " & Erstat(Selection.Address(0, 0), ",", ", ") & " - total " & CellCount & " celler"

Så bliver billedet ret vidunderligt:

Nyttig information i statuslinjen

Nå, jeg tror, ​​du forstår ideen. Foreslå i kommentarerne - hvad ville ellers være nyttigt at vise i statuslinjen?

  • Hvad er makroer, hvordan de virker, hvordan man bruger og opretter dem
  • Praktisk koordinatvalg på et Excel-ark
  • Sådan gør du komplekse formler mere visuelle

Giv en kommentar