Как переместить макрос в excel - Word и Excel - помощь в работе с программами

Excel для Microsoft 365 Excel для Microsoft 365 для Mac Excel 2021 Excel 2021 для Mac Excel 2019 Excel 2019 для Mac Excel 2016 Excel 2016 для Mac Excel 2013 Excel 2010 Excel 2007 Еще…Меньше

Если книга содержит макрос Visual Basic для приложений(VBA),который вы хотите использовать в другом месте, вы можете скопировать модуль, содержащий этот макрос, в другую открытую книгу с помощью редактора Visual Basic(VBE).

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

Чтобы Windows, перейдите в меню Параметры > >Настроить ленту.
Для Macперейдите на Excel > параметры… >ленты & панели инструментов.
Затем в разделе Настройка ленты в разделе Основные вкладкиубедитесь в том, что в разделе Разработчик.

Общие сведения о макросах и VBA

Если вы не знакомы с макросами и VBA в целом, вам могут пригодиться следующие сведения:

Макрос — это действие или набор действий, которые можно использовать для автоматизации задач.
Макрос можно записать с помощью команды Запись макроса на вкладке Разработчик.
Макрос записуется на языке программирования VBA.
Вы можете проверить и изменить макрос в редакторе Visual Basic, которое открывается Excel. Вот пример окна VBE для Windows:

Макрос с именами MakeCellGreen и SetRowHeight находится в модуле Module1,который хранится в книге Book1.

Копирование модуля из одной книги в другую

Откройте книгу, содержаную макрос, который вы хотите скопировать, и книгу, в которую вы хотите его скопировать.
На вкладке Разработчик щелкните Visual Basic, чтобы открыть редактор Visual Basic редактора.
В редакторе Visual Basic меню Вид выберите Project проводник или нажмите CTRL+R .
В области Project проводника перетащите модуль, содержащий макрос, который нужно скопировать в 9-ю книгу. В этом случае мы копируете Module1 из Book2.xlsm в Book1.xlsm.

Модуль1, скопирован из Book2.xlsm
Копия модуля1, скопированная в Book1.xlsm

Дополнительные сведения

Вы всегда можете задать вопрос специалисту Excel Tech Community или попросить помощи в сообществе Answers community.

Нужна дополнительная помощь?

Источник

Excel macros allow you to automate all sorts of tasks, from entering commonly used data to automatic printing and saving of files. Once you start to use Excel, it takes no time at all to create a large collection of macros for tasks you perform often. If you purchase a new computer, or if you just want to use Excel on another laptop or PC, you must save your macros in a special macro-enabled format. Once you save the macros this way, you can then move them to another computer or even email them to others so they can use them in their spreadsheets as well.

Saving and Transferring Macros in a Workbook File

Start Microsoft Excel on your computer. Create a new spreadsheet with macros as you normally would.
Click “File” on the Excel ribbon bar, and then click “Save As.” Enter a name for the workbook in the “File Name” field, and then select “Excel Macro-Enabled Workbook” in the “Save as Type” drop-down list. Click the “Save” button to save the workbook and the macros.
Connect a USB flash drive or hard drive to an empty port on your computer. Wait for Windows to detect the drive and configure it for use.
Click “Start,” then “Computer.” Browse to the folder where you saved the Excel workbook with the saved macros.
Highlight the name of the Excel macro-enabled workbook and then press the “Ctrl-C” keys to copy it to the Windows Clipboard.
Return to the main Windows Explorer window. Double-click the drive letter of the USB drive to open it and display its contents. Press “Ctrl-V” to copy the Excel workbook file to the USB drive.
Disconnect the USB drive and connect it to the second computer. After Windows recognizes and configures the drive, open Windows Explorer and paste the workbook file from the USB drive to a folder on the second computer. Launch Microsoft Excel on the second computer and use the macro-enabled workbook as you normally would.

Copy Macros with the VBA Editor

Launch Excel on the first computer. Open the Excel workbook file or template with macros you want to export to another computer.
Press the “Alt-F11” keys to launch the Visual Basic for Applications, or VBA, editor.
Double-click the “Modules” folder in the VBAProject pane on the left side of the VBA editor window. Highlight the name of the first module under the Modules folder header.
Click “File” on the VBA editor toolbar, and then click “Export File.” Enter a name for the module name in the “File Name” field or leave the default name in place. Select a folder in which to save the module file and click “Save.”
Export other macro modules listed under the Modules folder header to your selected folder.
Connect a USB drive to your computer. Copy and paste the .BAS module files created by the VBA editor to the USB drive.
Connect the USB drive to the second computer. Launch Microsoft Excel and open the workbook file or template in which you want to place the macro modules.
Press “Alt-F11” to open the VBA editor. Click “File” and then “Import File” on the menu bar. Browse to the folder on the USB drive where you saved the .BAS files from the first computer. Highlight the first module file name and then click “Open.” The VBA editor imports the module code and creates a new macro in the current workbook with the macro name used on the first computer.
Import the other macro modules from the USB drive using the VBA editor.
Click “File” and then “Save As.” Save the current workbook as an Excel Macro-Enabled Workbook. Use the macros in the workbook as you normally would.

Источник

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

Откройте в Excel файл, содержащий макрос, который надо перенести в другую книгу
Перейдите в редактор Visual Basic for Applications (VBA) через комбинацию клавиш Alt+F11
Слева в окне Project-VBAProject последовательно найдите ваш файл, далее раздел Modules, далее тот модуль, содержимое которого вы собираетесь переносить.
Модулей может быть несколько и вы, либо знаете имя необходимого вам модуля, либо переносите их все.
Для каждого модуля, предназначенного к переносу, нажимайте на нём правую кнопку мыши (ПКМ) и выбирайте Export File…
Обратите внимание, как называется файл, чтобы потом знать, что искать. Выбирайте удобную вам папку, нажимайте Сохранить.
Проделайте это со всеми нужными вам модулями.
Откройте целевой файл Excel, который должен иметь тип Книга Excel с поддержкой макросов (*.xlsm) или Двоичная книга Excel (*.xlsb). Если тип файла у вас не такой (обычно это Книга Excel (*.xlsx)), то пересохраните файл, через Сохранить как и укажите нужный нам тип.
Точно также найдите этот файл в проектах редактора VBA (смотри выше)
Нажмите на любом листе файла ПКМ и выберите пункт меню Import File…
Выберите ранее сохраненный файл и нажмите Открыть
Модуль будет проимпортирован в вашу книгу
Повторите это для всех модулей
Закройте VBA редактор
Закройте файлы Excel с сохранением результатов

Источник

Содержание

Создание и сохранение всех макросов в одной книге
Перемещение макросов на другой компьютер
Перемещение макросов на другой компьютер
Дополнительные сведения
Как перенести макрос на другой компутер?
Копирование модуля макроса в другую книгу
Общие сведения о макросах и VBA
Копирование модуля из одной книги в другую
Дополнительные сведения
Table of Contents:
Скопируйте макрос из одной рабочей книги в другую
Экспорт и импорт макроса
Создание персональной макрокоманды
Как запустить макросы Excel в Mac iWork
Как найти скрытые макросы в электронной таблице Excel
Как записывать и запускать макросы для автоматизации задач в слове
Excel. Макросы. Как перенести готовый макрос в свой файл (Октябрь 2021).
Table of Contents:
Шаг 1
Шаг 2
Шаг 3
Шаг 4
Шаг 5
Как запустить макросы Excel в Mac iWork
Как найти скрытые макросы в электронной таблице Excel
Как использовать Adguard для блокировки рекламы в Microsoft Edge или в любом другом браузере
Автоматический запуск макроса при загрузке документа Word (Октябрь 2021).

Создание и сохранение всех макросов в одной книге

Когда вы впервые создаете макрос в книге, он работает только в ней. А если вам нужно использовать макрос в других книгах? Чтобы макросы были доступны при каждом запуске Excel, создайте их в книге с именем Personal.xlsb. Это скрытая книга, которая хранится на компьютере и открывается в фоновом режиме при каждом Excel.

Макросы и средства VBA находятся на вкладке Разработчик, которая по умолчанию скрыта, поэтому сначала нужно включить ее. Дополнительные сведения см. в статье Отображение вкладки «Разработчик».

Теперь создайте макрос. Мы зафиксим макрос, который ничего не делает, но создаст личную книгу макроса.

Дополнительные сведения о создании макросов см. в разделе Краткое руководство. Создание макроса.

Перейдите на вкладку Разработчик и нажмите кнопку Запись макроса.

В диалоговом окне Запись макроса не помешает ввести имя макроса в поле Имя макроса. Вы можете принять имя, которое Excel, например Макрос1, так как это просто временный макрос.

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

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

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

Чтобы увидеть созданный макрос:

Перейдите в > Visual Basic, чтобы запустить редактор Visual Basic (VBE),в котором хранятся макросы.

Книгу «Личные макросы» можно найти в области Project проводника слева. Если вы не видите его, перейдите в > Project проводник.

Дважды щелкните папку VBA Project (PERSONAL.xlsb) > Modules > Module1, и вы увидите пустой записанный макрос1. Вы можете удалить его или оставить, чтобы добавить код к более поздней.

Перемещение макросов на другой компьютер

Файл Personal.xlsB хранится в папке XLSTART. Если вы хотите поделиться макросами с другими, вы можете скопировать их в папку XLSTART на других компьютерах или скопировать некоторые или все макрос в файл Personal.xlsb на других компьютерах. Вы можете найти XLSTART в Windows проводнике.

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

Дополнительные сведения о копировании макросов из одной книги в другую см. в статье Копирование модуля макроса в другую книгу.

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

Перейдите в Excel > параметры. > ленты & панель инструментов.

В категории Настроить ленту в списке Основные вкладки установите флажок Разработчик, а затем нажмите кнопку Сохранить.

Теперь создайте макрос. Мы зафиксим макрос, который ничего не делает, но создаст личную книгу макроса.

Дополнительные сведения о создании макросов см. в разделе Краткое руководство. Создание макроса.

Перейдите на вкладку Разработчик и нажмите кнопку Запись макроса.

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

Чтобы увидеть созданный макрос:

Нажмите кнопку > Visual Basic, чтобы запустить редактор Visual Basic (VBE),в котором хранятся макросы.

Перемещение макросов на другой компьютер

Дополнительные сведения

Вы всегда можете задать вопрос специалисту Excel Tech Community или попросить помощи в сообществе Answers community.

Источник

Как перенести макрос на другой компутер?

Я написал несколько макросов (на Экселе). Но они должны работать на другом компутере. Как бы мне их перенести туда?
Говорят, что одного файла (xls) с макросами недостаточно. Слышал, что как-то это с помощью шаблонов делают. И еще такой вопрос: на другом компутере неохота заново панель инструментов для этих макросов создавать: иконки снова рисовать, макросы им назначать и т.п. Как бы мне и панельку с собой прихватить?

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

tick Макрос. Выбрать отмеченные позиции и перенести на другой лист
Доброго времени суток В Книге 2 листа На листе «Общий» есть таблица состоящая из 6 столбцов.

Как перенести Range на другой лист
Public shet As Worksheet Public rng As Range Private Sub CommandButton1_Click() Set shet =.

Макрос, чтобы другой макрос распихал сам по N файлам
Может эта тема уже тут звучала, да поиск не помог. Просто проблема в том, что макрос постоянно.

Да, теперь я могу ‘вложить’ панель макросов в проект, но как ее
оттуда вытащить?
Может, я что-то не так делаю:

Выбираю в меню ‘Сервис/Настройка/Вложить’;
перетаскиваю ‘Макросы’ на ‘Панели книги’;
сохраняю.

Затем, чтобы убедиться, что все работает, удаляю с панели ‘Макросы’ несколько кнопок. Закрываю Excel, открываю снова, загружаю файл, в который я ‘вложил’ панельку с макросами, а кнопки макросов на панельке те же, то есть, как перед закрытием Excel. Как их увидеть?

Лана, вроде бы сам доехал:

Да, я так и понял. Примерно так и сделал: создал свой макрос и в нем написал всего лишь одну строку
Application.CommandBars(‘МОЯ_ПАНЕЛЬ’).Delete
Ты пишешь, надо не просто макрос писать, а какую-то приватную функцию:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Наверное, вопрос нужно задать по-другому:
Куда нужно вставить эту функцию и как это сделать?

P.S. Закрытие файла xls не приводит к закрытию МОЕЙ_ПАНЕЛИ.

И все равно не ясно. Что понимается под словосочетанием ‘окно программы’? Наверное, ‘окно макроса’ и ‘окно программы’ это разные вещи?
И где я должен выбирать нужное событие? Где находится менеджер событий, как его вызвать?

Sorry, вопрос рано задал. Вроде бы сам ответ нашел. Кстати, я вплоть до сегодняшнего дня чисто макросы писал, в программу, события не лез. Просто надобности не было.
Если я в форуме видел какие-то программки, со всякими Sub, Private и т.п., я думал, что это что-то вроде процедур, но никак не мог понять, куда и как их вставлять.
Если кому-то интересно с событиями возиться, опишу, как выйти на ‘Программу’. Конкретнее, как перейти к событию ‘Before’

Итак:
1. Можно или:
а) выбрать ‘Сервис/Макрос/Редактор Visual Basic’;
б) перейти в окно редактирования макросов (если оно открыто);
в) нажать Alt+F11.
2. Открыть ‘Окно проекта'(если оно не открыто):
а) Вид/Окно проекта
б) Ctrl+R
3. В ‘Окне проекта’ встать на строку ‘ThisWorkbook’
4. Нажать на правую кнопку мыши и выбрать ‘Программа’
5. На появляющемся окне сверху имеется два выпадающих меню.
Активизируем левое и выбираем в нем ‘Workbook’
6. Теперь в правом окне можно выбирать необходимое событие и
работать с ним. В данном случае нужно выбрать ‘BeforeClose’

Источник

Копирование модуля макроса в другую книгу

Если книга содержит макрос Visual Basic для приложений (VBA),который вы хотите использовать в другом месте, вы можете скопировать модуль, содержащий этот макрос, в другую открытую книгу с помощью редактора Visual Basic (VBE).

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

Чтобы Windows, перейдите в меню Параметры > > Настроить ленту.

Для Macперейдите на Excel > параметры. > ленты & панели инструментов.

Затем в разделе Настройка ленты в разделе Основные вкладкиубедитесь в том, что в разделе Разработчик.

Общие сведения о макросах и VBA

Если вы не знакомы с макросами и VBA в целом, вам могут пригодиться следующие сведения:

Макрос — это действие или набор действий, которые можно использовать для автоматизации задач.

Макрос можно записать с помощью команды Запись макроса на вкладке Разработчик.

Макрос записуется на языке программирования VBA.

Вы можете проверить и изменить макрос в редакторе Visual Basic, которое открывается Excel. Вот пример окна VBE для Windows:

Макрос с именами MakeCellGreen и SetRowHeight находится в модуле Module1,который хранится в книге Book1.

Копирование модуля из одной книги в другую

Откройте книгу, содержаную макрос, который вы хотите скопировать, и книгу, в которую вы хотите его скопировать.

На вкладке Разработчик щелкните Visual Basic, чтобы открыть редактор Visual Basic редактора.

В области Project проводника перетащите модуль, содержащий макрос, который нужно скопировать в 9-ю книгу. В этом случае мы копируете Module1 из Book2.xlsm в Book1.xlsm.

Модуль1, скопирован из Book2.xlsm

Копия модуля1, скопированная в Book1.xlsm

Дополнительные сведения

Вы всегда можете задать вопрос специалисту Excel Tech Community или попросить помощи в сообществе Answers community.

Источник

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

Скопируйте макрос из одной рабочей книги в другую

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

В диалоговом окне Макрос выберите макрос Вы хотите отобразить в редакторе Visual Basic (VB) и нажмите на редактировать кнопка для отображения кода VBA макроса.

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

Откройте книгу, в которую нужно добавить макрос. На вкладке Разработчик, нажмите на макрос кнопка. Присвойте имя макросу, а затем нажмите на Создайте кнопка для отображения редактора VB. Когда редактор VB откроется, поместите курсор на пустую строку между двумя операторами. Нажмите на редактировать и выбрать Вставить из раскрывающегося меню, чтобы вставить скопированный код. Нажмите на файл а также Сохранить сохранить рабочую книгу и макрос.

Экспорт и импорт макроса

Этот метод создает файл кода VB (файл BAS), который можно экспортировать, чтобы его можно было импортировать в другие книги Excel.

Откройте редактор VB и отобразите макрос, который вы хотите экспортировать. Нажмите на файл и выбрать Экспорт файла.

В диалоговом окне «Сохранить файл» перейдите к папке, в которую нужно сохранить файл, назовите файл и нажмите Сохранить, Теперь файл доступен для импорта в другие рабочие книги.

Чтобы импортировать файл BAS и добавить его в проект книги, выберите вкладку «Разработчик» и щелчок на кнопку Visual Basic, чтобы открыть редактор VB. В редакторе VB нажмите файл а затем нажмите Импортировать файл отобразить диалоговое окно «Импорт файла». проводить в соответствующую папку и Выбрать файл для импорта. Нажмите открыто импортировать файл.

Создание персональной макрокоманды

Когда Excel запускается, он открывает файл Personal.xlsb, если он присутствует, как скрытую книгу. Этот файл содержит макросы, доступные для любой книги Excel, работающей на одном компьютере. Создание файла Personal.xlsb предоставляет библиотеку макросов макросов, доступных на этом компьютере.

Чтобы создать файл Personal.xlsb, откройте новый Рабочая тетрадь в Excel. На разработчик вкладку, нажмите на Запись макроса кнопка для отображения Запись макроса диалоговое окно.

Присвойте имя макросу, затем выберите Личная Макро Книга на опцию «Сохранить макрос как». Нажмите Хорошо начать запись. Выполните действия, которые будут включены в макрос. Когда действия будут завершены, нажмите на Остановить запись на вкладке Разработчик или нажмите Остановить запись кнопка в строке состояния в левом нижнем углу книги.

После завершения макроса, нажмите на кнопку Visual Basic на вкладке Разработчик, чтобы открыть VB редактор, Выбрать VBAPROJECT (PERSONAL.XLSB) в проект панель. Нажмите на файл а затем Сохранить PERSONAL.XLSB вариант.

Как запустить макросы Excel в Mac iWork

Как найти скрытые макросы в электронной таблице Excel

Как записывать и запускать макросы для автоматизации задач в слове

Вы часто выполняете одни и те же действия в Word? Сэкономьте время, создав макрос для запуска нескольких действий одним щелчком мыши.

Excel. Макросы. Как перенести готовый макрос в свой файл (Октябрь 2021).

Источник

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

кредит: Jupiterimages / Photos.com / Getty Images

Шаг 1

Убедитесь, что вкладка «Разработчик» включена для Word на обоих компьютерах. Для этого в каждой копии Word нажмите кнопку Microsoft Office, затем «Параметры Word» и «Популярные». Установите флажок «Показывать вкладку разработчика на ленте». Нажмите «ОК».

Шаг 2

Создайте новый шаблон на исходном компьютере. Для этого нажмите кнопку «Офис» в Microsoft, «Создать», «Пустой документ» и «Создать». Снова нажмите кнопку «Офис», затем нажмите «Сохранить как». Для пользователей Windows Vista нажмите «Избранные ссылки», затем «Шаблоны». Для пользователей Windows XP в поле «Сохранить в» нажмите «Доверенные шаблоны». В поле «Сохранить как тип» выберите «Шаблон Word с поддержкой макросов». Дайте шаблону имя, затем нажмите «Сохранить».

Шаг 3

Скопируйте макросы на исходном компьютере в новый шаблон. Нажмите вкладку «Разработчик», затем кнопку «Шаблон документа». В нижней части окна «Шаблоны и надстройки» нажмите кнопку «Органайзер». В окне «Органайзер» перейдите на вкладку «Элементы макропроекта». Одна сторона уже должна показывать файл шаблона Normal.dotm, который является местоположением по умолчанию для макросов. На другой стороне окна выпадающий список со списком «Элементы макропроекта доступны в» и выберите созданный вами файл шаблона. Затем со стороны Normal.dotm выберите макро-объект, который вы хотите скопировать, и нажмите «Копировать».

Шаг 4

Скопируйте новый файл шаблона на конечный компьютер.

Шаг 5

На конечном компьютере используйте «Органайзер», чтобы скопировать макросы из скопированного файла шаблона в файл шаблона по умолчанию. Повторите шаг 3 за исключением того, что на этот раз скопируйте свои макросы из скопированного файла шаблона в файл шаблона по умолчанию (Normal.dotm).

Как запустить макросы Excel в Mac iWork

Как найти скрытые макросы в электронной таблице Excel

Как использовать Adguard для блокировки рекламы в Microsoft Edge или в любом другом браузере

Если вы хотите избавиться от нежелательной рекламы в браузере, Adguard является единственным блокировщиком рекламы, который может остановить их в Microsoft Edge в Windows 10.

Автоматический запуск макроса при загрузке документа Word (Октябрь 2021).

Источник

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

Файлы для скачивания:

Файл	Описание	Размер файла:	Скачивания
Пример		14 Кб	2798

Рассмотрим два примера:

Ищем и используем команду
Ищем и используем функцию

1. Ищем и используем команду

Например, нам необходима команда, которая бы вставляла в выделенные ячейки цифру «1». Запускаем поисковик, набираем поисковую фразу, получаем результаты, начинаем просматривать, находим код примерно в таком виде:

Sub Вставка1()
    Dim q As Object
    On Error Resume Next
    Set q = Cells
    For Each q In Selection
        q = 1
    Next q
End Sub

Выделяем данный код (без нумерации строк, начиная со слова Sub) и нажимаем Ctrl+C. Переходим в свою рабочую книгу MS Excel и нажимаем сочетание клавиш Alt+F11, у вас откроется окно редактора VBA:

В левом окне «Project — VBA Project» выбираем (щелкаем мышкой) нашу рабочую книгу, в которую необходимо вставить макрос, например, «VBAProject (Книга2)»:

Я не вижу окна «Project — VBA Project».

В пункте меню «Insert» выбираем «Module»:

В левом окне «Project — VBA Project» у вас должна появиться новая папка «Modules» и в ней новый объект «Module1»:

Переходим курсором в правое «Большое» поле для ввода и нажимаем Ctrl+V, скопированный макрос вставиться в модуль:

У меня в коде «????????«

После чего закрываем редактор VBA и возвращаемся в рабочую книгу.

Если вы работаете в MS Excel 2007, 2010 или 2013, вам необходимо будет сохранить вашу рабочую книгу как «Книга Excel с поддержкой макросов (.xlsm)»:

В MS Excel 2003 достаточно будет просто сохранить файл.

Чтобы выполнить скопированный в книгу макрос выделяем ячейки, в которые необходимо вставить «1», нажимаем в меню «Вид» кнопку «Макросы» и в выпавшем списке выбираем пункт «Макросы» или нажимаем сочетание клавиш Alt+F8:

Откроется диалоговое окно «Макрос», в списке макросов выбираем свой и нажимаем кнопку «Выполнить»:

Макрос выполнится — в выделенные ячейки вставиться «1»:

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

Макросы в MS Excel можно вставлять в следующие места:

В Модуль, обычно вставляют код макросов, запуск которых будет производится по нажатию кнопки пользователем (как, например, в нашем случае) или код функций (формул);
В Рабочий лист, обычно вставляют код макросов, запуск которых должен происходить автоматически в зависимости от действий пользователя или изменения данных в листе (поменялись данный, макрос выполнился);
В Рабочую книгу, обычно вставляют код макросов, запуск которых должен происходить автоматически в зависимости от действий, производимых над книгой (файлом). Например, макрос, который запускается при открытии или закрытии книги, или при ее сохранении;
Так же макросы могут быть частью пользовательской формы.

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

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

Для вставки кода в Книгу, выберите «ЭтаКнига»:

Давайте потренируемся. Вставьте код опубликованный ниже в «Лист1».

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo a
    If Target = 2 Then
        VBA.MsgBox ("Ячейка " & Target.Address & " = 2")
    End If
a:
    Exit Sub
End Sub

Данный макрос выводит информационное сообщение если вы введете в любую ячейку листа «2».

Вернитесь в рабочую книгу, перейдите в «Лист1» и введите в ячейку «А1» цифру «2» и нажмите Enter, после чего у вас должно появиться следующее сообщение:

Если вы видите это сообщение, то вы все сделали правильно. Если нет, то вы вставили код куда-то не туда, повторите попытку.

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

2. Ищем и используем функцию

Находим в интернете VBA код функции, которая подсчитывает, например, количество слов в ячейке:

Public Function КолСловВЯчейке(Ячейка As Range)
    Dim q As Variant
    Application.Volatile
    q = VBA.Split(Application.WorksheetFunction.Trim(Ячейка.Value), " ")
    КолСловВЯчейке = UBound(q) + 1
End Function

Копируем код, нажимаем сочетание клавиш Alt+F11, откроется редактор VBA:

Добавляем новый модуль в свою книгу и в этот модуль вставляем скопированный код:

Закрываем редактор VBA и переходим в свою рабочую книгу. Создаем новый лист (необязательно) в ячейку A1 вводим текст «мама мыла раму». Встаем в ячейку, в которой хотим получить результат (количество слов), в меню «Формулы» нажимаем кнопку «Вставить функцию»:

В открывшемся окне «Вставка функции» в поле «Категория» выбираем «Определенные пользователем»

В списке доступных функций выбираем «КолСловВЯчейке», нажимаем «ОК»:

Вводим необходимые аргументы и нажимаем «ОК»:

Получаем результат:

Важно:

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

Если при вставке макроса в модуль у вас вместо некоторого текста стоят красные знаки «????????«

Это значит, что у вас проблема с кодировкой, которая наблюдается с копированием Кириллического текста из некоторых браузеров. Чтобы победить эту проблему, попробуйте вставить скопированный код в пустой лист MS Excel, как «Текст в кодировке Unicode». Для этого перейдите в книгу MS Excel, выберите или создайте пустой лист, встаньте в ячейку «A1» и нажмите сочетания клавиш Ctrl+Alt+V. Должно будет появиться меню «Специальной вставки», выберите пункт «Текст в кодировке Unicode» и нажмите «OK».

Код должен будет вставиться в рабочий лист без знаков вопроса:

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

Если вы не видите в редакторе VBA окна «Project — VBA Project», перейдите во вкладку меню «View» и в списке выберите пункт «Project Explorer» или нажмите сочетание клавиш Ctrl+R:

Добавить комментарий

Источник

Созданный
макрос действует во всех листах открытой
книги. Для копирования макроса в другую
книгу нужно:

1 Открыть книгу,
содержащую копируемый модуль, и книгу,
в которую нужно его копировать – через
меню ФайлОткрытьили кнопкуОткрытьна панели инструментовСтандартная.

2 В меню Сервис
установить курсор на пунктМакроси выбрать ко-

манду
Редактор Visual Basic.

3 В меню Видвыбрать командуОкно проекта.

4.
Перетащить в Окне
проекта с
помощью мыши копируемый модуль в нужную
книгу.

Примечание.Чтобы получить возможность использовать
макрос в любое время, сохраните его в
личной книге макросов. Он получит имя
следующим форматом: «PERSONAL.XLS.
Имя макроса».

Более
сложные макросы создаются с помощью
редактора Visual
Basic.

Контрольные вопросы

1
Что называется макросом, для чего он
предназначен?

2
Как записать макрос?

3 Способы запуска
макроса (перечислить).

4
Запись
макроса, запускаемого из меню Сервис и
сочетанием клавиш с клавиатуры.

5
Использование относительной и абсолютной
адресации при записи макросов.

6
Создание новой панели инструментов.
Назначение кнопки для запуска макроса
на новой панели инструментов .

7
Добавление кнопки запуска макроса на
существующие панели инструментов
(Стандартная,Форматирование и др.).

8
Добавление кнопки запуска на рабочий
лист с помощью панели инструментов
Формы.

9 Копирование
модуля макроса в другую книгу.

Задание

1 Разработать
макрос для вычисления прогнозируемых
значений функции y= 0,2·xⁿ, гдеn– номер компьютера в аудитории.
Предварительно функцию нужно ввести в
ячейки столбца или строки процессораExcel, задав изменение
аргументах в пределах 1…7 с шагом
1 и вычислив в соседнем столбце (или
строке) по введённой формуле значения
функции у (см. л.р.excel– 3). Прогноз выполнить с помощью функций
ТЕНДЕНЦИЯ или РОСТ (см. л.р.excel– 4).

Макрос должен
запускаться кнопкой на панели Стандартнаяи кнопкой, расположенной на рабочем
листе.

2 Разработать
макрос для построения графика функции
y = 2·sin(n·x), гдеn– номер компьютера
в аудитории, для 10 значений аргумента
х = 1…10. При записи макроса использовать
относительную адресацию. Макрос должен
запускаться сочетанием клавиш с
клавиатуры и командой из менюСервис.

3 Открыть новую книгу и скопировать в неё оба макроса. Создать новую панель инструментов. Назначить макросам новые кнопки для их запуска с новой панели инструментов.

Содержание
отчёта

1
Название,
цель, содержание работы

2
Задание своего варианта

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

4
Выводы по работе

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

Лабораторная работа №7

Поиск
решения в Excel

Цель
работы: научиться
использовать процессор Excel

для
решения задач оптимизации

Содержание
работы:

1
Создание формы

2
Ввод данных в окно Поиск
решения

3
Задание параметров поиска и решение
задачи

Общие
сведения

Математический
аппарат Excel
позволяет решать задачи линейного,
нелинейного и целочисленного
программирования. При этом оптимизация
решения выполняется методом поиска
решения, который запускается командой
СервисПоиск
решения.

Задача
линейного программирования (ЗЛП) в общем
случае формулируется следующим образом:

Определить
максимум (минимум) целевой функции F
max(min) при заданной системе ограничений
(2) и граничных условий (3):

Fmax(min)
=A1*X1+A2*X2+…+An*Xn (1)

B11*X1+B12*X2+…+B1n*Xn<=C1

B21*X1+B22*X2+…+B2n*Xn<=C2

……………………….
……………………………. (2)

Bn1*X1+Bn2*X2+…+Bnn*Xn<=Cn

Xi>=0,
i=1…n (3)

Рассмотрим
применение процессора Excel для решения
ЗЛП на примере.

Задача.
МП выпускает товары Х1,Х2,Х3,Х4, получая
от реализации каждого прибыль в
60,70,120,130 руб. соответственно. Затраты на
производство приведены в табл. 1.
Определить:

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

Таблица
1

Затраты	Х1	Х2	Х3	Х4	Всего
Трудовые	1	1	1	1	16
Сырьевые	6	5	4	1	110
Финансы	4	6	10	13	100

Составим
математическую модель процесса по
описанию задачи:

60Х1+70Х2+120Х3+130Х4
= Fmax
– целевая функция прибыли.

Х1+Х2+Х3+Х4
<= 16

6Х1+5Х2+4Х3+Х4
<= 110 — ограничения модели

4Х1+6Х2+10Х3+13Х4
<= 100

Х_j>=0
— граничные условия
модели

Решение
задачи средствами Excel состоит из 3 этапов:

1
Создание формы для ввода условий задачи,
ввод в неё исходных данных и зависимостей
из математической модели.

2
Ввод данных из формы в окно Поиск
решения
из меню Сервис.

3
Задание параметров поиска и решение
задачи.

Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]

Источник

Копирование макроса

light26

Дата: Среда, 31.08.2011, 11:57 |
Сообщение № 1

Группа: Друзья

Ранг: Старожил

Сообщений: 1341

Репутация:
91
±

Замечаний:
0% ±

2007, 2010, 2013

Всем доброго времени суток.
Уважаемые мастера, подскажите как копировать тело макроса из одного файла в другой. Ведь, если я правильно понимаю, при написании макроса его код сохраняется вместе с таблицей Excel в файле, назовем его Х1.xls. То есть где бы я впоследствии этот файл не открыл, макрос будет выполняться. в то же время, если я открою в Excele файл, скажем Х2.xls и захочу выполнить макрос записанный в Х1.xls, то у меня ничего не получится.
Разберем на примере
Вот ссылка к макросу выпадающего календаря (в «Готовых решениях»)
Календарь
Как мне заставить этот макрос работать в другом файле(см. вложение)
Я пытался найти ответ на страницах интернета, но безуспешно (((

К сообщению приложен файл:

5417587.xls
(42.0 Kb)

Я не волшебник. Я только учусь

Сообщение отредактировал light26 — Среда, 31.08.2011, 12:07

Ответить

Саня

Дата: Среда, 31.08.2011, 12:22 |
Сообщение № 2

Группа: Друзья

Ранг: Ветеран

Сообщений: 1067

Репутация:
560
±

Замечаний:
0% ±

XL 2016

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

Ответить

light26

Дата: Среда, 31.08.2011, 12:30 |
Сообщение № 3

Группа: Друзья

Ранг: Старожил

Сообщений: 1341

Репутация:
91
±

Замечаний:
0% ±

2007, 2010, 2013

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

Я не волшебник. Я только учусь

Ответить

RAN

Дата: Среда, 31.08.2011, 12:52 |
Сообщение № 4

Группа: Друзья

Ранг: Экселист

Сообщений: 5645

Открываешь свой файл и файл с календарем.
Заходишь в редактор VBA.
Открываешь Wiev — Project Explorer (если закрыт)
Открываешь Forms
Хватаешь мышом DateForm и тащишь в норку (свой файл).
Аналогично с модулями и модулями класса.

ВСЕ! Календарь в твоем файле!

А для запуска календаря в модуле Лист1 прописан код
Private Sub Worksheet_SelectionChange
Но этот код вызывает календарь только в столвце F
Процедуру вызова необходимо изменить в соответствии с желаниями.

Поищи на планете «всплывающий календарь, открытый код» или «почему к всех работает, а у Мули нет»
Там куча различных процедур запуска календаря

Быть или не быть, вот в чем загвоздка!

Сообщение отредактировал RAN — Среда, 31.08.2011, 12:56

Ответить

light26

Дата: Среда, 31.08.2011, 12:56 |
Сообщение № 5

Группа: Друзья

Ранг: Старожил

Сообщений: 1341

Репутация:
91
±

Замечаний:
0% ±

2007, 2010, 2013

RAN,

Quote (RAN)

Открываешь Forms
Хватаешь мышом DateForm и тащишь в норку (свой файл).
Аналогично с модулями и модулями класса.

я пробовал. Он не по русски матом начинает ругаться (((

Я не волшебник. Я только учусь

Сообщение отредактировал light26 — Среда, 31.08.2011, 12:56

Ответить

RAN

Дата: Среда, 31.08.2011, 13:06 |
Сообщение № 6

Группа: Друзья

Ранг: Экселист

Сообщений: 5645

Сказочник!

К сообщению приложен файл:

light26.rar
(37.8 Kb)

Быть или не быть, вот в чем загвоздка!

Ответить

Саня

Дата: Среда, 31.08.2011, 13:15 |
Сообщение № 7

Группа: Друзья

Ранг: Ветеран

Сообщений: 1067

Репутация:
560
±

Замечаний:
0% ±

XL 2016

Quote (light26)

а второй вариант не пробовал. это как?

Code

        ‘ — переброс модуля
         Dim Filename As String
         Filename = ThisWorkbook.Path & «tempMod.bas»

WbFrom.VBProject.VBComponents(«имя_модуля»).Export Filename

WbTo.VBProject.VBComponents.Import Filename
Kill Filename

Code

Public Const z As String = vbNewLine
         ‘ — в модуль «ЭтаКнига» ———————————————-
         s = «»
         s = s & «Option Explicit» & z & z

s = s & «Private Sub Workbook_Open()» & z & z

         s = s & »    If Environ(«»UserName»») = «»login»» Then» & z
         s = s & »        Cells(1, » & n & «).EntireColumn.Hidden = False» & z
         s = s & »    End If» & z
         s = s & «End Sub»

Set vbComp = wb.VBProject.VBComponents(«ЭтаКнига»)

         With vbComp.CodeModule
             .InsertLines .CountOfLines + 1, s
         End With

Set vbComp = Nothing

Ответить

light26

Дата: Среда, 31.08.2011, 13:18 |
Сообщение № 8

Группа: Друзья

Ранг: Старожил

Сообщений: 1341

Репутация:
91
±

Замечаний:
0% ±

2007, 2010, 2013

Да нет, правда! Сейчас у меня тоже получилось. а раньше такой мат трехэтажный стоял… )))
Но все-равно. я скопировал вроде все модули, а листа с Private Sub Worksheet_SelectionChange не нашел. в оригинальном файле он был, а тут нету (
не знаю где че не так делаю. буду разбираться. спасибо

Я не волшебник. Я только учусь

Сообщение отредактировал light26 — Среда, 31.08.2011, 13:19

Ответить

RAN

Дата: Среда, 31.08.2011, 13:24 |
Сообщение № 9

Группа: Друзья

Ранг: Экселист

Сообщений: 5645

Quote (light26)

а листа Private Sub Worksheet_SelectionChange не нашел. в оригинальном файле он был, а тут нету

Я же говорю — сказочник!
В оригинале такого листа тоже не было!
А в твоем файле вот он, туточки! tongue

К сообщению приложен файл:

7327651.png
(1.9 Kb)

Быть или не быть, вот в чем загвоздка!

Ответить

light26

Дата: Среда, 31.08.2011, 13:24 |
Сообщение № 10

Группа: Друзья

Ранг: Старожил

Сообщений: 1341

Репутация:
91
±

Замечаний:
0% ±

2007, 2010, 2013

Саня, то-есть мне надо открыть редактор VBA, в VBAProject (Имя файла) (или в имени листа) кликнуть правой кнопкой, выбрать insert, затем Module и в появившееся окно вставить этот код?

Я не волшебник. Я только учусь

Ответить

light26

Дата: Среда, 31.08.2011, 13:26 |
Сообщение № 11

Группа: Друзья

Ранг: Старожил

Сообщений: 1341

Репутация:
91
±

Замечаний:
0% ±

2007, 2010, 2013

Quote (RAN)

А в твоем файле вот он, туточки!

а-а-а-а, а я-то его в модулях искал ))))))
значит эту запись мне тоже надо добавить в самом листе?
Потому что сейчас запись на листе у меня выглядит вот так:

Code

Private Sub Worksheet_Change(ByVal Target As Range)
     Dim arr
     If Target.Count <> 1 Then Exit Sub
     If Not Intersect(Target, Columns(2)) Is Nothing Then
     Application.EnableEvents = False
     arr = www
         If Target = arr(3, 1) Then Target.Offset(, 22) = Format(Now, «hh:nn DD.MM.YYYY»)
         If Target = arr(4, 1) Then Target.Offset(, 23) = Format(Now, «hh:nn DD.MM.YYYY»)
         If Target = arr(5, 1) Then Target.Offset(, 26) = Format(Now, «hh:nn DD.MM.YYYY»)
         If Target = arr(6, 1) Then Target.Offset(, 24) = Format(Now, «hh:nn DD.MM.YYYY»)
         If Target = arr(7, 1) Then Target.Offset(, 25) = Format(Now, «hh:nn DD.MM.YYYY»)
     Application.EnableEvents = True
     End If
End Sub

Я не волшебник. Я только учусь

Сообщение отредактировал light26 — Среда, 31.08.2011, 13:28

Ответить

RAN

Дата: Среда, 31.08.2011, 13:30 |
Сообщение № 12

Группа: Друзья

Ранг: Экселист

Сообщений: 5645

Какую запись добавить?
Я же туда уже все вставил, и даже диапазоны поменял! lol

Быть или не быть, вот в чем загвоздка!

Ответить

Саня

Дата: Среда, 31.08.2011, 13:32 |
Сообщение № 13

Группа: Друзья

Ранг: Ветеран

Сообщений: 1067

Репутация:
560
±

Замечаний:
0% ±

XL 2016

Quote (light26)

Саня, то-есть мне надо открыть редактор VBA, в VBAProject (Имя файла) (или в имени листа) кликнуть правой кнопкой, выбрать insert, затем Module и в появившееся окно вставить этот код?

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

Ответить

light26

Дата: Среда, 31.08.2011, 13:32 |
Сообщение № 14

Группа: Друзья

Ранг: Старожил

Сообщений: 1341

Репутация:
91
±

Замечаний:
0% ±

2007, 2010, 2013

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

Я не волшебник. Я только учусь

Ответить

light26

Дата: Среда, 31.08.2011, 13:34 |
Сообщение № 15

Группа: Друзья

Ранг: Старожил

Сообщений: 1341

Репутация:
91
±

Замечаний:
0% ±

2007, 2010, 2013

Quote (Саня)

я тебе показываю, как в принципе, программируется VBE

у-у-у, до этого мне еще далеко ))))
но все-равно спасибо. )

Я не волшебник. Я только учусь

Ответить

RAN

Дата: Среда, 31.08.2011, 13:37 |
Сообщение № 16

Группа: Друзья

Ранг: Экселист

Сообщений: 5645

Куда делся не знаю, но
Private Sub Worksheet_SelectionChange <>Private Sub Worksheet_Change
Это как-бы две разных процедуры по двум разным событиям

Быть или не быть, вот в чем загвоздка!

Ответить

light26

Дата: Среда, 31.08.2011, 13:37 |
Сообщение № 17

Группа: Друзья

Ранг: Старожил

Сообщений: 1341

Репутация:
91
±

Замечаний:
0% ±

2007, 2010, 2013

RAN, Можно просьбу?
подпиши, пожалуйста, что делает каждая строка. ( с if target я разобрался сам на 95%) )))

Я не волшебник. Я только учусь

Ответить

light26

Дата: Среда, 31.08.2011, 13:44 |
Сообщение № 18

Группа: Друзья

Ранг: Старожил

Сообщений: 1341

Репутация:
91
±

Замечаний:
0% ±

2007, 2010, 2013

Quote (RAN)

Private Sub Worksheet_SelectionChange <>Private Sub Worksheet_Change
Это как-бы две разных процедуры по двум разным событиям

ну и как их «объединить?

Я не волшебник. Я только учусь

Ответить

RAN

Дата: Среда, 31.08.2011, 13:58 |
Сообщение № 19

Группа: Друзья

Ранг: Экселист

Сообщений: 5645

Да никак.
Эти процедуры должны быть обе в модуле листа1
Одна обрабатывает событие перемещения по ячейкам — Private Sub Worksheet_SelectionChange,
а другая — событие изменения значения в ячейке — Private Sub Worksheet_Change

Быть или не быть, вот в чем загвоздка!

Ответить

light26

Дата: Среда, 31.08.2011, 14:09 |
Сообщение № 20

Группа: Друзья

Ранг: Старожил

Сообщений: 1341

Репутация:
91
±

Замечаний:
0% ±

2007, 2010, 2013

Quote (RAN)

Эти процедуры должны быть обе в модуле листа1

а сделать-то это как?

Я не волшебник. Я только учусь

Ответить

Источник

Общие сведения о макросах и VBA

Копирование модуля из одной книги в другую

Дополнительные сведения

Нужна дополнительная помощь?

Saving and Transferring Macros in a Workbook File

Copy Macros with the VBA Editor

Создание и сохранение всех макросов в одной книге

Перемещение макросов на другой компьютер

Перемещение макросов на другой компьютер

Дополнительные сведения

Как перенести макрос на другой компутер?

Копирование модуля макроса в другую книгу

Общие сведения о макросах и VBA

Копирование модуля из одной книги в другую

Дополнительные сведения

Table of Contents:

Скопируйте макрос из одной рабочей книги в другую

Экспорт и импорт макроса

Создание персональной макрокоманды

Как запустить макросы Excel в Mac iWork

Как найти скрытые макросы в электронной таблице Excel

Как записывать и запускать макросы для автоматизации задач в слове

Excel. Макросы. Как перенести готовый макрос в свой файл (Октябрь 2021).

Table of Contents:

Шаг 1

Шаг 2

Шаг 3

Шаг 4

Шаг 5

Как запустить макросы Excel в Mac iWork

Как найти скрытые макросы в электронной таблице Excel

Как использовать Adguard для блокировки рекламы в Microsoft Edge или в любом другом браузере

Автоматический запуск макроса при загрузке документа Word (Октябрь 2021).

Добавить комментарий

Контрольные вопросы

Лабораторная работа №7