Macros vba: Макросы и надстройки

excel — Макрос VBA. копирование изменяемого диапазона данных

Есть эксель файл «донор», расположен по пути «путь к донору». Обновляется ежедневно, разное кол-во строк данных там каждый день. Все на одном листе.
Есть эксель файл «остатки», расположен по пути «путь к остаткам». Там хранится все что копируется ежедневно из донора руками, каждый раз добавляя вниз данные.

Нужен макрос (предполагаю запускать его из другого файла) который будет копировать из донора с A5 по R5, а строк столько сколько есть с данными (если такое возможно). Вставлять полученное на лист «данные», в ячейку B, строка первая пустая, в конце данных. Слева от того что будет вставлено (А столбец) нужна текущая дата. Справа от вставленного (Т столбец) сумма строки с С по S (то что скопировано кроме первого столбца, там текст). И нужно нажимать данные — обновить все (обновляет данные в сводной). Сохранить, закрыть (если файл вообще открываться будет)

• excel
• vba

3

Примерно так:
Создай макрос

    // Читаем другой файл:
    Dim WB As Workbook  
    Set WB = Application. Workbooks.Open("C:\Documents and Settings\...\Рабочий стол\Книга4.xlsx", Password:="123321")  
    Sheet1 = WB.Sheets("Лист1")
    // Обрабатываем диапазон
    For Counter = 1 To 20 
     Set curCell = Sheet1.Cells(Counter, 3) 
     // curCell.Value  - значение ячейки из другого файла вставляем куда надо
     ActiveWorkbook.Sheets("ЛистКудаВставляем").Cells(Строка, Колонка).Value = curCell.Value
    Next Counter
    WB.Close

1

Почему-то выдаёт ошибку 438? Помогите пожалуйста разобраться:

'Читаем другой файл:
Sub DonRec()
Dim WB As Workbook
Set WB = Application.Workbooks.Open("C:\..\Donor .xlsx")
Sheet1 = WB.Sheets("Don") 'Здесь ошибка
'Обрабатываем диапазон
For Counter = 1 To 20
Set curCell = Sheet1.Cells(Counter, 3)
'curCell.Value  - Значение ячейки из другого файла вставляем куда надо
ActiveWorkbook.Sheets("ЛистКудаВставляем").Cells(Строка, Колонка).Value = curCell.Value
Next Counter
WB.Close
End Sub

2

Зарегистрируйтесь или войдите

Регистрация через Google

Регистрация через Facebook

Регистрация через почту

Отправить без регистрации

Почта

Необходима, но никому не показывается

Отправить без регистрации

Почта

Необходима, но никому не показывается

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

vba-macros · Темы GitHub · GitHub

VBA — это реализация управляемого событиями языка программирования Microsoft Visual Basic 6.0, встроенного в большинство настольных приложений Microsoft Office и некоторые сторонние приложения.

Вот
395 публичных репозиториев
соответствует этой теме…

itm4n
/

VBA-RunPE

Звезда
755

INotGreen
/

GLllPowerloader

Звезда
362

АлленМэттсон
/

VBA

Звезда
332

плотник
/

VBA-код-библиотека

Звезда
141

капот
/

vba-обфускатор

Звезда
130

АлленМэттсон
/

VBA-и-Excel-книги-и-PDF

Звезда
89

ПогибельC
/

Протокол VBAChromeDev

Звезда
45

Хунвэньцзюнь
/

корлевба

Звезда
42

чжёнцюань
/

DBC2Excel

Звезда
41

Тдястржебски
/

Винсенти-Excel

Звезда
38

Задиго
/

vba_codes

Звезда
32

аналитика
/

добавить-gpt-чат-бот-в-Microsoft-Word

Звезда
29

Силхаре
/

Excel_VBA

Звезда
25

Давидбуэнов
/

CombinarПереписка

Звезда
21

Рабадаш8820
/

VbaModuleManager

Звезда
21

ПоповГП
/

Экспорт-MS-Project-в-MS-Excel

Звезда
19

прабхупавитра
/

Финансовое моделирование

Звезда
18

каво789
/

vba_excel_export_code

Звезда
17

треска
/

Счет-фактура продажи

Звезда
16

ГПФСимон
/

Скоростное бионическое чтение

Звезда
16

Создано Майкрософт

Выпущен в 1993 г.

Последователи

218 подписчиков

Веб-сайт

Learn.Microsoft.com/en-US/Office/VBA/API/обзор

Википедия

Википедия

Похожие темы

язык

vba-доступ

vba-cad

VBA-Excel

VBA-Powerpoint

vba-слово

визуальный базовый-6

15 способов запуска макроса VBA в Microsoft Excel

Хотите научиться запускать макрос VBA в Microsoft Excel? Это руководство покажет вам все методы, которые вы можете использовать для запуска кода VBA.

Microsoft Excel — мощное приложение для работы с электронными таблицами, предлагающее пользователям множество функций и возможностей. Одной из самых популярных функций Excel является возможность создавать и запускать макросы VBA.

Макрос — это небольшие сценарии, написанные на языке программирования VBA (Visual Basic для приложений), которые можно запускать в настольном приложении Excel.

Макросы могут сэкономить вам много времени и энергии при работе в Excel. Их можно использовать для автоматизации утомительных задач и экономии рабочих часов каждую неделю.

Но чтобы использовать этот инструмент для экономии времени, вам необходимо знать, как запускать макросы VBA.

Следуйте этому руководству, и вы сможете быстро запускать макросы как профессионал!

Запуск макроса VBA на вкладке «Разработчик»

Наиболее распространенный способ запуска макроса — на вкладке «Разработчик» на ленте Excel.

Эта вкладка по умолчанию скрыта, поэтому сначала вам нужно включить вкладку «Разработчик» в настольном приложении Excel.

Выполните следующие действия, чтобы запустить макрос VBA на вкладке «Разработчик».

1. Перейдите на вкладку Разработчик .
2. Нажмите команду Macros в разделе Code .

Откроется меню Macro , в котором перечислены все доступные для запуска макросы.

3. Выберите макрос, который вы хотите запустить.
4. Нажмите кнопку Выполнить .

Вот и все! Выбранный вами код макроса теперь будет выполняться!

💡 Совет : Используйте раскрывающийся список Макросы в , чтобы выбрать расположение макросов для запуска. Вы можете выбрать конкретную книгу, Все открытые книги или Эта книга .

Запуск VBA на вкладке «Вид»

Команда «Макрос» также доступна на вкладке «Вид» .

Перейти к просмотру и нажмите кнопку Macros , чтобы открыть меню Macros .

Откроется то же диалоговое окно Macro , что и раньше, и вы можете выбрать макрос и нажать кнопку Run .

Запуск макроса VBA из меню макроса с помощью сочетания клавиш

Существует более простой способ открыть меню макроса ! Нет необходимости использовать вкладку Developer или View , так как есть специальное сочетание клавиш для открытия Меню макроса .

Вы можете использовать сочетание клавиш Alt + F8 , чтобы открыть меню Macro .

Запуск макроса VBA с помощью сочетания клавиш

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

Если это макрос, который вы хотите использовать часто, то назначение ярлыка — это хороший способ избежать множества щелчков мышью, необходимых при запуске макроса через меню «Макрос».

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

1. Откройте меню Macro .
2. Выберите макрос, которому вы хотите назначить сочетание клавиш.
3. Нажмите кнопку Опции .

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

4. Добавьте символ в поле ввода Горячая клавиша .
5. Нажмите кнопку OK в параметрах макроса меню.
6. Нажмите кнопку Отмена в меню Макросы .

⚠️ Предупреждение : Эта выбранная комбинация клавиш переопределит любую существующую комбинацию клавиш, поэтому вам следует избегать использования клавиш, используемых для часто используемых сочетаний клавиш, таких как копирование, вставка и т. д. уже используется с часто используемыми командами, поэтому вместо этого вы можете создать сочетание клавиш Ctrl + Shift .

💡 Совет : Удерживайте клавишу Shift при вводе клавиши в поле ввода сочетания клавиш, чтобы создать ярлык Ctrl + Shift .

Запуск макроса VBA с помощью кнопки управления формой

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

Здесь кнопка является предпочтительным выбором для запуска макроса. Это делает процесс запуска вашего макроса простым и очевидным!

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

Выполните следующие действия, чтобы вставить кнопку управления формой и назначить ей макрос.

1. Перейдите на вкладку Разработчик .
2. Нажмите на команду Вставить .
3. Выберите кнопку 9Опция 0093 находится в разделе «Элементы управления формой».

Это еще не вставит кнопку. Вы заметите, что ваш курсор теперь превратился в маленький черный знак плюса. Это позволит вам нарисовать кнопку на вашем листе.

4. Щелкните левой кнопкой мыши и перетащите в любое место на листе.

Когда вы отпустите щелчок и перетаскивание, сразу же появится меню Назначить макрос , и вы сможете назначить макрос на кнопку.

5. Выберите свой макрос.
6. Нажмите кнопку OK .

Теперь у вас есть кнопка на вашем листе, которая будет запускать выбранный вами макрос VBA при нажатии.

💡 Совет : Щелкните правой кнопкой мыши на кнопке и выберите Редактировать текст , чтобы изменить текст, отображаемый на кнопке.

Запуск макроса VBA из любой формы, значка или изображения

Кнопки управления формой довольно уродливы и устарели. У них также не так много опций для настройки внешнего вида, но, к счастью, это не единственный способ сделать кнопку для запуска ваших макросов!

Есть несколько гораздо более стильных вариантов, таких как использование изображения, фигуры или значка в качестве кнопки для запуска макроса.

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

1. Щелкните правой кнопкой мыши на объекте.
2. Выберите в меню пункт Назначить макрос .
3. Выберите макрос в меню Назначить макрос .
4. Нажмите кнопку OK .

Теперь при нажатии на фигуру, изображение или значок будет выполняться код макроса!

Запуск макроса VBA из панели быстрого доступа Команда

Другой вариант — добавить наиболее часто используемые макросы на панель быстрого доступа.

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

Выполните следующие действия, чтобы добавить макрос на панель быстрого доступа .

1. Щелкните правой кнопкой мыши в любом месте панели быстрого доступа.
2. Выберите в меню пункт Настроить панель быстрого доступа .

Откроется меню Параметры Excel в разделе Панели быстрого доступа .

3. Выберите Макросы из раскрывающегося списка Выберите команды из .
4. Выберите макрос, который вы хотите добавить на панель быстрого доступа.
5. Нажмите кнопку Добавить .
6. Нажмите кнопку OK .

Когда вы нажмете кнопку Добавить , вы увидите, что выбранный макрос добавляется в ваш список команд. Вы можете использовать кнопки со стрелками вверх и вниз, чтобы настроить порядок, в котором этот макрос будет отображаться в ваших командах.

💡 Совет : Нажмите кнопку Изменить в параметрах Excel, чтобы изменить значок и метку макроса, который появится на панели быстрого доступа!

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

💡 Совет . Простой способ использовать команды на панели быстрого доступа — использовать сочетания клавиш Alt . В этом примере команда находится на 8-й позиции, начиная с команды отмены, поэтому вы можете нажать Alt + 8 , чтобы запустить макрос.

Запуск макроса VBA из настраиваемой команды ленты

Если у вас есть целый набор макросов и вам не хватает места на панели быстрого доступа, идеальным решением может стать добавление настраиваемой вкладки ленты для организации макросов.

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

Выполните следующие действия, чтобы добавить макрос на ленту Excel.

1. Щелкните правой кнопкой мыши в любом месте ленты Excel.
2. Выберите в меню пункт «Настроить ленту».

Откроется меню «Параметры Excel» в разделе «Настройка ленты».

3. Нажмите кнопку Новая вкладка , чтобы создать новую вкладку ленты.

4. Нажмите кнопку Переименовать , чтобы дать вашей вкладке имя.

Для каждой вкладки потребуется хотя бы одна группа, и она создается автоматически при создании новой вкладки. Вы также можете переименовать группу. Оба этих имени будут отображаться на ленте Excel.

Теперь вы сможете добавить макрос в новую вкладку и группу.

5. Выберите параметр Macros в раскрывающемся списке Выберите команды из .
6. Выберите макрос, который вы хотите добавить на ленту.
7. Нажмите кнопку Добавить .
8. Нажмите кнопку OK .

💡 Совет : Выберите вкладку и используйте кнопки со стрелками Вверх или Вниз для настройки положения новой вкладки на ленте.

Теперь у вас есть новая настраиваемая вкладка, которая может содержать все ваши наиболее часто используемые макросы. 😃

Запуск макроса VBA из меню запуска редактора Visual Basic

Визуальный базовый редактор (VBE) — это среда, в которой вы пишете код VBA, поэтому имеет смысл иметь возможность запускать свой код из него.

Многим людям нравится тестировать свой код при разработке своих решений, а это означает частый запуск ваших макросов из редактора. Ваш текущий код всегда можно запустить из меню Run в VBE.

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

1. Выберите макрос, который хотите запустить.

Вы можете выбрать макрос, поместив курсор в код или выбрав имя макроса в раскрывающемся меню в правом верхнем углу.

2. Перейдите в меню Выполнить .
3. Выберите в меню пункт Запустить подчиненную/пользовательскую форму .

Это запустит выбранный вами макрос!

Запуск макроса VBA из панели инструментов редактора Visual Basic

Редактор Visual Basic поставляется с панелью инструментов для быстрого доступа к наиболее часто используемым командам.

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

1. Выберите макрос, который хотите запустить.
2. Нажмите кнопку Воспроизвести на панели инструментов.

Это запустит выбранный вами макрос!

📝 Примечание : Если вы не видите эту панель инструментов, вам может потребоваться ее включить. Перейдите в меню View , затем Toolbars и установите флажок Standard .

Запуск макроса VBA из редактора Visual Basic Сочетание клавиш

Существует множество очень полезных сочетаний клавиш для использования визуального базового редактора.

Запуск макроса из VBE — очень распространенная задача, поэтому неудивительно, что для этого также доступно сочетание клавиш.

Нажмите клавишу F5 , находясь в VBE, и будет запущен текущий выбранный макрос!

Запуск макроса VBA из другого макроса

Вы можете легко запустить макрос из макроса в Excel.

Это хорошая практика, когда дело доходит до программирования. Создание меньших процедур, а затем их повторное использование в основном макросе может быть более эффективным для выполнения и более простым в обслуживании кода.

 ПодпримерКод()
    MsgBox ("Привет, мир!")
Конец сабвуфера
Подосновной код ()
    Код примера вызова
    MsgBox ("До свидания!")
Конец сабвуфера
 

Вы можете легко запустить любой макрос из макроса, используя одну строку кода. В приведенном выше примере будет запущен макрос ExampleCode из макроса MainCode .

Запуск макроса VBA из рабочего листа Событие

Знаете ли вы, что макрос можно запускать автоматически?

Вы можете автоматически запускать макрос на основе событий, происходящих на листе Excel!

Например, вы можете запустить макрос каждый раз, когда кто-то изменяет значение на листе.

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

1. Выберите лист , в котором вы хотите запустить макрос. Все листы вашей рабочей книги будут перечислены в папке Microsoft Excel Object проектов VBE.
2. Выберите параметры Worksheet из раскрывающегося меню.
3. Выберите тип события , который должен запускать ваш макрос.

 Private Sub Worksheet_Change (ByVal Target As Range)
End Sub 

Когда вы выберете тип события, он вставит немного кода в редактор. Например, триггер события Change вставит приведенный выше код.

4. Поместите любой код, который вы хотите запустить, когда событие произойдет внутри сгенерированного кода.

Если у вас есть существующий макрос, который вы хотите запустить, вы можете вызвать его, используя Call YourMacroName одну строку кода.

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

 Private Sub Worksheet_Change (ByVal Target As Range)
    Если Target.Address = "$A$1", то вызовите ExampleCode
End Sub 

Возможно, вы захотите ограничить запуск макроса только тогда, когда событие изменения происходит в определенной ячейке или диапазоне. Это возможно, установив условия для Target в вашем коде.

В приведенном выше примере макрос ExampleCode будет вызываться только при внесении изменений в ячейку 9.0092 А1 .

Запуск макроса VBA из гиперссылки

Знаете ли вы, что вы можете запускать свои макросы, когда щелкаете гиперссылку в Excel?

Этот особый метод событий рабочего листа заслуживает отдельного упоминания!

 Private Sub Worksheet_FollowHyperlink (ByVal Target As Hyperlink)
    Если Target.Address = "B2", то вызовите ExampleCode
End Sub 

Приведенный выше код будет выполняться каждый раз, когда вы щелкаете гиперссылку в ячейке B2 в Sheet2 .

Код будет выполнен, и вы перейдете по адресу, указанному в гиперссылке!

Запуск макроса VBA из события рабочей книги

Существует также возможность автоматического запуска макроса на основе событий рабочей книги, таких как открытие или закрытие файла.

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

Выполните следующие действия для автоматического запуска макроса при открытии файла Excel.

1. Выберите ThisWorkbook находится в папке Microsoft Excel Object проектов VBE.
2. Выберите Workbook из раскрывающегося меню.
3. Выберите Открыть из раскрывающегося меню типа события.

 Частная подпрограмма Workbook_Open()
End Sub 

Это вставит приведенный выше код в редактор кода. Затем вы можете добавить любой код, который вы хотите запускать при открытии файла. Вы также можете вызвать любой макрос здесь с помощью Call YourMacroName одна строка кода.

Выводы

Макросы VBA можно использовать для автоматизации задач в Excel, поэтому важно знать, как их запускать.

Существует множество способов запуска нужных макросов в зависимости от ситуации.

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

Возможно, вам придется время от времени запускать макросы VBA при разработке решений для их тестирования. Это можно сделать несколькими способами в визуальном базовом редакторе.

Вы даже можете запускать свои макросы на основе определенных событий рабочего листа или рабочей книги для максимальной автоматизации.

Используете ли вы макросы в Excel. Знаете ли вы все эти методы для запуска ваших макросов? Вы знаете какие-нибудь другие? Позвольте мне знать в комментариях ниже!

Об авторе

Джон является Microsoft MVP и квалифицированным актуарием с более чем 15-летним опытом.