Noderīga informācija statusa joslā

Kādam patīk, bet man personīgi statusa josla ir nepieciešama tikai 2-3 gadījumos:

  • pēc filtrēšanas tas parāda vērtību skaitu, kas paliek pēc atlases
  • kad ir atlasīts diapazons, tiek parādīta atlasīto šūnu summa, vidējais rādītājs un skaits
  • smagu failu gadījumā grāmatā var redzēt formulu pārrēķināšanas gaitu.

Ne tik daudz par līniju, kas aizņem gandrīz visu ekrāna platumu un visu laiku karājas uz tās. Mēģināsim paplašināt šo pieticīgo sarakstu un pievienot tam vēl dažas noderīgas funkcijas 🙂

Vispārīgi statusa joslas pārvaldības principi

Statusa joslas pārvaldība ar Visual Basic ir ļoti vienkārša. Lai tajā parādītu savu tekstu, varat izmantot vienkāršu makro:

Sub MyStatus() Application.StatusBar = "Привет!" Beigt apakš

Pēc tā palaišanas mēs iegūstam:

Noderīga informācija statusa joslā

Lai atjaunotu sākotnējo statusa joslas stāvokli, jums būs nepieciešams tas pats īsais “antimakro”:

Sub MyStatus_Off() Application.StatusBar = False End Sub

Pamata versijā, kā redzat, viss ir ļoti vienkārši. Tagad mēģināsim attīstīt ideju…

Statusa joslā atlasītā diapazona adrese

 Excel loga augšējā kreisajā stūrī formulu joslā vienmēr varat redzēt pašreizējās šūnas adresi. Bet, ja ir atlasīts vesels diapazons, tad diemžēl atlases adresi mēs tur neredzēsim - tiek parādīta tā pati viena aktīvā šūna:

Noderīga informācija statusa joslā

Lai atrisinātu šo problēmu, varat izmantot vienkāršu makro, kas statusa joslā parādīs atlasītā apgabala adresi. Turklāt šis makro ir jāsāk automātiski, ar jebkādām izmaiņām atlasē jebkurā lapā — šim nolūkam mēs to ievietosim notikumu apdarinātājā. AtlaseMainīt mūsu grāmata.

Atveriet Visual Basic redaktoru, izmantojot cilnē esošo pogu ar tādu pašu nosaukumu attīstītājs (Izstrādātājs) vai īsinājumtaustiņus Kreisais Alt+F11. Atrodiet savu grāmatu projekta paneļa augšējā kreisajā stūrī un atveriet tajā esošo moduli, veicot dubultklikšķi Šī grāmata (Šī darba grāmata):

Atvērtajā logā kopējiet un ielīmējiet šādu makro kodu:

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

Tagad, kad ir atlasīts jebkurš diapazons (tostarp vairāk nekā viens!), tā adrese tiks parādīta statusa joslā:

Noderīga informācija statusa joslā

Lai vairāku ar Ctrl atlasīto diapazonu adreses netiktu apvienotas, varat pievienot nelielu uzlabojumu – izmantojiet funkciju Aizstāt, lai komatu aizstātu ar komatu ar atstarpi:

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

Atlasīto šūnu skaits statusa joslā

Ja ir atlasīts jebkurš diapazons, pēc noklusējuma statusa joslas labajā pusē tiek parādīts atlasīto šūnu skaits, kas nav tukšas. Dažreiz jums ir jāzina piešķirto skaits. Šo uzdevumu var veikt arī ar vienkāršu makro, lai apstrādātu SelectionChange grāmatas notikumu, kā tas ir iepriekšējā piemērā. Jums būs nepieciešams makro, piemēram:

Private Sub Workbook_SheetSelectionChange(ByVal Sh kā objekts, ByVal mērķis kā diapazons) Dim CellCount kā variants, rng kā diapazons katram rng sadaļā Selection.Areas 'Atkārtot visas atlases RowsCount = rng.Rows.Count 'rindu skaits rng.ColumnsCounts . Skaitīt 'kolonnu skaitu CellCount = CellCount + RowsCount * ColumnsCount 'uzkrāj kopējo šūnu skaitu Nākamais 'parādīt statusa joslā Application.StatusBar = "Atlasīts: " & CellCount & " šūnas" Beigu apakš

Šis makro cilpas cauri visiem ar Ctrl atlasītajiem apgabaliem (ja ir vairāk nekā viens), saglabā rindu un kolonnu skaitu katrā apgabalā mainīgajos RowsCount un ColumnsCount un uzkrāj šūnu skaitu mainīgajā CellCount, kas pēc tam tiek parādīts. statusa joslā. Darbā tas izskatīsies šādi:

Noderīga informācija statusa joslā

Protams, jūs varat apvienot šo un iepriekšējos makro, lai vienlaikus parādītu gan atlasītā diapazona adresi, gan šūnu skaitu. Jums ir jāmaina tikai viena priekšpēdējā rinda uz:

Application.StatusBar = "Atlasīts: " & Aizstāt(Selection.Address(0, 0), ",", ", ") & " - kopējais " & CellCount & " šūnas"

Tad attēls būs diezgan brīnišķīgs:

Noderīga informācija statusa joslā

Nu, es domāju, ka jūs sapratāt domu. Iesaki komentāros – ko vēl būtu lietderīgi parādīt statusa joslā?

  • Kas ir makro, kā tie darbojas, kā tos lietot un izveidot
  • Ērta koordinātu izvēle Excel lapā
  • Kā padarīt sarežģītas formulas vizuālākas

Atstāj atbildi