Замрзните окна користећи ВБА
Недавно сам објавио на окнима за замрзавање у Екцелу, ево како то можете учинити помоћу ВБА:
Замрзни редове
Редови ("1: 1"). Изаберите АцтивеВиндов.ФреезеПанес = Тачно
Замрзни колоне
Опсег ("А: А"). Изаберите АцтивеВиндов.ФреезеПанес = Тачно
Замрзните редове и колоне
Опсег ("Б2"). Изаберите АцтивеВиндов.ФреезеПанес = Тачно
УнФреезе Панес
АцтивеВиндов.ФреезеПанес = Нетачно
Присилите радну свеску да сачува без оквира за замрзавање
Екцел нам омогућава да контролишемо ствари кроз догађаје. Овај чланак није детаљна расправа о томе шта су догађаји или њихове карактеристике. Уместо тога, даје пример догађаја радне књиге. То су догађаји који се одржавају на нивоу радне свеске, а не на одређеном радном листу.
Путем ВБА можемо контролисати шта се дешава на одређеним догађајима, на пример пре штампања или пре чувања. Један заједнички проблем са којим се суочавам је тај што неки људи са којима радим не воле датотеке са замрзнутим окнима.
Тако ћемо у овом чланку саставити неки код који ће проверити да ли су замрзнута окна укључена и ако је тако, неће сачувати датотеку. То значи да морам да га сачувам без окна за замрзавање - радујући колеге !!
Најважнија ствар у вези са радним свескама је да их треба сачувати на правом месту - на нивоу радне свеске.
Да бисте приступили нивоу радне свеске, следите доле наведене кораке:
1. Десним тастером миша кликните на Екцел радну свеску - погледајте код:
2. Ово ће приказати:
3. Двапут кликните на „Ова радна свеска“, а затим изаберите „Радна књига“ из првог падајућег менија са леве стране:
Видимо да се вредност са леве стране сада променила у „Отворено“ - са неким кодом за Отворени догађај радне свеске. Овај код ће нам омогућити да утврдимо шта се дешава када се радна свеска први пут отвори.
Међутим, желимо да контролишемо шта се дешава када сачувамо радну свеску. Зато промените десни падајући мени на „Пре чувања“. Екран ће сада изгледати овако:
Сада уносимо следећи код после декларације:
Ако је АцтивеВиндов.ФреезеПанес = Тачно, онда је мсгБок "Замрзни окна укључена - Датотека НИЈЕ САЧУВАНА" Одустани = Истина Крај Ако
Тако да комплетан код сада изгледа овако:
Привате Суб Воркбоок_БефореСаве (БиВал СавеАсУИ Као Боолеан, Откажи као Боолеан) Ако је АцтивеВиндов.ФреезеПанес = Тачно МсгБок "Замрзни окна су укључена - Датотека НИЈЕ САЧУВАНА" Одустани = Истина Прекини ако заврши Суб
Сада сачувајте датотеку и ОНДА активирајте Замрзни окна у било ком прозору. Затим - РЕСАВЕ датотеку. Појавиће се порука са поруком да је „Фреезе Панес“ укључено - и датотека није сачувана.
Заиста, датотека се неће сачувати све док се не уклоне окна за замрзавање.
