Садржај
Неко воли, али мени лично треба статусна трака само у 2-3 случаја:
- након филтрирања, приказује број преосталих вредности након избора
- када је изабран опсег, он приказује збир, просек и број изабраних ћелија
- у случају тешких датотека, можете видети напредак у поновном израчунавању формула у књизи.
Не толико за линију која заузима скоро целу ширину екрана и виси на њој све време. Хајде да покушамо да проширимо ову скромну листу и додамо јој још неколико корисних функција 🙂
Општи принципи за управљање статусном траком
Управљање статусном траком помоћу Висуал Басица је веома лако. Да бисте приказали свој текст у њему, можете користити једноставан макро:
Суб МиСтатус() Апплицатион.СтатусБар = "Привет!" Енд Суб
Након што га покренемо, добијамо:
Да бисте вратили првобитно стање статусне траке, биће вам потребан исти кратки „анти-макро“:
Суб МиСтатус_Офф() Апплицатион.СтатусБар = Фалсе Енд Суб
У основној верзији, као што видите, све је врло једноставно. Покушајмо сада да развијемо идеју…
Адреса изабраног опсега у статусној траци
У горњем левом углу прозора Екцел у траци формуле увек можете видети адресу тренутне ћелије. Али ако је изабран цео опсег, тада, нажалост, нећемо видети адресу за избор тамо – приказана је иста једна једина активна ћелија:
Да бисте решили овај проблем, можете користити једноставан макро који ће приказати адресу изабраног подручја у статусној траци. Штавише, овај макро би требало да се покрене аутоматски, са било којом променом избора на било ком листу - за то ћемо га ставити у руковалац догађаја СелецтионЦханге нашу књигу.
Отворите Висуал Басиц Едитор помоћу истоименог дугмета на картици развијач (Програмер) или пречице на тастатури Леви Алт+Ф11. Пронађите своју књигу у горњем левом углу панела Пројецт и отворите модул у њој двоструким кликом Ова књига (Ова радна свеска):
У прозору који се отвори, копирајте и налепите следећи макро код:
Привате Суб Воркбоок_СхеетСелецтионЦханге(БиВал Сх Ас Објецт, БиВал Таргет Ас Ранге) Апплицатион.СтатусБар = "Виделено: " & Селецтион.Аддресс(0, 0) Енд Суб
Сада, када се изабере било који опсег (укључујући више од једног!), његова адреса ће бити приказана у статусној траци:
Да бисте спречили спајање адреса неколико опсега изабраних помоћу Цтрл, можете додати мало побољшање – користите функцију Замени да зарезујете зарезом са размаком:
Привате Суб Воркбоок_СхеетСелецтионЦханге(БиВал Сх Ас Објецт, БиВал Таргет Ас Ранге) Апплицатион.СтатусБар = "Виделено: " & Реплаце(Селецтион.Аддресс(0, 0), ",", ", ") Енд Суб
Број изабраних ћелија у статусној траци
Када се изабере било који опсег, број непразних изабраних ћелија се подразумевано приказује на десној страни статусне траке. Понекад морате знати број додељених. Овај задатак се такође може извршити једноставним макроом за руковање догађајем књиге СелецтионЦханге, као у претходном примеру. Биће вам потребан макро као што је:
Приватна под Радна свеска_СхеетСелецтионЦханге(БиВал Сх као објекат, БиВал Таргет као опсег) Затамни ЦеллЦоунт као варијанта, рнг као опсег за сваки рнг у Селецтион.Ареас 'Итерација кроз све селекције РовсЦоунт = рнг.Ровс.Цоунт 'број редова рн ЦолумнсЦолум . Цоунт 'број колона ЦеллЦоунт = ЦеллЦоунт + РовсЦоунт * ЦолумнсЦоунт 'акумулира укупан број ћелија Следеће 'прикажи на статусној траци Апплицатион.СтатусБар = "Изабрано: " & ЦеллЦоунт & " ћелије" Крај под
Овај макро се креће кроз све области изабране Цтрл (ако их има више од једне), складишти број редова и колона у свакој области у променљиве РовсЦоунт и ЦолумнсЦоунт и акумулира број ћелија у променљивој ЦеллЦоунт, која се затим приказује у статусној траци. На послу ће изгледати овако:
Наравно, можете комбиновати овај и претходни макро да бисте истовремено приказали и адресу изабраног опсега и број ћелија. Треба да промените само један претпоследњи ред у:
Апплицатион.СтатусБар = "Изабрано: " & Замени(Избор.Адреса(0, 0), ",", ", ") & " - укупно " & ЦеллЦоунт & " ћелије"
Тада ће слика бити прилично дивна:
Па, мислим да схватате идеју. Предложите у коментарима – шта би још било корисно приказати у статусној траци?
- Шта су макрои, како функционишу, како их користити и креирати
- Погодан избор координата на Екцел листу
- Како сложене формуле учинити визуелнијим