Всем привет. Друзья, давненько к Вам не заходил. Но сегодня сделал для себя одну простенькую, но весьма удобную программу и решил поделится со старыми (и новыми))) друзьями.
И так... как уже известно с темы, суть программы заключается в быстрой навигации между всеми открытыми книгами и листами в них. Когда открыта 1-2 книги и в них 1-5 листов - то это не проблема, но когда открыто 15-20 книг, а в них еще и по 10-30 листов (руки б за такое оторвал ) - тут навигация усложняется.
Макрос сделан, понятное дело, на основе UserForms (скажу честно, у меня давно лежал в копилке макрос с простенькой навигацией по листам, откуда взял даже и не помню и вот решил его допилить и расширить на книги плюс дополнительныt усовершенствования).
Суть такова: При запуске макроса в верхнем окошке Вы видите все открытые книги, а в нижем - все листы в активной книге, по умолчанию выбран активный лист и активная книга.
Также, над каждым из окошек присутствует поле поиска, начиная вводить в которое текст - в listbox останется только то что ищите.
UserForm и Модуль закидываете в личную книгу макросов и кнопку выводим на панель быстрого доступа либо же на вкладку с личными макросами.
Надеюсь форма придется по вкусу тем кто работает с большим к-вом файлов, а в них листов.
Всем привет. Друзья, давненько к Вам не заходил. Но сегодня сделал для себя одну простенькую, но весьма удобную программу и решил поделится со старыми (и новыми))) друзьями.
И так... как уже известно с темы, суть программы заключается в быстрой навигации между всеми открытыми книгами и листами в них. Когда открыта 1-2 книги и в них 1-5 листов - то это не проблема, но когда открыто 15-20 книг, а в них еще и по 10-30 листов (руки б за такое оторвал ) - тут навигация усложняется.
Макрос сделан, понятное дело, на основе UserForms (скажу честно, у меня давно лежал в копилке макрос с простенькой навигацией по листам, откуда взял даже и не помню и вот решил его допилить и расширить на книги плюс дополнительныt усовершенствования).
Суть такова: При запуске макроса в верхнем окошке Вы видите все открытые книги, а в нижем - все листы в активной книге, по умолчанию выбран активный лист и активная книга.
Также, над каждым из окошек присутствует поле поиска, начиная вводить в которое текст - в listbox останется только то что ищите.
UserForm и Модуль закидываете в личную книгу макросов и кнопку выводим на панель быстрого доступа либо же на вкладку с личными макросами.
Надеюсь форма придется по вкусу тем кто работает с большим к-вом файлов, а в них листов.DJ_Marker_MC
Евгений, прекрасная штука, спасибо. Давно хотел что-то подобное себе сделать, да все руки не доходили. Только в файле у тебя кнопка нерабочая. Поскольку ты редко здесь бываешь, я взял на себя смелость поправить и положить файл с нормальной ссылкой. Да, еще чуть расширил окошки, а то плохо видно было.
Добавлено. Обнаружил, что в дебаг вываливаемся иногда.
Евгений, прекрасная штука, спасибо. Давно хотел что-то подобное себе сделать, да все руки не доходили. Только в файле у тебя кнопка нерабочая. Поскольку ты редко здесь бываешь, я взял на себя смелость поправить и положить файл с нормальной ссылкой. Да, еще чуть расширил окошки, а то плохо видно было.
Добавлено. Обнаружил, что в дебаг вываливаемся иногда._Boroda_
Евгений, спасибо, понравилось. После небольшого тестирования захотелось "мультипроцессности" и решил немного доработать Вот чего у мну получилось (в конце я немного поизвращался над формой )
Евгений, спасибо, понравилось. После небольшого тестирования захотелось "мультипроцессности" и решил немного доработать Вот чего у мну получилось (в конце я немного поизвращался над формой )krosav4ig
Да, интересная и полезная штука. Может и ошибаюсь, но не хватает кнопки обновления формы; если открыть файл после запуска формы, ее надо перезапускать.
Да, интересная и полезная штука. Может и ошибаюсь, но не хватает кнопки обновления формы; если открыть файл после запуска формы, ее надо перезапускать.Michael_S
_Boroda_, Ок, тут без вопросов. А вот дебагов кстати не ловил ни разу после того как сделал финалку. krosav4ig, задумка с прозрачностью интересная, но в то же время лично мне немного для глаз кажется тяжелой. Плюс при сворачивании excel, форма остается висеть на экране win. Если учесть Ваши с Сашей доработки, то прихожу к идеи что нужна кнопка с параметрами подстройки формы - высота/ширина/прозрачность, чтоб каждый мог себе подстроить как ему нравится, хотя тут тоже есть нюанс - как его потом зафиксировать чтоб осталось, так как подстроил под себя после закрытия excel.
Michael_S, об этом даже как то и не задумался, так как в открытом виде форма на постоянке по идее не нужна, а нажать на панеле быстрого доступа ее заново - не составит друда. Но предложение правильное с точки зрения универсальности.
Спасибо за отзывы
_Boroda_, Ок, тут без вопросов. А вот дебагов кстати не ловил ни разу после того как сделал финалку. krosav4ig, задумка с прозрачностью интересная, но в то же время лично мне немного для глаз кажется тяжелой. Плюс при сворачивании excel, форма остается висеть на экране win. Если учесть Ваши с Сашей доработки, то прихожу к идеи что нужна кнопка с параметрами подстройки формы - высота/ширина/прозрачность, чтоб каждый мог себе подстроить как ему нравится, хотя тут тоже есть нюанс - как его потом зафиксировать чтоб осталось, так как подстроил под себя после закрытия excel.
Michael_S, об этом даже как то и не задумался, так как в открытом виде форма на постоянке по идее не нужна, а нажать на панеле быстрого доступа ее заново - не составит друда. Но предложение правильное с точки зрения универсальности.
Sub test() With New IniFile .INIFileName = "d:\1.ini" .WritePrivateINIString 1, 2, 3 Debug.Print .GetPrivateINIString(1, 2) .WritePrivateINIString 4, 5, 6 Debug.Print .GetPrivateINIString(4, 5) End With End Sub
[/vba]
или в ini файл, например [vba]
Код
Sub test() With New IniFile .INIFileName = "d:\1.ini" .WritePrivateINIString 1, 2, 3 Debug.Print .GetPrivateINIString(1, 2) .WritePrivateINIString 4, 5, 6 Debug.Print .GetPrivateINIString(4, 5) End With End Sub
_Boroda_, krosav4ig, DJ_Marker_MC, Добрый день!!! Отличный материал. Но со временем появился вопрос ((((( Почему теперь как и раньше я не могу переходить с открытого файла (книги) на другой (((( Т.е. Раньше при наведении курсора на ярлык экселя (при этом открыты два-три документа) на панели задач. Мне не предлагается варианты выбора открытых книг (((( Я обязательно должен открыть (скаченный когда то файл) и воспользоваться им для перехода из одной книги в другую ((((. Как можно это исправить ((((
_Boroda_, krosav4ig, DJ_Marker_MC, Добрый день!!! Отличный материал. Но со временем появился вопрос ((((( Почему теперь как и раньше я не могу переходить с открытого файла (книги) на другой (((( Т.е. Раньше при наведении курсора на ярлык экселя (при этом открыты два-три документа) на панели задач. Мне не предлагается варианты выбора открытых книг (((( Я обязательно должен открыть (скаченный когда то файл) и воспользоваться им для перехода из одной книги в другую ((((. Как можно это исправить ((((lebensvoll
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
) - тут навигация усложняется.
