Макросы в excel как искать

Хитрости »

1 Май 2011              465170 просмотров

Что такое макрос и где его искать?

Скачать файл, используемый в видеоуроке:

  Tips_Macro_Basic_Video.xls (63,5 KiB, 4 006 скачиваний)

Наверное, многие слышали это слово «макрос«, но не все имеют точное представление что это, если заглянули на эту страничку.

Макрос

— это макрокоманда(так звучит в правильном переводе с англ.языка), содержащая последовательность действий, записанных пользователем. Запись производится с помощью встроенного в пакет Microsoft Office языка программирования — Visual Basic for Application(VBA).

Зачем же нужны макросы? А нужны они для того, чтобы избавить Вас от рутинного выполнения одних и тех же действий. Например, Вам каждый день приходиться удалять из ежедневных отчетов по несколько столбцов и добавлять новые строки для шапки и т.п. Скучно и утомительно. Вы просто можете записать один раз все эти действия макрорекордером, а в дальнейшем только вызывать записанный макрос и он все сделает за Вас. Что немаловажно, для использования макрорекордера и записи макроса не надо обладать никакими навыками программирования.
В этой статье:

• Подготовка к записи макроса
• Запись макроса
• Параметры записи макроса
• Воспроизведение макроса
• В каких файлах можно хранить макросы?

• Excel 2003:
  Сервис-Безопасность-Уровень макросов «Низкий»
• Excel 2007:
  Кнопка Офис—Параметры Excel (Excel Options)—Центр управления безопасностью (Trust Centr)—Параметры центра управления безопасностью (Trust Centr Settings)—Параметры макросов (Macro Settings)—Разрешить все макросы (Enable All Macros)
• Excel 2010:
  Файл (File)—Параметры (Options)—Центр управления безопасностью (Trust Centr)—Параметры центра управления безопасностью (Trust Centr Settings)—Параметры макросов (Macro Settings)—Разрешить все макросы (Enable All Macros)

После изменения параметров безопасности макросов необходимо перезапустить приложение Excel: закрыть его полностью и открыть заново. Только после этого изменения вступят в силу.

Прежде чем начать записывать макрос необходимо помнить следующее:

• Макрорекордер записывает АБСОЛЮТНО ВСЕ ваши действия – ошибки, прокручивание экрана, переключение между листами, выделение ячеек и т.д. Поэтому перед записью своих действий необходимо сначала тщательно продумать все свои действия, чтобы в дальнейшем записать только то, что действительно необходимо записать и в дальнейшем воспроизвести. Это сократит как сам код, так и время его выполнения
• Макрорекордер записывает действия выполненные только в пределах Microsoft Excel. Если вы переключитесь в другое приложение – действия в этой программе записаны не будут. Если закроете Excel – запись прекратится
• Макрорекордер может записать только те действия, которые можно проделать вручную(те, которые доступны для выполнения из меню и с панелей)
• Если во время кода вы совершили ошибочное действие и нажали кнопку отмены(Ctrl+Z) – отмененное действие не будет записано в макрос, как будто вы его просто не делали

Для пользователей Excel 2007-2010 и старше:

• Эта книга (This Workbook) – макрос будет записан в той же книге, из которой была запущена запись. Записанный макрос будет доступен из приложения только если книга открыта
• Новая книга (New Workbook) – будет создана новая книга, в которой записан макроса. Записанный макрос будет доступен из приложения только если книга открыта
• Личная книга макросов (Personal Macro Workbook) – самый интересный вариант. Если его выбрать, то макрос будет сохранен в отдельной книге PERSONAL.XLS (для Excel 2007 и выше — PERSONAL.XLSB). Макросы, записанные в эту книгу доступны из всех открытых книг Excel и эта книга подключается автоматически при запуске самого Excel. Т.е. однажды записав где-то макрос в эту книгу – он теперь будет доступен из любой книги независимо от того, открыта ли книга, из которой был записан макрос или нет. Изначально эта книга отсутствует и создается в момент первого обращения к ней (т.е. как только вы первый раз выбрали Сохранить в личную книгу макросов)

1. ПРИ ПОМОЩИ СОЧЕТАНИЯ КЛАВИШ: Alt+F8
   Этот способ универсальный и его можно использовать из любой версии Excel. Достаточно нажать сочетание клавиш Alt+F8 и выбрать нужный макрос из списка:
   
2. ВЫЗОВ ИЗ МЕНЮ:
   Excel 2007-2010 и старше: вкладка Разработчик (Developer)→ Макросы (Macros)
   Excel 2003: Сервис→ Макрос→ Макросы
3. НАЖАТИЕМ СОБСТВЕННОЙ КНОПКИ НА ЛИСТЕ:
   Можно разместить на листе собственную кнопку, по нажатии которой будет запускаться записанный макрос. Подробно этот процесс я описал в статье: Как создать кнопку для вызова макроса на листе
4. ПРИ ПОМОЩИ НАЗНАЧЕННЫХ МАКРОСУ ГОРЯЧИХ КЛАВИШ:
   Если вы перед записью назначили макросу сочетание клавиш, то вы также можете вызвать этот макрос и нажатием данного сочетания. Горячие клавиши макросу можно назначить и после записи: Alt+F8→ Выделяем нужный макрос→ Параметры (Options).
5. ПРИ НАСТУПЛЕНИИ ОПРЕДЕЛЕННОГО СОБЫТИЯ В ЛИСТЕ ИЛИ КНИГЕ:

   Прежде чем пробовать использовать этот метод рекомендуется изучить статью Что такое модуль? Какие бывают модули?Для этого сначала необходимо вставить код макроса в тело событийной процедуры (подробнее про событийные процедуры). Например, если выбрать процедуру листа Change, то в лист автоматически будет вставлена пустая процедура:

   Private Sub Worksheet_Change(ByVal Target As Range)
    
   End Sub

   Если ранее вами был записан код выделения и удаления двух столбцов – Макрос1:

   Sub Макрос1()
   '
   ' Макрос1 Макрос
   ' макрос удаляет столбцы C и D из активного листа
   '
   ' Сочетание клавиш: Ctrl+Shift+Q
   '
       Columns("C:D").Select
       Selection.Delete Shift:=xlToLeft
   End Sub

   То для выполнения это кода при наступлении события изменения на листе можно вставить вызов этого макроса:

   Private Sub Worksheet_Change(ByVal Target As Range)
       Call Макрос1
   End Sub

   или вставить сам код (без Sub и End Sub) внутрь процедуры Worksheet_Change:

   Private Sub Worksheet_Change(ByVal Target As Range)
       Columns("C:D").Select
       Selection.Delete Shift:=xlToLeft
   End Sub

• *.xls – формат книги Excel 97–2003 (поддержка VBA, макросов)
• *.xla – надстройка Excel 97–2003 (поддержка VBA, макросов)
• *.xlsx – формат книги Excel 2007 по умолчанию без поддержки макросов
• *.xlsm – книга Excel 2007 с поддержкой макросов
• *.xlsb – двоичный формат для больших объемов данных (с поддержкой VBA, макросов)
• *.xltx – шаблон книги Excel 2007 без поддержки макросов
• *.xltm – шаблон книги Excel 2007 с поддержкой макросов
• *.xlam – надстройка Excel 2007

Для смены формата файла его необходимо сохранить в другом формате:

• Excel 2007: Кнопка Офис —Сохранить как(SaveAs) -Выбрать необходимый формат файла
• Excel 2010: Файл(File) —Сохранить как(SaveAs) -Выбрать необходимый формат файла

Теперь несложно понять, что хранить макросы в версиях Excel 2007 и выше можно в форматах: xls, xla, xlsm, xlsb, xltm, xlsm.

Также см.:
Почему не работает макрос?
Как создать кнопку для вызова макроса на листе?
Select и Activate — зачем нужны и нужны ли?
Как ускорить и оптимизировать код VBA

Статья помогла? Поделись ссылкой с друзьями!

    Видеоуроки

Поиск по меткам



Access
apple watch
Multex
Power Query и Power BI
VBA управление кодами
Бесплатные надстройки
Дата и время
Записки
ИП
Надстройки
Печать
Политика Конфиденциальности
Почта
Программы
Работа с приложениями
Разработка приложений
Росстат
Тренинги и вебинары
Финансовые
Форматирование
Функции Excel
акции MulTEx
ссылки
статистика

Редактирование макроса

​Смотрите также​​On Error GoTo​ чего-то написать»​With ThisWorkbook​ на нужный вариант(дату)​ файл.bak есть то​ буду вручную запускать,​ находится ещё 1​ сохранена? Я создал​ только для чтения.​ которые пишете вручную)​ xlsx, xlsm, xlsb…​ и имя книги​ папка автозагрузки. Папка,​ но я попробовал​После этого макрос будет​Справка Microsoft Visual Basic​Примечание:​ er​End If​Application.Run («personal.xlsb!reserv»)​ лишнее — просто​

​ пусть создается файл1.bak​ найду способ решения​ попка Microsoft Office,​ новую книгу, зашёл​

​ Чтобы сохранить изменения,​​ кладите в файл​Natrium​ — рандомный набор​ дополняющая стандартную папку​

Изменение параметров безопасности макросов

​ туда вставить шаблоны​ доступен при каждом​или нажмите клавишу​

1. ​Мы стараемся как​​Dim LastSaved$, Backup$​​er:​​End With​​ удаляете.​​Ну либо как-то​​ — отпишу.​

   

2. ​ но в ней​​ туда в макросы,​​ сохраните книгу с​​ Персонал. Жмите Альт+F11​: Пробовал, выбирал, там​ символов — попробуй​​ автозагрузки XLStart, содержащую​ *.xlb и *.xlt​​ открытии Excel.​​ F1.​

   ​ можно оперативнее обеспечивать​​LastSaved = Wb.BuiltinDocumentProperties(«Last​End Sub​End Sub​Тут есть пример​ ещё.​Manyasha​

Редактирование макроса

1. ​ непонятная мне лабуда.​​ скопировал все макросы​​ новым именем или​​ — Контрл+R -​​ тип файла прописывается​​ разбери где что.​​ книги или другие​

2. ​ результата нет.​​Чтобы было проще вспомнить,​​Примечание:​ вас актуальными справочными​

3. ​ Save Time»)​​Private Sub Workbook_Open()​​Автоматизация заключается в​ и описание​

​Может кто сталкивался​​: Посмотрите в Файл-Параметры-Надстройки-Управление:»Отключенные​ Да и странно​ туда. Нажал сохранить​ в другом расположении.​​ ищите Персонал -​​ числовым значением. Но​​ И вот надумал​​ файлы, которые должны​Саня​

support.office.com

Запись макроса для открытия определенных книг при запуске Excel

​ что делает макрос,​​Мы стараемся как​ материалами на вашем​If Dir(Wb.Path &​Set app =​ том, что при​Иногда файлы ловят​ с таким?​ объекты»-Перейти.​ что версия для​ как — Макросы.xlam.​ «​ создавайте там модуль​ и это значение​ я создать макрос​ открываться автоматически при​: такие шаблоны в​ введите его описание​ можно оперативнее обеспечивать​ языке. Эта страница​ «excel_bak», vbDirectory) =​ Application​

​ каждом открытии Вашего​ неисправимые глюки(по разным​Задача вроде не​Вот здесь http://www.excelworld.ru/forum/2-2033-1#22368​ 32-хбитной системы записана​ После открыл файлик,​Зашёл в свойства,​ (или открывайте существующий)​ «не работает» при​ по своим функциям​ запуске Microsoft Excel,​

​ XLSTART вставишь, они​ в поле​ вас актуальными справочными​​ переведена автоматически, поэтому​​ «» Then MkDir​End Sub​ рабочего файла создается​

1. ​ причинам), и потом​​ особо сложная. ДУмаю​​ вроде бы такая​​ не в Program​​ где мне нужны​ действительно только чтение​​ и кладите в​​ вставке в код,​

2. ​ аналогичный пункту меню​​ и шаблоны, которые​​ и будут по​​Описание​​ материалами на вашем​​ ее текст может​​ (Wb.Path & «excel_bak»)​

3. ​и перезапустить Excel​​ резервная копия файла.​​ работавший долгое время​

​ и сам бы​ же проблема​ Files (x86).​ макросы. Там зашёл​

1. ​ и чтение и​​ него все то,​​ или я как-то​​ «Сохранить как…», зачем​​ должны быть доступны​

1. ​ умолчанию​​. Можно также оставить​​ языке. Эта страница​​ содержать неточности и​​Backup = Wb.Path​

2. ​fairylive​​Только обратите внимание​​ файл может просто​​ справился. Но пока​​fairylive​

3. ​Спасибо большое за​ в параметры-надстройки (у​ выполнение стоит галочка​

4. ​ что нужно. Если​ не так его​ спросите? Да для​ при создании книг.).​​УПОРНЫЙ​​ это поле пустым.​ переведена автоматически, поэтому​

5. ​ грамматические ошибки. Для​​ & «excel_bak» &​​:​

6. ​ на расширение файла​​ перестать открываться т.е.​​ не понимаю как​​: Всем привет! У​​ помощь!​ себя вкладку Разработчик​ во вкладке «безопастность».​ Персонала нет, то​ прописал…​ того чтобы можно​УПОРНЫЙ​:​Нажмите кнопку​ ее текст может​

7. ​ нас важно, чтобы​​ Replace(LastSaved, «:», «.»)​​krosav4ig​​ — у меня​​ RIP.​

8. ​ добавить такое событие​ меня случился нереальный​Manyasha​ я не нашёл)-поставил​Зашёл в «Изменить»​ сначала запишите любой​Юрий М​ было назначить его​

   ​:​Саня​ОК​ содержать неточности и​

support.office.com

Где хранятся Шаблоны и макросы Excel (Макрос для поиска используемых шаблонов и макросов)

​ эта статья была​​ & » «​, спасибо, походу дела​ оно​fairylive​ (после открытия любого​
​ облом. Сохранил файл​: А что с​ галочку напротив Макросы.xlam.​
​ поставил галочку «Полный​ макрос (см. п.1)​
​: Вот что у​ на какую-нибудь комбинацию​Serge_007​,​.​ грамматические ошибки. Для​ вам полезна. Просим​ & Wb.Name​ то что надо!​xlsb​
​: Это в каждый​ файла). Где должен​ с изменениями которых​ директорией Не пробовали​ Далее иду в​ доступ».​

​ — он появится.​​ меня записал рекордер​ клавиш.(Помнится мне в​

​,​​Я понял, о​​Откройте вкладку​​ нас важно, чтобы​
​ вас уделить пару​If Wb Is​Не совсем понятно​Также макрос reserv​ файл придётся вставлять​ макрос лежать?​

​ быть не должно.​​ туда ЛКМ перенести?​ макросы, но нигде​Снова пробую у​Roman777​

​ при Сохранить Как​​ Open/Libre Office наряду​​Перепробовал все, ничего​​ чем Вы говорите,​
​Файл​ эта статья была​ секунд и сообщить,​ Me Or Wb.IsAddin​ как работает. Можете​ — можно повесить​ этот макрос? На​al-Ex​ Пол дня (хорошо​

​Roman777​​ макросов не вижу​​ себя создать макрос​​:​
​ и с поддержкой​ с «Сохранить» [Ctrl+S],​ не понимаю что​
​ просто у Вас​, выберите пункт​ вам полезна. Просим​ помогла ли она​ Then Exit Sub​ пояснить немного код?​
​ на кнопку и​ автоматизацию не очень​: В личной книге​
​ хоть всего пол​:​ (должен ли я​

​ в личной книге​​_Boroda_​​ макросов (xlsm): ActiveWorkbook.SaveAs​​ есть и комбинация​
​ с этим шаблоном.​ Excel 20**, а​
​Открыть​ вас уделить пару​​ вам, с помощью​​If Wb.FullName <>​​Вот эта строчка​​ перед какой -​ похоже. Или я​​ макросов. PERSONAL.XLSB или​​ дня) работы на​​Manyasha​​ там где-нибудь их​ макросов. И снова​, Спасибо большое!​ Filename:=»D:DocExcelКнига107.xlsm», FileFormat:= _​ «Сохранить как…» [Ctrl+Shift+S],​ По прежнему создается​ у меня Excel​и выберите файлы,​ секунд и сообщить,​ кнопок внизу страницы.​ Wb.Name And Not​ должна заменять текущий​ то сложной операцией​​ не уловил что-то?​​ в надстройке.​
​ смарку. Давайте подумаем​
​, У меня Win7​ увидеть?).​​ пока Персонал закрыт,​​Roman777​ xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False​ а вот в​ книга открытая на​ 2003, поэтому расширения​ с которыми работаете​ помогла ли она​ Для удобства также​ SaveAsUI Then ‘And​ бэкап или нет?​ запускать​ Попозже попробую в​berya​ как можно сделать​

​ и на моём​​Manyasha​​ говориться о том,​​:​
​JayBhagavan​ Excel, к сожалению,​ третьем листе со​ такие но ничего​ каждый день. Они​ вам, с помощью​ приводим ссылку на​ MsgBox(«Сделать бэкап?», 36)​Backup = Wb.Path &​fairylive​ деле.​: Добрый день​
​ так чтобы такое​ компьютере в принципе​

​:​​ что он не​

​_Boroda_​​: В Excel горячая​​ такой нет). Получился​​ шрифтом Arial размером​
​ не работает по​

​ могут находиться в​​ кнопок внизу страницы.​

​ оригинал (на английском​​ = 6 Then​ «» & Replace(LastSaved,​: Да спасибо, я​

​Цитата​​Создает резервную копию​ предупредить в будущем.​ директории такой не​Вкладка Разработчик​ открыт. Открываю -​
​, При опробывании первого​ клавиша F12 -​

​ у меня вот​​ 10 пунктов. Скриншоты​ прежнему.​ разных местах. Чтобы​

excelworld.ru

Создание макроса для сохранения книги

​ Для удобства также​​ языке) .​Shell Join(Array(«cmd /c​
​ «:», «.») &​ именно так и​SLAVICK,​
​ файла в папке​ Такое уже не​ существует. И директории​в эксель 2007:​ всёравно пишет «Файл​ способа, возникла ошибка.​ сохранить как. Не​ такой код:​ до приемлемых размеров​УПОРНЫЙ​ выбрать несколько файлов​ приводим ссылку на​Чтобы отредактировать макрос, который​ copy «, Wb.FullName,​ » » &​ думал. Но ваш​13.12.2017 в 09:52,​ «_Резерв» в том​ первый раз случается.​ Documents and Settings​ Файл-Параметры-Основные поставить галку​ PERSONAL.xlsb нельзя сохранить:​ Я выбрал «Личная​ вижу смысла свой​Sub Save_Ass ()​ ужать не сумел,​:​ в одной папке,​ оригинал (на английском​ вложен в книге​ » «, Backup,​ Wb.Name​ вариант скорей подойдёт​ в сообщении №​ же каталоге где​ Но бывало спасало​ нет. У меня​ «Показывать вкладку разработчик».​ он доступен только​ книга макросов», мне​ диалог писать.​ Const iTitle =​ поэтому положил архив​Саня​
​ щелкните каждый из​ языке) .​ Microsoft Excel, используйте​ » /y»), «»»»)​Ещё при сохранении​ для людей которые​ 4 () Посмотрите​ и запускается файл​ автосохранение. Сейчас оно​ есть похожая директория​Создание надстройки:​ для чтения. Чтобы​ выскочило окошко «Личная​Natrium​ «Сохранение рабочей книги»​ сюда:​,​ них, удерживая нажатой​Предположим, что вы хотите​
​ редактор Visual Basic.​Do While Dir$(Backup)​ КАК выскакивает «Тут​ что-то понимают в​ на всякий случай​В модуль «Эта​ не помогло.​ C:UsersOfice123AppData (где Оfice123​при сохранении файла​
​ сохранить изменения, сохраните​ книга макросов в​: Спасибо Вам огромное!​
​ Const FilterList =​http://webfile.ru/5467099. Обещали хранить​Win 7. Папка​
​ клавишу SHIFT.​ записать макрос для​Важно:​ = «»​ можно чего-то написать».​
​ макросах и как​ тут:​ книга» помещаете:​

​Продумать такой случай​​ — имя моего​ с макросами выбрать​

​ книгу с новым​​ папке автозагрузки должна​ Вот уже 5лет​ «Книга Excel 97-2003​ 7 дней.​ Documents and Settings​Откройте вкладку​ открытия книг, которые​

​ Перед началом работы с​​DoEvents​ Так и должно​ минимум долго работают​c:UsersПОЛЬЗОВАТЕЛЬAppDataLocalMicrosoftOfficeUnsavedFiles​

​Private Sub Workbook_Open()​​ который и произошел​ юзера). Но в​тип​ именем или в​ оставаться открытой для​ пользую Excel разных​ (*.xls), *.xls,Книга Excel​Serge_007​ отказано в доступе​

​Разработчик​​ используете каждый день,​ макросами, необходимо включить​Loop​ быть?​ с одним и​иногда сохраняются даже​reserv​

​ у меня.​​ папке AppData в​Надстройка Excel .xlam​ другом расположении.»​ записи.». А После​ версий от ’97​

​ (*.xlsx), *.xlsx,Книга Excel​​: Обманули.​»Вообще-то в Windows​и нажмите кнопку​ при запуске Excel.​ вкладки «Разработчик». Подробнее​ElseIf SaveAsUI Then​И пожалуй стоит​ тем же файлом.​ сохраненные файлы.​End Sub​
​Я открыл файл.​ принципе нет папок​ (см. скрин в​

planetaexcel.ru

Сохранение макросов не в формате .xlsm (Макросы/Sub)

​Manyasha​​ выскочило второе окошко​
​ до ’10, не​ (макро) (*.xlsm), *.xlsm,Книга​УПОРНЫЙ​ 7 нет такой​Остановить запись​ Вы можете создать​ читайте вкладку «Разработчик».​’MsgBox «Тут можно​ сохранять эти бэкапы​ Изо дня в​Смотрел, там пусто.​в модуль1 (или​Сделал изменения.​ Excel и уж​ приложении).​:​
​ «Запись невозможна.»​ новичок, вроде бы,​ Excel (двоичная) (*.xlsb),​:​
​ папки, это всего​.​ макроса «Авто_открыть», чтобы​Для редактирования и запуска​ чего-то написать»​ в отдельную папку​ день. У меня​Что-то мне сдаётся​

​ любой другой:​​Нажал сохранить.​ тем более XLSTART​Подключить можно через​Roman777​А по второму​ даже вот до​ *.xlsb» Dim strName1​Serge_007​
​ лишь ярлык для​При закрытии Excel в​ сделать это. Вы​ макросов требуется временно​End If​ в той же​ по сути объём​ средствами экселя такое​КодSub reserv()​Закрыл файл.​ в директории AppData​ Разработчик-Надстройки-обзор-, либо Файл-Параметры-Надстройки-надстройки​, а с правами​ способу попробовал, Персонала​ макросов добрался, а​ As String strName1​

​,​​ совместимости со старыми​​ конечном итоге будет​​ также можете запускайте​

​ включить их.​​er:​​ папке где находится​​ работы такой что​ не сделать. Перехватывающий​Dim strPath As​Потом понял что​ есть 3 папки:​ Эксель (в самом​ у Вас что?​ не было…(​ про F12 не​ = «Книга» strName2​Переложил http://depositfiles.com/files/2lzpsx6t2​
​ программами».​ предложено сохранить изменения​ макрос автоматически при​

​На вкладке​​End Sub​ исходник (Или может​ один файл может​ скрипт какой-то мутить?​ String​ произошло что-то не​ Local; LocalLow; Roaming.​ низу окошка)-перейти-обзор​ Может доступ к​Roman777​ знал.​ = Application.GetSaveAsFilename(InitialFileName:=strName1, filefilter:=FilterList)​Serge_007​Documents and Settings​ в личной книге​ открытии книги.​Разработчик​Private Sub Workbook_Open()​ вообще в какую-то​ создаваться от 10​berya​Dim strDate As​ то. Файл надо​ Но когда я​Внимание!​ этой папке закрыт?​: Я создал в​Уважаемые администраторы, ответ​ If strName2 =​: http://www.excelworld.ru/forum/2-639-7234-16-1311447819​

​ находится по адресу​​ макросов. Нажмите кнопку​​Прежде чем начать, убедитесь,​​в группе​Set app =​ общую папку, например​ минут до 8​

​: fairylive,​​ String​​ было​​ глянул туда, мне​Макросы надстроек не​ Попробуйте переместить этот​ C:Program FilesMicrosoft Office​ получен, тему можно​ «False» Then MsgBox​Гость​ C:UsersИмя пользователяAppDataRoamingMicrosoftШаблоны​ «Да», чтобы макрос​ что на ленте​
​Код​ Application​ на сервере с​ часов. Несколько дней​Добрый день.​
​Application.ScreenUpdating = False​сохранить как​ как-то не пришло​
​ видны в списке​ файл куда-нибудь или​ 15rootoffice15xlstart эксельфайлик вручную.​ закрыть.​ prompt:=»Сохранение отменено», Title:=iTitle​: подскажите пожалуйста, на​У меня там​ запускался при каждом​ доступна вкладка​нажмите кнопку​End Sub​ рэйдмассивом, чтобы повысить​ — исключительная редкость.​Создаете файл personal.xlsb​strPath = ThisWorkbook.Path​!​

​ в голову куда​​ доступных макросов (по​​ переименовать, например в​​ назвал personal.xls. При​Roman777​ Else ActiveWorkbook.SaveAs Filename:=strName2​ компе нету папки​ лежит только Normal.dot​ запуске Excel.​Разработчик​Безопасность макросов​

​fairylive​​ шансы выживания файлов).​ Но здесь тогда​ — помещаете его​If Len(Dir(strPath &​Разумеется никаких копий​ я могу там​ крайней мере, я​ PERSONAL111.xlsb​ открытой данной книге,​

​: Добрый день!​​ End If End​ шаблоны? (​ шаблон Ms Word.​Каждый раз при запуске​. Если ее нет,​​.​​: Всплыл БАГ. При​
​ А то слишком​ пользователи сами создают​ в папку …..AppDataRoamingMicrosoftExcelXLSTART​ «_Резерв», vbDirectory)) =​ автосохранения не сохранилось.​ создать такую (XLSTART)​ их не увидела),​
​Roman777​​ вродебы я могу​Раньше я мог​ Sub​

​IgorGo​​Serge_007​​ Excel автоматически будут​​ выполните указанные ниже​В разделе​ работе с сетевыми​ много копий появляется​ резервные копии.​В модуль сохраняете​ 0 Then MkDir​ Прошёлся recuva -​ папку. Там в​ т.е. запускать их​: В папку через​ сохранять макросы в​ сохранять свои макросы,​Вот только сохраняет​: даже не знаю…​: Для​ открываться книги, включенные​ действия.​Параметры макросов​ файлами. В связи​ в текущей папке,​krosav4ig​Sub reserv()​ strPath & «_Резерв»​ пусто. Искал в​ основном временные файлы​

​ можно только из​​ сохранить как не​​ личную книгу. Но​​ не сохраняя файл​ он коректно только​ то-ли страна такая,​
​Excel 2003​​ в макрос.​Откройте вкладку​​выберите параметр​​ с отсутствием админских​ если поставить это​: В PERSONAL.XSLB в​
​Dim strPath As​On Error Resume​ папке где лежит​ и кэш, мне​
​ редактора VBA (Alt+F11).​​ получается, права действительно​ когда уже закрываю​ в расширении .xlsm​ книги в формате​ то-ли еще чего​:​УПОРНЫЙ​Файл​
​Включить все макросы (не​​ прав. Появляется ошибка​ дело на автомат​ модуль ЭтаКнига​ String​ Next​​ сам файл и​​ так кажется).​
​Личная книга​ словно ограничены. Но​ свой файл. Потом​ (По-моему, макросы сохранялись​ .xls (97-2003) и​

​ — ничего на​​Хранение стандартных шаблонов книг​​: Для поиска папки​​и выберите пункт​ рекомендуется, возможен запуск​ что нет прав​
​ (имею ввиду если​Private WithEvents app As​Dim strDate As​x = GetAttr(strPath)​ в папке автосохранения​
​Manyasha​: мне кажется Вы​ когда переношу файлик​ пытаюсь закрыть файл​ куда-то вне файла​ .xlsx (2007-2010), а​ месте не улежит.​ и листов​ автозагрузки (здесь я​Параметры​ опасной программы)​ если попытаться сохранить.​ убрать всплывающее окно​ Application​ String​ And 0​ Excel. В интернете​:​ не ту папку​ с любого места​ Персонал с сохранением.​
​ самого, поскольку в​ при попытке сохранить​

​может на соседнем​​Если шаблон с​ нашел мою Personal.xls)​, а затем —​

​, а затем нажмите​​ Плюс в чужих​​ с вопросом Сделать​​Private Sub app_WorkbookBeforeSave(ByVal​Dim x​If Err =​ пишут что если​Roman777​ используете, положите Вашу​ в папку xlstart​ Он мне говорит,​ окошке выбора макросов​ книгу в .xlsb​ компьютере поискать​ именем​ добрые люди подсказали​ категорию​ кнопку​ папках появляется папка​ бэкап).​ Wb As Workbook,​Dim FileNameXls​ 0 Then​ бы я перезаписал​, посмотрела дома (стоит​ ЛКМ (или создайте)​ то проблем нет​ что либо путь​ была ссылка «…PERSONAL…Имя​ и .xlsm дает​Alex_ST​

​Book.xlt​​ макрос​​Настроить ленту​​ОК​ excel_bak даже если​fairylive​​ ByVal SaveAsUI As​

​Application.ScreenUpdating = False​​strDate = Format(Now,​ его или удалил​​ 8-ка), ЛКМ лежит​

​ в​​ вообще.​ не существует, либо​ макроса». Но при​ ошибку:​: На Vista и​или​MsgBox «Папка автозагрузки​.​.​ выбором было сохранить​:​ Boolean, Cancel As​strPath = ActiveWorkbook.Path​ «yyyy_mm_dd_hh-mm»)​ — шансы бы​ здесь:​C:Documents and SettingsUserApplication DataMicrosoftExcelXLSTART​Manyasha​ файл используется где-то​ открытии любого файла​

​При ручном введении​​ Win7: C:Users&&&&&AppDataRoamingMicrosoftШаблоны (&&&&&​Sheet.xlt​ XLStart находится здесь​В разделе​Предупреждение:​

​ как.​​berya​ Boolean)​
​If Len(Dir(strPath &​FileNameXls = strPath​ были. А так​

excelworld.ru

Макрос автосохранения файлов Excel (Макросы/Sub)

​C:Users\AppDataRoamingMicrosoftExcelXLSTART​​.​: Попробуйте разобраться с​ системой, либо файл​ эксель на данном​ расширения — та​ — имя пользователя)​создан и сохранен​ :» & _​Настройка ленты​ Для защиты от запуска​Так же при​, сделал как вы​On Error GoTo​ «_Резерв», vbDirectory)) =​ & «_Резерв» &​ ничего не поделаешь.​Hugo​
​Если на счет​ правами, попросите системного​ с таким именем​
​ компьютере, я мог​
​ же ошибка.​
​Natrium​
​ в папке​
​vbNewLine & Application.StartupPath,​в поле​ потенциально опасных программ​ работе с сетевыми​​ сказали — поместил​​ er​
​ 0 Then MkDir​ Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) -​Что-то подобное делается​: У меня на​ папки я ошибаюсь,​ администратора открыть Вам​ уже существует (хотя​ сразу же без​Подскажите пожалуйста какой​: Доброго времени суток,​XLStart​ , «»​Основные вкладки​ после окончания работы​
​ файлами появляются тормоза​ тоже в книгу​Dim LastSaved$, Backup$​ strPath & «_Резерв»​ 5) & «_»​ в автокаде. Там​ семёрке тут:​ попробуйте удалить Вашу​ доступ на изменение​ в каталоге C:Program​ импорта увидеть и​ выход из этой​ уважаемые форумчане!​, то​Но вновь созданный​
​установите флажок​ с макросами рекомендуется​ при закрытии файла.​
​ Personal.xlsb (сейчас там​LastSaved = Wb.BuiltinDocumentProperties(«Last​
​On Error Resume​
​ & strDate &​ всегда есть копия​c:Program FilesMicrosoft OfficeOffice14XLSTARTPERSONAL.xlsb​ ЛКМ и создать​
​ файла​ FilesMicrosoft Office 15rootoffice15xlstart​ воспользоваться макросом)​ ситуации.​
​Наперед извиняюсь, если​Microsoft Excel​
​ и помещенный в​Разработчик​
​ вернуть настройки, отключающие​ Причём даже если​ только ваш код).​ Save Time»)​ Next​ «.xlsb»​ — bak рядом​Roman777​ заново​

​Personal.xlsb​​ только 1 файл​Сейчас же макросы​P.S. И еще​

​ оффтоп, шерстил форум​​использует его для​
​ эту книгу шаблон​.​ все макросы.​ просто зайти ничего​После открытия файла​
​Backup = Wb.Path​x = GetAttr(strPath)​
​ActiveWorkbook.SaveCopyAs Filename:=FileNameXls​
​ с оригиналом. То​
​: Смотрел невнимательно, нашёл​
​Roman777​.​
​ Персонал- созданный мной).​
​ сохраняются только если​ — как прописать​
​ но не нашел.​ создания новых стандартных​
​ Excel11.xlb (пробовал и​
​Нажмите кнопку​
​На вкладке​ не сделать (просто​ спотыкается на строчке​ & «» &​
​ And 0​Else​
​ есть предыдущая копия​ папку, лежит она​
​:​Или, как альтернативный​
​ В общем, не​ я сохраняю в​
​ по умолчанию какую-то​Очень надеюсь на​ книг (Загружаемая по​ Книга.xlt) не работает.​ОК​Разработчик​
​ посмотреть) и выйти.​
​strPath = ActiveWorkbook.Path​
​ Replace(LastSaved, «:», «.»)​If Err =​
​MsgBox «Ошибка сохранения!!!!»,​
​ файла до нажатия​
​ тут: C:UsersOfice123AppDataRoamingMicrosoftExcelXLSTART. Удалил​

​Manyasha​​ вариант, можно все​ получается сохранить файл​
​ расширении .xlsm.​​ папку, на которой​​ вашу помощь вот​
​ умолчанию книга. Новая​ Я пробовал вставить​
​.​в группе​UPD. Тормоза не​Причем 1 раз​ & » «​ 0 Then​ vbCritical​ кнопки сохранить. Плюс​ PERSONAL зашёл в​, Спасибо (плюсики почему-то​ Ваши макросы сохранить​
​ персонал. А без​Можно ли как-то​
​ всегда будет открываться​ в такой ситуации.​ несохраненная книга, которая​ созданные мною шаблоны​Чтобы при запуске Excel​Код​ связаны с макросом​

​ открывает с ошибкой​​ & Wb.Name​strDate = Format(Now,​End If​ там очень хорошо​ файл новый, создал​ у меня не​ в пустом файле​ открытия данного файла,​​ снова сделать так,​​окно вызваное через​
​ Пришлось мне работать​ отображается при запуске​ во все найденные​ автоматически открывались книги,​нажмите кнопку​
​ или файлом personal.xlsb​
​ второй раз нормально.​If Wb Is​
​ «yyyy_mm_dd_hh-mm»)​
​Application.ScreenUpdating = True​ продуманное автосохранение. Из​ макрос в личную​ ставятся).​

​ как надстройку (расширение​​ возникает та же​
​ чтобы при открытии​
​ Application.GetSaveAsFilename (например «Мои​ в одной учетной​ Microsoft Excel. Эта​
​ на компьютере папки​
​ выполните указанные ниже​
​Макросы​ - удалял его​
​ Но бэкапы не​ Me Or Wb.IsAddin​
​FileNameXls = strPath​
​End Sub​
​ темпа можно надёргать​
​ книгу - создался​
​Действительно, при включении​ .xlam) и добавить​ проблема что описал​ любого экселевского файла​
​ документы")​ программе, а там,​
​ книга отображается, только​ папки XLStart.​
​ действия.​.​
​ и ничего не​ делаются.​
​ Then Exit Sub​ & "_Резерв" &​SLAVICK​ различные копии файла​ новый PERSONAL в​ макросов через надстройку,​
​ ее в Эксель:​
​ в сообщении №4.​
​ не было необходимости​Юрий М​
​ для удобства, любые​
​ если в папку​
​Нельзя ли усовершенствовать​
​Откройте вкладку​В поле​ менялось. При этом​
​fairylive​
​If Wb.FullName <>​
​ Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) -​
​: Посмотрите на всякий​
​ автосохранённые в разное​
​ указанном ранее пути.​ макросы можно увидеть​Разработчик-Надстройки-Обзор​Manyasha​ заново импортировать макросы,​
​: А не пробовали​ данные можно выгрузить​ XLStart не помещены​ этот макрос чтобы​​Разработчик​
​Имя макроса​ файлы xlsx работают​: Вот подправил -​ Wb.Name And Not​ 5) & «_»​ случай тут:​

​ время в течении​​ Сохранил я туда​ только в окне​(найти Вашу надстройку)​: Назовите​ А сразу воспользоваться​ записать сохранение макрорекордером?​ в Excel. Очень​ другие книги.) или​ он показывал еще​и нажмите кнопку​щелкните макрос, который​ нормально. xls при​ работает как я​ SaveAsUI And MsgBox(«Сделать​ & strDate &​c:Users​ дня.​ макросы свои. Вроде​ редактора VBA.​ и поставить галочку​PERSONAL.XLSB​ ими?​

​Natrium​​ полезная функция, скажу​ для вставки новых​
​ и откуда Excel​Запись макроса​
​ нужно отредактировать.​ выходе подвисают секунд​ и хотел. Создаются​ бэкап?", 36) =​ ".xlsb"​
​ПОЛЬЗОВАТЕЛЬ​Excel 2013 русский​
​ всё норм. Едиственное,​
​А что касается​ напротив нее.​
​, и сохранять нужно​_Boroda_​: Сохранял, только рекордер​ я вам, только​ листов. Папка​
​ берет шаблон вновь​.​Нажмите кнопку​
​ на 10. Возможно​ бэкапы Excel в​ 6 Then​ActiveWorkbook.SaveCopyAs Filename:=FileNameXls​AppDataLocalMicrosoftOfficeUnsavedFiles​
​ у меня если​ почему-то при запуске​ не той папки,​Roman777​
​ не всю Вашу​: 1. Когда (если)​
​ сохраняет файл с​
​ вот по умолчанию​
​XLStart​
​ создаваемой книги.​В поле​
​Изменить​
​ связано с последним​
​ отдельную папку в​
​Shell Join(Array("cmd /c​
​Else​иногда сохраняются даже​
​ что.​
​ экселя, видимо, PERSONAL.xlsb​

​ мне вообще не​​:​​ книгу, а только​​ записываете макрос (макрорекодером),​ каким-то одним расширением​
​ книга с данными​обычно находится в:​Саня​
​Имя макроса​, чтобы открыть редактор​ декабрьским обновлением винды.​
​ той же папке​ copy ", Wb.FullName,​MsgBox "Ошибка сохранения!!!!",​ сохраненные файлы.​Мне видится такое​
​ автоматически не запускается.​ нравится как записалась​Manyasha​ PERSONAL.XLSB.​ то перед записью​
​ (либо .xls, либо​ сохраняется в папке​C:Program FilesMicrosoft OfficeOffice11XLStart​: C:Documents and SettingsloginApplication​введите​ Visual Basic.​ В инете чувак​ где исходник.​ » «, Backup,​ vbCritical​А вообще -​ решение:​ Только если запущу​ моя лицензионная эксель-ка.​, В том то​Roman777​ у Вас вываливается​ .xlsb), а я​ Temp, и изменить​Для использования файлов​

​ DataMicrosoftШаблоны​​Auto_Open​​Совет:​​ один писал на​Private WithEvents app As​ » /y»), «»»»)​End If​ лучший способ отката​
​Открывается файл.​ этот файл вручную,​
​ Исполнительный экзешник находится​
​ и дело, у​:​ окошко, там есть​ хочу чтобы был​ это никак не​

​ шаблонов (с расширением​​УПОРНЫЙ​.​ Для получения справки во​ англоязычном форуме что​ Application​Do While Dir$(Backup)​Application.ScreenUpdating = True​
​ - всегда сохранять​Сразу автоматом сохраняется​
​ могу увидеть личную​ по пути C:Program​ меня админская учётка​Manyasha​ пункт "Сохранить в"​
​ выбор.​ возможно. В результате​
​XLT​
​:​В списке​
​ время работы в​ у него файлы​Private Sub app_WorkbookBeforeSave(ByVal​ = ""​
​End Sub​ файлы как новые​ как файл.bak -​ книгу макросов в​ FilesMicrosoft Office 15rootoffice15,​
​ (и единственная на​, При попытке сохранить​ - выбираете там​
​Юрий М​ - одно неверное​), хранящихся в сети,​Саня​Сохранить в​
​ редакторе Visual Basic​ офиса накрылись. Но​ Wb As Workbook,​DoEvents​
​В модуль "Эта​ - с добавлением​
​ причём без какого-то​
​ экселе.​
​ в папке office15​
​ компьютере). Попробовал с​ PERSONAL.XLSB выскочила надпись​
​ "Личная книга макросов"​
​: Так выбирайте при​
​ "закрытие", и весь​
​ это размещение указывается​
​,​выберите пункт​
​ в меню​

​ я сейчас откатил​​ ByVal SaveAsUI As​Loop​ книга» файла с​ текущей даты и​ участия пользователя.​Roman777​ уже находилась папка​ надстройками. Как конкретно​ «Файл PERSONAL.xlsb нельзя​2. Уже записанные​ записи — там​ отчет канул в​
​ в качестве дополнительной​В этой папке​Личная книга макросов​Справка​ это обновление и​ Boolean, Cancel As​ElseIf SaveAsUI Then​ которым Вы работаете​
​ времени — потом​Если файл открывается​: Всем спасибо большое​ XLSRART. А вообще​ должна надстройка быть​ сохранить: он доступен​ макросы (или те,​ большой выбор: и​ Лету, да еще​ папки автозагрузки (Другая​ у меня пусто,​.​выберите команду​ тормоза не пропали.​ Boolean)​MsgBox «Тут можно​КодPrivate Sub Workbook_Open()​ легко можно откатится​ повторно а уже​ за участие. Пока​

excelworld.ru

​ в Program files​

Поиск какого-либо значения в ячейках Excel довольно часто встречающаяся задача при программировании какого-либо макроса. Решить ее можно разными способами. Однако, в разных ситуациях использование того или иного способа может быть не оправданным. В данной статье я рассмотрю 2 наиболее распространенных способа.

Поиск перебором значений

Довольно простой в реализации способ. Например, найти в колонке «A» ячейку, содержащую «123» можно примерно так:

Sheets("Данные").Select
For y = 1 To Cells.SpecialCells(xlLastCell).Row
    If Cells(y, 1) = "123" Then
        Exit For
    End If
Next y
MsgBox "Нашел в строке: " + CStr(y)

Минусами этого так сказать «классического» способа являются: медленная работа и громоздкость. А плюсом является его гибкость, т.к. таким способом можно реализовать сколь угодно сложные варианты поиска с различными вычислениями и т.п.

Поиск функцией Find

Гораздо быстрее обычного перебора и при этом довольно гибкий. В простейшем случае, чтобы найти в колонке A ячейку, содержащую «123» достаточно такого кода:

Sheets("Данные").Select
Set fcell = Columns("A:A").Find("123")
If Not fcell Is Nothing Then
    MsgBox "Нашел в строке: " + CStr(fcell.Row)
End If

Вкратце опишу что делают строчки данного кода:
1-я строка: Выбираем в книге лист «Данные»;
2-я строка: Осуществляем поиск значения «123» в колонке «A», результат поиска будет в fcell;
3-я строка: Если удалось найти значение, то fcell будет содержать Range-объект, в противном случае — будет пустой, т.е. Nothing.

Полностью синтаксис оператора поиска выглядит так:

Find(What, After, LookIn, LookAt, SearchOrder, SearchDirection, MatchCase, MatchByte, SearchFormat)

What — Строка с текстом, который ищем или любой другой тип данных Excel

After — Ячейка, после которой начать поиск. Обратите внимание, что это должна быть именно единичная ячейка, а не диапазон. Поиск начинается после этой ячейки, а не с нее. Поиск в этой ячейке произойдет только когда весь диапазон будет просмотрен и поиск начнется с начала диапазона и до этой ячейки включительно.

LookIn — Тип искомых данных. Может принимать одно из значений: xlFormulas (формулы), xlValues (значения), или xlNotes (примечания).

LookAt — Одно из значений: xlWhole (полное совпадение) или xlPart (частичное совпадение).

SearchOrder — Одно из значений: xlByRows (просматривать по строкам) или xlByColumns (просматривать по столбцам)

SearchDirection — Одно из значений: xlNext (поиск вперед) или xlPrevious (поиск назад)

MatchCase — Одно из значений: True (поиск чувствительный к регистру) или False (поиск без учета регистра)

MatchByte — Применяется при использовании мультибайтных кодировок: True (найденный мультибайтный символ должен соответствовать только мультибайтному символу) или False (найденный мультибайтный символ может соответствовать однобайтному символу)

SearchFormat — Используется вместе с FindFormat. Сначала задается значение FindFormat (например, для поиска ячеек с курсивным шрифтом так: Application.FindFormat.Font.Italic = True), а потом при использовании метода Find указываем параметр SearchFormat = True. Если при поиске не нужно учитывать формат ячеек, то нужно указать SearchFormat = False.

Чтобы продолжить поиск, можно использовать FindNext (искать «далее») или FindPrevious (искать «назад»).

Примеры поиска функцией Find

Пример 1: Найти в диапазоне «A1:A50» все ячейки с текстом «asd» и поменять их все на «qwe»

With Worksheets(1).Range("A1:A50")
  Set c = .Find("asd", LookIn:=xlValues)
  Do While Not c Is Nothing
    c.Value = "qwe"
    Set c = .FindNext(c)
  Loop
End With

Обратите внимание: Когда поиск достигнет конца диапазона, функция продолжит искать с начала диапазона. Таким образом, если значение найденной ячейки не менять, то приведенный выше пример зациклится в бесконечном цикле. Поэтому, чтобы этого избежать (зацикливания), можно сделать следующим образом:

Пример 2: Правильный поиск значения с использованием FindNext, не приводящий к зацикливанию.

With Worksheets(1).Range("A1:A50")
  Set c = .Find("asd", lookin:=xlValues)
  If Not c Is Nothing Then
    firstResult = c.Address
    Do
      c.Font.Bold = True
      Set c = .FindNext(c)
      If c Is Nothing Then Exit Do
    Loop While c.Address <> firstResult
  End If
End With

В ниже следующем примере используется другой вариант продолжения поиска — с помощью той же функции Find с параметром After. Когда найдена очередная ячейка, следующий поиск будет осуществляться уже после нее. Однако, как и с FindNext, когда будет достигнут конец диапазона, Find продолжит поиск с его начала, поэтому, чтобы не произошло зацикливания, необходимо проверять совпадение с первым результатом поиска.

Пример 3: Продолжение поиска с использованием Find с параметром After.

With Worksheets(1).Range("A1:A50")
  Set c = .Find("asd", lookin:=xlValues)
  If Not c Is Nothing Then
    firstResult = c.Address
    Do
      c.Font.Bold = True
      Set c = .Find("asd", After:=c, lookin:=xlValues)
      If c Is Nothing Then Exit Do
    Loop While c.Address <> firstResult
  End If
End With

Следующий пример демонстрирует применение SearchFormat для поиска по формату ячейки. Для указания формата необходимо задать свойство FindFormat.

Пример 4: Найти все ячейки с шрифтом «курсив» и поменять их формат на обычный (не «курсив»)

lLastRow = Cells.SpecialCells(xlLastCell).Row
lLastCol = Cells.SpecialCells(xlLastCell).Column
Application.FindFormat.Font.Italic = True
With Worksheets(1).Range(Cells(1, 1), Cells(lLastRow, lLastCol))
  Set c = .Find("", SearchFormat:=True)
  Do While Not c Is Nothing
    c.Font.Italic = False
    Set c = .Find("", After:=c, SearchFormat:=True)
  Loop
End With

Примечание: В данном примере намеренно не используется FindNext для поиска следующей ячейки, т.к. он не учитывает формат (статья об этом: https://support.microsoft.com/ru-ru/kb/282151)

Коротко опишу алгоритм поиска Примера 4. Первые две строки определяют последнюю строку (lLastRow) на листе и последний столбец (lLastCol). 3-я строка задает формат поиска, в данном случае, будем искать ячейки с шрифтом Italic. 4-я строка определяет область ячеек с которой будет работать программа (с ячейки A1 и до последней строки и последнего столбца). 5-я строка осуществляет поиск с использованием SearchFormat. 6-я строка — цикл пока результат поиска не будет пустым. 7-я строка — меняем шрифт на обычный (не курсив), 8-я строка продолжаем поиск после найденной ячейки.

Хочу обратить внимание на то, что в этом примере я не стал использовать «защиту от зацикливания», как в Примерах 2 и 3, т.к. шрифт меняется и после «прохождения» по всем ячейкам, больше не останется ни одной ячейки с курсивом.

Свойство FindFormat можно задавать разными способами, например, так:

With Application.FindFormat.Font 
  .Name = "Arial" 
  .FontStyle = "Regular" 
  .Size = 10 
End With

Поиск последней заполненной ячейки с помощью Find

Следующий пример — применение функции Find для поиска последней ячейки с заполненными данными. Использованные в Примере 4 SpecialCells находит последнюю ячейку даже если она не содержит ничего, но отформатирована или в ней раньше были данные, но были удалены.

Пример 5: Найти последнюю колонку и столбец, заполненные данными

Set c = Worksheets(1).UsedRange.Find("*", SearchDirection:=xlPrevious)
If Not c Is Nothing Then
  lLastRow = c.Row: lLastCol = c.Column 
Else
  lLastRow = 1: lLastCol = 1
End If
MsgBox "lLastRow=" & lLastRow & " lLastCol=" & lLastCol

В этом примере используется UsedRange, который так же как и SpecialCells возвращает все используемые ячейки, в т.ч. и те, что были использованы ранее, а сейчас пустые. Функция Find ищет ячейку с любым значением с конца диапазона.

Поиск по шаблону (маске)

При поиске можно так же использовать шаблоны, чтобы найти текст по маске, следующий пример это демонстрирует.

Пример 6: Выделить красным шрифтом ячейки, в которых текст начинается со слова из 4-х букв, первая и последняя буквы «т», при этом после этого слова может следовать любой текст.

With Worksheets(1).Cells
  Set c = .Find("т??т*", LookIn:=xlValues, LookAt:=xlWhole)
  If Not c Is Nothing Then
    firstResult = c.Address
    Do
      c.Font.Color = RGB(255, 0, 0)
      Set c = .FindNext(c)
      If c Is Nothing Then Exit Do
    Loop While c.Address <> firstResult
  End If
End With

Для поиска функцией Find по маске (шаблону) можно применять символы:
* — для обозначения любого количества любых символов;
? — для обозначения одного любого символа;
~ — для обозначения символов *, ? и ~. (т.е. чтобы искать в тексте вопросительный знак, нужно написать ~?, чтобы искать именно звездочку (*), нужно написать ~* и наконец, чтобы найти в тексте тильду, необходимо написать ~~)

Поиск в скрытых строках и столбцах

Для поиска в скрытых ячейках нужно учитывать лишь один нюанс: поиск нужно осуществлять в формулах, а не в значениях, т.е. нужно использовать LookIn:=xlFormulas

Поиск даты с помощью Find

Если необходимо найти текущую дату или какую-то другую дату на листе Excel или в диапазоне с помощью Find, необходимо учитывать несколько нюансов:

• Тип данных Date в VBA представляется в виде #[месяц]/[день]/[год]#, соответственно, если необходимо найти фиксированную дату, например, 01 марта 2018 года, необходимо искать #3/1/2018#, а не «01.03.2018»
• В зависимости от формата ячеек, дата может выглядеть по-разному, поэтому, чтобы искать дату независимо от формата, поиск нужно делать не в значениях, а в формулах, т.е. использовать LookIn:=xlFormulas

Приведу несколько примеров поиска даты.

Пример 7: Найти текущую дату на листе независимо от формата отображения даты.

d = Date
Set c = Cells.Find(d, LookIn:=xlFormulas, LookAt:=xlWhole)
If Not c Is Nothing Then
  MsgBox "Нашел"
Else
  MsgBox "Не нашел"
End If

Пример 8: Найти 1 марта 2018 г.

d = #3/1/2018#
Set c = Cells.Find(d, LookIn:=xlFormulas, LookAt:=xlWhole)
If Not c Is Nothing Then
  MsgBox "Нашел"
Else
  MsgBox "Не нашел"
End If

Искать часть даты — сложнее. Например, чтобы найти все ячейки, где месяц «март», недостаточно искать «03» или «3». Не работает с датами так же и поиск по шаблону. Единственный вариант, который я нашел — это выбрать формат в котором месяц прописью для ячеек с датами и искать слово «март» в xlValues.

Тем не менее, можно найти, например, 1 марта независимо от года.

Пример 9: Найти 1 марта любого года.

d = #3/1/1900#
Set c = Cells.Find(Format(d, "m/d/"), LookIn:=xlFormulas, LookAt:=xlPart)
If Not c Is Nothing Then
  MsgBox "Нашел"
Else
  MsgBox "Не нашел"
End If

Microsoft
Excel – это популярное для работы с
таблицами приложение, используемое в
офисах и домах 90% людей. Несмотря на то
что программе уже 34 года, новые возможности
продолжают добавляться в обновлениях.
Поэтому программа до сих пор популярна.
Чтобы облегчить себе работу, нужно
знать, как работают эти опции. Для начала расскажем о том, что такое
макросы, а потом – как
включить макросы в Excel
2010, 2007, 2003.

Что
такое макрос?    

До
того как
включить макросы в Excel,
необходимо
узнать, для чего они нужны. Макросы –
это сохраненные в строках таблицы
заранее созданные последовательности
действий с данными. Реализованы на языке
VBA, что позволяет работать не только с
командами Экселя, но и других приложений
Office, поддерживающих этот язык. Используя
макросы, можно настроить автоматическое
форматирование строк таблицы, отправку
по почте, или создание презентации.

Описание
параметров макросов

После
сохранения макросы содержат пять
параметров работы, необходимых для
обеспечения защищенности при взаимодействии
с ними, так
как включить макросы в Excel
легко,
а избавляться от вирусов – нет.

1. Отключить макросы без уведомления.
   Применяется
   для таблиц, автор которых неизвестен.
   Деактивирует сохраненные в ячейках
   макросы, не предупреждая об этом.
   Пользуйтесь им при опасности вирусов
   в таблице.
2. Отключить макросы с уведомлением.
   Этот
   режим выбран стандартно. Предлагает
   выключать макросы, но перед этим
   запрашивает разрешения пользователя.
   С ним вы сможете решать, оставлять ли,
   или нет отдельно каждый макрос.
3. Отключить макросы, кроме макросов с
   цифровой подписью.
   Похож
   на предыдущий, но автоматически разрешает
   использование макросов, подписанных
   цифровой подписью предприятия, доверие
   которому вы уже подтвердили.
4. Включить макросы.
   Из
   названия понятно, что параметр разрешает
   использование макрокоманд, записанных
   в таблицу.
5. Доверять доступ к объектной модели
   проектов VBA.

Показатель
для разработчиков, открывающий доступ
таблицы к программам, написанным для
модели VBA любого приложения, по желанию
пользователя. Это позволяет программисту
настраивать, какой код имеет доступ к
макросам, и куда макросы могут отправлять
данные. При этом взломать или повредить
работу команд программиста практически
невозможно. Но новичку в VBA лучше не
использовать этот параметр.

Как включить
макросы в Excel

Существует
три версии Экселя, где активация макросов
отличается друг от друга. Сначала
рассмотрим, как
включить макросы в Excel
2010.

Как
включить макросы в MS
Excel 2010

В
2010 версии Экселя разработчики сделали
упор на безопасность, поэтому для
включения макросов нужно сделать
следующее:

• В верхнем меню приложения нажмите
  «Файл».
• Откроется список, выбрать предпоследний
  пункт – «Параметры».
• Нажмите,
  и попадете в окно «Параметры Excel». Слева
  перейдите в «Центр управления
  безопасностью».

• Справа в тексте кликните «Параметры…».
• Откроется еще одно меню, где нужно
  выбрать «Параметры макросов».
• Отметьте один из пунктов, нажмите «Ок».

• Закройте и запустите
  Excel снова, для вступления изменений в
  силу.

Как
включить макросы в MS
Excel 2007

Здесь
способ не сильно отличается от того,
как
включить макросы в Excel
2010:

• Нажмите кнопку «Файл» (круглая желтая
  кнопка с цветными квадратами) слева
  сверху окна.
• В правой нижней части меню кликните на
  «Параметры Excel».

• Перейдите в раздел «Центр управления
  безопасностью», а затем «Параметры
  центра…»
• В открывшемся меню отметьте режим работы
  макросов, который нужен.

• Перезапустите Эксель.

Как
включить макросы в MS
Excel 2003

2003
Эксель уступает в безопасности 2010-му,
и включить макросы в нем легче, но важно
тщательно проверять файлы на вирусы,
пользуясь им. Включить исполнение
макросов можно так:

1. В
   открытом приложении нажмите на кнопку
   «Сервис» в верхнем меню.
2. В выпадающем списке нажмите на «Макрос»,
   и «Безопасность».
3. Откроется меню безопасности, где нужно
   отметить уровень безопасности для
   макросов.
4. Нажмите
   «Ок», и перезайдите в Эксель.

Способы

Включить
макрокоманды можно одним из трех путей:

• во
  время показа окна сообщения;
• с
  помощью Backstage;
• когда
  появляется предупреждение системы
  безопасности.

Во
время показа окна сообщения

Дополнительный
способ работает, когда в Экселе открывается
файл, содержащий макрокоманды. В верхней
части листа появляется желтая карточка
с надписью «Предупреждение системы
безопасности». Кликните по «Включить
содержимое», и они активируются.

С
помощью Backstage

Если
открыть книгу с макросами, в меню «Файл»
появляется сообщение, позволяющее
активировать их. Для этого сделайте
следующее:

1. Раскройте меню «Файл» — левая в ленте
   вверху страницы.
2. В окне «Предупреждение системы
   безопасности» кликните по «Включить
   содержимое».
3. Появится диалоговое меню, где необходимо
   будет отметить «Всегда включать активное
   содержимое этого документа».

После
того как все получилось, перезагрузите
приложение.

Активировать
на одну сессию при появлении предупреждения
системы безопасности

Способ
включения только на один раз для одной
книги:

1. Раскройте меню «Файл» — левая в ленте
   вверху страницы.
2. В окне «Предупреждение системы
   безопасности» кликните по «Включить
   содержимое».
3. Перейдите в раздел «Дополнительные
   параметры».
4. В появившемся поле активируйте пункт
   «Включить содержимое для этого сеанса»
   по очереди для каждого из макросов.
5. Сохраните изменения, кликнув «Ок».