Күй жолағындағы пайдалы ақпарат

Біреу ұнайды, бірақ маған жеке күй жолағы тек 2-3 жағдайда қажет:

  • сүзгіден кейін ол таңдаудан кейін қалған мәндердің санын көрсетеді
  • ауқым таңдалғанда, ол таңдалған ұяшықтардың қосындысын, орташа мәнін және санын көрсетеді
  • ауыр файлдар болған жағдайда, сіз кітаптан формулаларды қайта есептеудің барысын көре аласыз.

Экранның бүкіл енін дерлік алып, оған үнемі ілінетін сызық үшін онша көп емес. Осы қарапайым тізімді кеңейтіп, оған тағы бірнеше пайдалы мүмкіндіктерді қосуға тырысайық 🙂

Күй жолағын басқарудың жалпы принциптері

Visual Basic көмегімен күй жолағын басқару өте оңай. Онда мәтінді көрсету үшін қарапайым макросты пайдалануға болады:

Sub MyStatus() Application.StatusBar = "Привет!" Аяқтау қосалқы

Оны іске қосқаннан кейін біз аламыз:

Күй жолағындағы пайдалы ақпарат

Күй жолағының бастапқы күйін қалпына келтіру үшін сізге бірдей қысқа «антимакрос» қажет:

Sub MyStatus_Off() Application.StatusBar = False End Sub

Негізгі нұсқада, көріп отырғаныңыздай, бәрі өте қарапайым. Енді идеяны дамытуға тырысайық ...

Күй жолағында таңдалған ауқымның мекенжайы

 Формула жолындағы Excel терезесінің жоғарғы сол жақ бұрышында сіз әрқашан ағымдағы ұяшықтың мекенжайын көре аласыз. Бірақ егер тұтас диапазон таңдалса, онда, өкінішке орай, біз онда таңдау мекенжайын көрмейміз – сол бір белсенді ұяшық көрсетіледі:

Күй жолағындағы пайдалы ақпарат

Бұл мәселені шешу үшін күй жолағында таңдалған аймақтың мекенжайын көрсететін қарапайым макросты пайдалануға болады. Сонымен қатар, бұл макрос кез келген парақтағы таңдаудағы кез келген өзгеріспен автоматты түрде іске қосылуы керек – бұл үшін біз оны оқиға өңдегішіне орналастырамыз. ТаңдауӨзгерту біздің кітабымыз.

Visual Basic өңдегішін қойындыдағы аттас түймені пайдаланып ашыңыз әзірлеуші (Әзірлеуші) немесе пернелер тіркесімдері Сол жақ Alt+F11. Жоба тақтасының жоғарғы сол жақ бұрышынан кітабыңызды тауып, ондағы модульді екі рет басу арқылы ашыңыз Бұл кітап (Бұл жұмыс дәптері):

Ашылған терезеде келесі макрокодты көшіріп, қойыңыз:

Private Sub Workbook_SheetSelectionChange(Нысан ретінде ByVal Sh, ауқым ретіндегі мақсат) Application.StatusBar = "Выделено: " & Selection.Address(0, 0) End Sub

Енді кез келген ауқым таңдалғанда (біреуден көп!) оның мекенжайы күй жолағында көрсетіледі:

Күй жолағындағы пайдалы ақпарат

Ctrl пернесі арқылы таңдалған бірнеше ауқымдардың мекенжайларының біріктірілуіне жол бермеу үшін кішкене жақсарту қосуға болады – Үтірді үтірмен бос орынмен ауыстыру үшін Ауыстыру функциясын пайдаланыңыз:

Private Sub Workbook_SheetSelectionChange(Нысан ретінде ByVal Sh, ауқым ретіндегі мақсат) Application.StatusBar = "Выделено: " & Ауыстыру(Selection.Address(0, 0), ",", ", ") End Sub

Күй жолағындағы таңдалған ұяшықтардың саны

Кез келген ауқым таңдалғанда, бос емес таңдалған ұяшықтардың саны әдепкі бойынша күй жолағының оң жағында көрсетіледі. Кейде сіз бөлінген нөмірді білуіңіз керек. Бұл тапсырманы алдыңғы мысалдағыдай SelectionChange кітап оқиғасын өңдеу үшін қарапайым макроспен де орындауға болады. Сізге макрос қажет болады:

Private Sub Workbook_SheetSelectionChange(Нысан ретінде ByVal Sh, Ауқым ретінде мақсатты) Көңілдетілген ұяшықтар саны Нұсқа ретінде, rng Selection.Areas ішіндегі әрбір rng үшін ауқым ретінде 'Барлық таңдаулар арқылы қайталау RowsCount = rng.Rows.Count 'жолдар саны ColumnsCountlumns =r . 'бағандар саны CellCount = CellCount + RowsCount * ColumnsCount 'ұяшықтардың жалпы санын жинақтау Келесі 'күй жолағында көрсету Application.StatusBar = «Таңдалған: « & CellCount & « ұяшықтар» End Sub

Бұл макрос барлық Ctrl таңдалған аумақтар (егер бірнеше болса), RowsCount және ColumnsCount айнымалыларындағы әр аймақтағы жолдар мен бағандар санын сақтайды және CellCount айнымалы мәніндегі ұяшықтар санын жинақтайды, содан кейін ол көрсетіледі. күй жолағында. Жұмыста ол келесідей болады:

Күй жолағындағы пайдалы ақпарат

Әрине, таңдалған ауқымның мекенжайын және ұяшықтар санын бір уақытта көрсету үшін осы және алдыңғы макростарды біріктіруге болады. Сізге тек бір соңғы жолды өзгерту керек:

Application.StatusBar = "Таңдалған: " & Ауыстыру(Selection.Address(0, 0), ",", ", ") & " - жалпы " & Ұяшық саны & " ұяшықтар"

Сонда сурет өте керемет болады:

Күй жолағындағы пайдалы ақпарат

Менің ойымша, сіз идеяны түсіндіңіз. Түсініктемелерде ұсыныңыз – күй жолағында тағы нені көрсету пайдалы болады?

  • Макростар дегеніміз не, олар қалай жұмыс істейді, оларды қалай пайдалану және жасау керек
  • Excel парағында ыңғайлы координаттарды таңдау
  • Күрделі формулаларды қалай көрнекі етуге болады

пікір қалдыру