Zambiri zothandiza mu bar yamasitepe

Winawake ngati, koma ine ndekha ndimafunikira malo okhala ndi 2-3 milandu:

  • mutatha kusefa, imawonetsa kuchuluka kwazinthu zomwe zatsalira pambuyo posankha
  • mtundu ukasankhidwa, umawonetsa kuchuluka, avareji, ndi kuchuluka kwa maselo osankhidwa
  • pa nkhani ya owona heavy, mukhoza kuona kupita patsogolo mu recalculating mafomu m'buku.

Osati kwambiri kwa mzere womwe umatenga pafupifupi m'lifupi lonse la chinsalu ndikumapachikapo nthawi zonse. Tiyeni tiyese kukulitsa mndandanda wocheperako ndikuwonjezera zina zothandiza kwa iwo 🙂

Mfundo zazikuluzikulu zowongolera ma status bar

Kuwongolera malo okhala ndi Visual Basic ndikosavuta. Kuti muwonetse zolemba zanu momwemo, mutha kugwiritsa ntchito macro osavuta:

Sub MyStatus() Application.StatusBar = "Pitirizani!" Mapeto a Sub

Pambuyo pomaliza, timapeza:

Zambiri zothandiza mu bar yamasitepe

Kuti mubwezeretse chikhalidwe choyambirira cha kapamwamba, mudzafunika "anti-macro" yayifupi yofanana:

Sub MyStatus_Off() Application.StatusBar = False End Sub

M'mawonekedwe oyambira, monga mukuwonera, zonse ndizosavuta. Tsopano tiyeni tiyese kupanga lingaliro…

Adilesi yamtundu womwe wasankhidwa mu bar yamasitepe

 Pakona yakumanzere kwa zenera la Excel mu bar ya formula, mutha kuwona adilesi ya cell yomwe ilipo. Koma ngati mndandanda wonse wasankhidwa, ndiye, mwatsoka, sitiwona adilesi yosankhidwa pamenepo - selo limodzi lomwe likugwira ntchito likuwonetsedwa:

Zambiri zothandiza mu bar yamasitepe

Kuti muthane ndi vutoli, mutha kugwiritsa ntchito ma macro osavuta omwe amawonetsa adilesi yamalo omwe mwasankhidwa mu bar. Kuphatikiza apo, macro iyi iyenera kukhazikitsidwa yokha, ndikusintha kulikonse pamasamba aliwonse - chifukwa cha izi tidzayiyika pazowongolera zochitika. KusankhaChange buku lathu.

Tsegulani Visual Basic Editor pogwiritsa ntchito batani la dzina lomwelo pa tabu Woyambitsa (Wolemba Mapulogalamu) kapena njira zazifupi za kiyibodi Kumanzere Alt+F11. Pezani bukhu lanu pamwamba kumanzere ngodya ya Project gulu ndi kutsegula gawo mmenemo mwa kuwonekera kawiri Bukhu ili (Buku la Ntchito):

Pazenera lomwe limatsegulidwa, koperani ndikuyika ma macro code awa:

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

Tsopano, mtundu uliwonse ukasankhidwa (kuphatikiza opitilira imodzi!), Adilesi yake iwonetsedwa mu bar yoyimira:

Zambiri zothandiza mu bar yamasitepe

Kuti mupewe maadiresi amitundu ingapo osankhidwa ndi Ctrl kuti asaphatikizidwe, mutha kuwonjezera kusintha pang'ono - gwiritsani ntchito Replace ntchito kuti m'malo mwa koma ndi comma ndi malo:

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

Nambala ya ma cell osankhidwa mu bar yamasitepe

Mukasankha mtundu uliwonse, chiwerengero cha maselo osankhidwa opanda kanthu chikuwonetsedwa kumanja kwa kapamwamba kokhazikika. Nthawi zina muyenera kudziwa chiwerengero cha allocated. Ntchitoyi imathanso kukwaniritsidwa ndi macro osavuta kuthana ndi chochitika cha buku la SelectionChange, monga m'chitsanzo cham'mbuyomu. Mudzafunika macro ngati:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Dim CellCount As Variant, rng As Range for Every rng In Selection.Areas 'Iterate through all options RowsCount = rng.Rows.Count 'nambala ya mizere ColumnsCount = rng.Colum . Werengani 'nambala ya mipingo CellCount = CellCount + RowsCount * ColumnsCount 'unjikitse chiwerengero chonse cha maselo Kenako' onetsani mu bar yoyimira Application.StatusBar = "Osankhidwa: " & CellCount & " cell" End Sub

Izi zimadutsa m'madera onse osankhidwa ndi Ctrl (ngati zilipo zoposa imodzi), zimasunga chiwerengero cha mizere ndi mizati m'dera lililonse muzosintha za RowsCount ndi ColumnsCount, ndikusonkhanitsa chiwerengero cha maselo mu CellCount variable, yomwe imawonetsedwa. mu status bar. Pa ntchito zidzawoneka motere:

Zambiri zothandiza mu bar yamasitepe

Zachidziwikire, mutha kuphatikiza izi ndi ma macros am'mbuyomu kuti muwonetse ma adilesi omwe asankhidwa komanso kuchuluka kwa ma cell nthawi imodzi. Mungofunika kusintha mzere umodzi womaliza kukhala:

Application.StatusBar = "Osankhidwa: " & Bwezerani (Kusankha.Address(0, 0), ",", ", ") & " - chiwerengero " & CellCount & " maselo"

Kenako chithunzicho chidzakhala chodabwitsa kwambiri:

Zambiri zothandiza mu bar yamasitepe

Chabwino, ine ndikuganiza inu mukumvetsa lingaliro. Onetsani mu ndemanga - ndi chiyani chinanso chomwe chingakhale chothandiza kuwonetsera mu bar yowonetsera?

  • Kodi macros ndi chiyani, momwe amagwirira ntchito, momwe angagwiritsire ntchito ndikuzipanga
  • Kusankhidwa koyenera kogwirizanitsa pa pepala la Excel
  • Momwe mungapangire mafomu ovuta kukhala owoneka bwino

Siyani Mumakonda