Ruzivo runobatsira mubhawa yemamiriro

Mumwe munhu anoda, asi ini pachangu ndinoda bhaa yemamiriro chete mune 2-3 kesi:

  • mushure mekusefa, inoratidza huwandu hwehuwandu hwasara mushure mekusarudza
  • kana huwandu hwasarudzwa, hunoratidza huwandu, hwepakati, uye nhamba yemasero akasarudzwa
  • mune inorema mafaera, unogona kuona kufambira mberi mukudzokorora mafomula mubhuku.

Kwete zvakanyanya kune mutsara unotora hunenge hupamhi hwese hwechidzitiro uye unorembera pairi nguva dzese. Ngatiedzei kuwedzera iyi ine mwero runyorwa uye tiwedzere mamwe mashoma anobatsira maficha kwairi 🙂

General misimboti yekutarisira iyo mamiriro bar

Kugadzirisa bhaa yemamiriro neVisual Basic iri nyore kwazvo. Kuti uratidze mavara ako mairi, unogona kushandisa macro akareruka:

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

Mushure mekumhanya, tinowana:

Ruzivo runobatsira mubhawa yemamiriro

Kuti udzorere iyo yekutanga mamiriro eiyo mamiriro bar, iwe unozoda imwechete pfupi "anti-macro":

Sub MyStatus_Off() Application.StatusBar = False End Sub

Mushanduro yekutanga, sezvauri kuona, zvese zviri nyore. Zvino ngatiedzei kukudziridza pfungwa…

Kero yenzvimbo yakasarudzwa mubhara yemamiriro

 Mukona yepamusoro yekuruboshwe yehwindo reExcel mune fomula bar, unogona kugara uchiona kero yesero iripo. Asi kana huwandu hwese hwasarudzwa, zvino, zvinosuruvarisa, hatizooni kero yekusarudza ipapo - iyo imwechete sero rinoshanda rinoratidzwa:

Ruzivo runobatsira mubhawa yemamiriro

Kuti ugadzirise dambudziko iri, unogona kushandisa iri nyore macro iyo inoratidza kero yenzvimbo yakasarudzwa mubhari yemamiriro. Uyezve, iyi macro inofanira kuvhurwa otomatiki, paine chero shanduko mukusarudzwa pane chero pepa - pane izvi tichaiisa mumubati wechiitiko. SelectionChange bhuku redu.

Vhura iyo Visual Basic Mharidzo uchishandisa bhatani rezita rimwe chete pane tab yokuvaka (Mugadziri) kana zvidimburiko zve keyboard Kuruboshwe Alt+F11. Tsvaga bhuku rako mukona yekumusoro kuruboshwe yeProjekti panhi uye vhura iyo module mairi nekudzvanya kaviri Iri bhuku (Bhuku Rebasa rino):

Muhwindo rinovhura, kopira uye unamate inotevera macro kodhi:

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

Ikozvino, kana chero huwandu hwasarudzwa (kusanganisira anopfuura imwe!), Kero yayo icharatidzwa mubhari yemamiriro:

Ruzivo runobatsira mubhawa yemamiriro

Kudzivirira kero dzezvikamu zvakati zvakasarudzwa neCtrl kubva pakubatanidza, unogona kuwedzera kuvandudza kudiki - shandisa Replace basa kutsiva comma ine comma ine nzvimbo:

Private Sub Workbook_SheetSelectionChange(ByVal Sh Sechinhu, ByVal Target As Range) Application.StatusBar = "Выделено: " & Tsiva(Sarudzo.Kero(0, 0), ",", ", ") End Sub.

Nhamba yemasero akasarudzwa mubhara yemamiriro

Kana chero rudzi rwakasarudzwa, nhamba yemasero asina chinhu akasarudzwa anoratidzwa kune rumwe rutivi rworudyi rwechimiro chechimiro nekukasira. Dzimwe nguva unoda kuziva nhamba yezvakagoverwa. Iri basa rinogona kuitwa zvakare nyore macro kubata iyo SelectionChange bhuku chiitiko, semumuenzaniso wapfuura. Iwe unozoda macro senge:

Private Sub Workbook_SheetSelectionChange(ByVal Sh Sechinhu, ByVal Target SeRange) Dim CellCount As Variant, rng As Range Yeimwe neimwe rng MuSarudzo.Nzvimbo 'Iterate kuburikidza nesarudzo dzese RowsCount = rng.Rows.Count 'nhamba yemitsara ColumnsCount = rng.Colums . Verenga 'nhamba yemakoramu CellCount = CellCount + RowsCount * ColumnsCount 'unganidza nhamba yese yemasero Next 'kuratidza mubhara remamiriro Application.StatusBar = "Yakasarudzwa: " & CellCount &" maseru" End Sub

Iyi macro inovhara munzvimbo dzese dzakasarudzwa neCtrl (kana paine dzinopfuura imwe), inochengeta huwandu hwemitsara nemakoramu munzvimbo imwe neimwe muRowsCount uye ColumnsCount zvinosiyana, uye inounganidza huwandu hwemasero muCellCount mutsauko, unobva waratidzwa. muStatus bar. Kubasa kuchaita seizvi:

Ruzivo runobatsira mubhawa yemamiriro

Ehe, iwe unogona kusanganisa izvi uye zvakapfuura macros kuratidza ese kero yeyakasarudzwa renji uye nhamba yemasero panguva imwe chete. Iwe unongoda kushandura mutsara wepenaltimate ku:

Application.StatusBar = "Yakasarudzwa: " & Tsiva(Sarudzo.Kero(0, 0), ",", ", ") & " - yakazara " & CellCount & " maseru"

Ipapo mufananidzo uchave wakanaka kwazvo:

Ruzivo runobatsira mubhawa yemamiriro

Zvakanaka, ndinofunga unowana zano. Ratidza mumashoko - chii chimwe chingave chinobatsira kuratidza mubhawa yemamiriro?

  • Chii macros, anoshanda sei, mashandisiro uye nekuagadzira
  • Yakanakira kuronga kusarudzwa pane Excel sheet
  • Maitiro ekuita mafomula akaomesesa anooneka

Leave a Reply