Cov ntaub ntawv tseem ceeb hauv qhov xwm txheej bar

Ib tug neeg nyiam, tab sis kuv tus kheej xav tau lub xwm txheej bar tsuas yog hauv 2-3 rooj plaub:

  • tom qab filtering, nws qhia cov naj npawb ntawm qhov tseem ceeb uas tseem tshuav tom qab xaiv
  • thaum xaiv ntau yam, nws qhia cov lej, qhov nruab nrab, thiab tus lej ntawm cov cell xaiv
  • nyob rau hauv cov ntaub ntawv hnyav, koj tuaj yeem pom qhov kev nce qib hauv kev suav cov qauv hauv phau ntawv.

Tsis ntau npaum li cas rau ib txoj kab uas yuav luag tag nrho qhov dav ntawm qhov screen thiab dai rau nws txhua lub sijhawm. Cia peb sim nthuav cov npe me me no thiab ntxiv ob peb yam tseem ceeb rau nws 🙂

Cov ntsiab cai dav dav rau kev tswj cov xwm txheej bar

Tswj cov xwm txheej bar nrog Visual Basic yog ib qho yooj yim heev. Txhawm rau tso koj cov ntawv hauv nws, koj tuaj yeem siv cov macro yooj yim:

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

Tom qab khiav nws, peb tau txais:

Cov ntaub ntawv tseem ceeb hauv qhov xwm txheej bar

Txhawm rau kho qhov qub qub ntawm lub xwm txheej bar, koj yuav xav tau tib yam luv luv "anti-macro":

Sub MyStatus_Off() Application.StatusBar = False End Sub

Nyob rau hauv lub hauv paus version, raws li koj tau pom, txhua yam yog heev yooj yim. Tam sim no cia peb sim tsim lub tswv yim…

Chaw nyob ntawm qhov chaw xaiv nyob rau hauv qhov xwm txheej bar

 Nyob rau sab sauv sab laug ntawm Excel qhov rais hauv cov qauv bar, koj tuaj yeem pom qhov chaw nyob ntawm tes tam sim no. Tab sis yog tias tag nrho cov ntau yam raug xaiv, ces, hmoov tsis, peb yuav tsis pom qhov chaw xaiv nyob ntawd - tib lub xov tooj ntawm tes ua haujlwm tau tshwm sim:

Cov ntaub ntawv tseem ceeb hauv qhov xwm txheej bar

Txhawm rau daws qhov teeb meem no, koj tuaj yeem siv lub macro yooj yim uas yuav tso saib qhov chaw nyob ntawm thaj chaw xaiv hauv qhov xwm txheej bar. Ntxiv mus, qhov macro no yuav tsum tau pib ua haujlwm, nrog rau kev hloov pauv hauv kev xaiv ntawm ib daim ntawv - rau qhov no peb yuav muab tso rau hauv qhov kev tshwm sim. XaivXyooj peb phau ntawv.

Qhib Visual Basic Editor siv lub pob ntawm tib lub npe ntawm lub tab tsim tawm (Tus tsim tawm) los yog keyboard shortcuts Sab laug Alt + F11. Nrhiav koj phau ntawv nyob rau sab laug ces kaum ntawm lub Project vaj huam sib luag thiab qhib lub module hauv nws los ntawm ob-nias Phau ntawv no (Cov ntaub ntawv no):

Nyob rau hauv lub qhov rais uas qhib, luam thiab paste cov nram qab no macro code:

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

Tam sim no, thaum xaiv ntau yam (nrog rau ntau tshaj ib qho!), nws qhov chaw nyob yuav tshwm nyob rau hauv qhov xwm txheej bar:

Cov ntaub ntawv tseem ceeb hauv qhov xwm txheej bar

Txhawm rau tiv thaiv qhov chaw nyob ntawm ntau qhov chaw xaiv nrog Ctrl los ntawm kev sib koom ua ke, koj tuaj yeem ntxiv qhov kev txhim kho me me - siv qhov hloov pauv hloov pauv lub cim nrog lub cim nrog qhov chaw:

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

Tus naj npawb ntawm cov cell xaiv nyob rau hauv qhov xwm txheej bar

Thaum twg ib qho twg raug xaiv, tus naj npawb ntawm cov hlwb uas tsis yog khoob khoob tau tshwm sim nyob rau sab xis ntawm qhov xwm txheej bar los ntawm lub neej ntawd. Qee zaum koj yuav tsum paub cov naj npawb ntawm cov faib. Txoj hauj lwm no tseem tuaj yeem ua tiav nrog ib qho yooj yim macro los tswj qhov kev tshwm sim ntawm phau ntawv SelectionChange, zoo li hauv qhov piv txwv dhau los. Koj yuav xav tau macro zoo li:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Dim CellCount As Variant, rng As Range For each rng In Selection.Areas 'Iterate through all selections RowsCount = rng.Rows.Count 'number of row ColumnsCount = rng. . Suav 'number of columns CellCount = CellCount + RowsCount * ColumnsCount' accumulate tag nrho cov cell Next 'display in the status bar Application.StatusBar = "Selected: " & CellCount & " cells" End Sub

Qhov no macro loops los ntawm tag nrho cov Ctrl-xaiv thaj chaw (yog tias muaj ntau tshaj ib qho), khaws cov naj npawb ntawm kab thiab kab hauv txhua cheeb tsam hauv RowsCount thiab ColumnsCount sib txawv, thiab khaws cov xov tooj ntawm CellCount sib txawv, uas yog tom qab ntawd tso tawm. hauv qhov xwm txheej bar. Hauv kev ua haujlwm nws yuav zoo li no:

Cov ntaub ntawv tseem ceeb hauv qhov xwm txheej bar

Tau kawg, koj tuaj yeem ua ke qhov no thiab cov macros yav dhau los los tso saib ob qho chaw nyob ntawm qhov chaw xaiv thiab cov xov tooj ntawm tib lub sijhawm. Koj tsuas yog yuav tsum tau hloov ib kab kawg nkaus rau:

Application.StatusBar = "Selected: " & Replace(Selection.Address(0, 0), ",", ", ") & " - tag nrho " & CellCount & " cells"

Tom qab ntawd daim duab yuav zoo heev:

Cov ntaub ntawv tseem ceeb hauv qhov xwm txheej bar

Zoo, kuv xav tias koj tau txais lub tswv yim. Tawm tswv yim hauv cov lus - dab tsi ntxiv yuav pab tau los tso rau hauv qhov xwm txheej bar?

  • Dab tsi yog macro, lawv ua haujlwm li cas, siv thiab tsim lawv li cas
  • Kev xaiv kev sib koom ua ke yooj yim ntawm daim ntawv Excel
  • Yuav ua li cas kom cov qauv complex pom ntau dua

Sau ntawv cia Ncua