Excel 2010 run vba

Excel for Microsoft 365 Excel for Microsoft 365 for Mac Excel 2021 Excel 2021 for Mac Excel 2019 Excel 2019 for Mac Excel 2016 Excel 2016 for Mac Excel 2013 Excel 2010 Excel 2007 Excel Starter 2010 More…Less

There are several ways to run a macro in Microsoft Excel. A macro is an action or a set of actions that you can use to automate tasks. Macros are recorded in the Visual Basic for Applications programming language. You can always run a macro by clicking the Macros command on the Developer tab on the ribbon. Depending on how a macro is assigned to run, you might also be able to run it by pressing a combination shortcut key, by clicking a button on the Quick Access Toolbar or in a custom group on the ribbon, or by clicking on an object, graphic, or control. In addition, you can run a macro automatically whenever you open a workbook.

Before you run macros

Before you start working on macros you should enable the Developer tab.

  • For Windows, go to File > Options > Customize Ribbon.

  • For Mac, go to Excel > Preferences… > Ribbon & Toolbar.

  • Then, in the Customize the Ribbon section, under Main Tabs, check the Developer check box, and press OK.

  1. Open the workbook that contains the macro.

  2. On the Developer tab, in the Code group, click Macros.

  3. In the Macro name box, click the macro that you want to run, and press the Run button.

  4. You also have other choices:

    • Options — Add a shortcut key, or a macro description.

    • Step — This will open the Visual Basic Editor to the first line of the macro. Pressing F8 will let you step through the macro code one line at a time.

    • Edit — This will open the Visual Basic Editor and let you edit the macro code as needed. Once you’ve made changes, you can press F5 to run the macro from the editor.

You can add a combination shortcut key to a macro when you record it, and you can also add one to an existing macro:

  1. On the Developer tab, in the Code group, click Macros.

  2. In the Macro name box, click the macro that you want to assign to a combination shortcut key.

  3. Click Options.

    The Macro Options dialog box appears.

  4. In the Shortcut key box, type any lowercase or uppercase letter that you want to use with the shortcut key.

    Notes: 

    • For Windows, the shortcut key for lowercase letters is Ctrl+letter. For uppercase letters, it’s Ctrl+Shift+Letter.

    • For Mac, the shortcut key for lowercase letters is Option+Command+letter, but Ctrl+letter will work as well. For uppercase letters, it’s Ctrl+Shift+Letter.

    • Be careful assigning shortcut keys, because they will override any equivalent default Excel shortcut key while the workbook that contains the macro is open. For example, if you assign a macro to Ctrl+z, you’ll lose the ability to Undo. Because of this, it’s generally a good idea to use Ctrl+Shift+Uppercase letter instead, like Ctrl+Shift+Z, which doesn’t have an equivalent shortcut in Excel.

    For a list of Ctrl combination shortcut keys that are already assigned in Excel, see the article Excel shortcut and function keys.

  5. In the Description box, type a description of the macro.

  6. Click OK to save your changes, and then click Cancel to close the Macro dialog box.

To run a macro from a button on the Quick Access toolbar, you first have to add the button to the toolbar. To do that, see Assign a macro to a button.

You can create a custom group that appears on a tab in the ribbon, and then assign a macro to a button in that group. For example, you can add a custom group named «My Macros» to the Developer tab, and then add a macro (that appears as a button) to the new group. To do that, see Assign a macro to a button.

Run a macro by clicking an area on a graphic object

You can create a hotspot on a graphic that users can click to run a macro.

  1. In the worksheet, insert a graphic object, such as a picture, or draw a shape. A common scenario is to draw a Rounded Rectangle shape, and format it so it looks like a button.

    To learn about inserting a graphic object, see Add, change, or delete shapes.

  2. Right-click the hotspot that you created, and then click Assign Macro.

  3. Do one of the following:

    • To assign an existing macro to the graphic object, double-click the macro or enter its name in the Macro name box.

    • To record a new macro to assign to the selected graphic object, click Record, type a name for the macro in the Record Macro dialog box, and then click OK to begin recording your macro. When you finish recording the macro, click Stop Recording Button image on the Developer tab in the Code group.

      Tip:  You can also click Stop Recording Button image on the left side of the status bar.

    • To edit an existing macro, click the name of the macro in the Macro name box, and then click Edit.

  4. Click OK.

On the Developer tab, click Visual Basic to launch the Visual Basic Editor (VBE). Browse the Project Explorer to the module that contains the macro you want to run, and open it. All of the macros in that module will be listed in the pane on the right. Select the macro you want to run, by placing your cursor anywhere within the macro, and press F5, or on the menu, go to Run > Run Macro.

Create a Workbook_Open event.

The following example uses the Open event to run a macro when you open the workbook.

  1. Open the workbook where you want to add the macro, or create a new workbook.

  2. On the Developer tab, in the Code group, click Visual Basic.

  3. In the Project Explorer window, right-click the ThisWorkbook object, and then click View Code.

    Tip: If the Project Explorer window is not visible, on the View menu, click Project Explorer.

  4. In the Object list above the Code window, select Workbook.

    This automatically creates an empty procedure for the Open event, such as this:

    Private Sub Workbook_Open()

    End Sub

  5. Add the following lines of code to the procedure:

    Private Sub Workbook_Open()
    MsgBox Date
    Worksheets(«Sheet1»).Range(«A1»).Value = Date
    End Sub

  6. Switch to Excel and save the workbook as a macro-enabled workbook (.xlsm).

  7. Close and reopen the workbook. When you open the workbook again, Excel runs the Workbook_Open procedure, which displays today’s date in a message box.

  8. Click OK in the message box.

    Note: The cell A1 on Sheet1 also contains the date as a result of running the Workbook_Open procedure.

Need more help?

You can always ask an expert in the Excel Tech Community or get support in the Answers community.

Top of Page

See Also

Automatically run a macro when opening a workbook 

Automate tasks with the Macro Recorder

Record a macro to open specific workbooks when Excel starts

Create and save all your macros in a single workbook

Save a macro

Need more help?

VBA is an excellent tool in Microsoft Office suite, including MS Excel application. It can assist you to accomplish a lot of tasks not supported by the native features in Excel. Now, in this article, we will teach you to run VBA code in Excel step by step.

If you intend to write some VBA codes to achieve some of your requirements, you have to firstly figure out how to run VBA code in your Excel. Now, thereinafter, we will use MS Excel 2010 for an instance to show the detailed steps, including how to enable macro, trigger VBA editor and several means to run macro, etc.

Step 1: Show “Developer” Ribbon

  1. First off, launch Excel application.
  2. Then, go to “File” menu and click “Options”.Access "Excel Options"
  3. In the popup “Excel Options” window, turn to “Customize Ribbon” tab.
  4. Next, in the right side, find and check the “Developer” option.Enable "Developer" Ribbon
  5. Finally, click “OK” to enable the modifications.

Step 2: Change Macro Security Settings

Since Excel comes with macro auto disabled in security settings, you need to first change the settings by following the steps below:

  1. At first, in Excel main window, switch to “Developer” ribbon.
  2. Then, click “Macro Security” button in “Code” group.
  3. Next, in the new window, select “Disable all macros except digitally signed macros” or “Enable all macros” option to your liking.Change Macro Security Settings
  4. Lastly, click “OK” to save the changes.

Step 3: Trigger Excel VBA Editor

Excel VBA editor is the place where you put the code. You can get access to it by 2 means.

  1. On “Developer” tab, click the “Visual Basic” button in “Code” group.Trigger Excel VBA Editor
  2. Directly press “Alt + F11” key shortcuts to bring up “Microsoft Visual Basic for Applications” window.

Step 4: Add VBA Code

After entering Excel VBA editor, you need to add your code into either a project or a module.

1. Put Code into Existing Project

As you can see, under expanded “Microsoft Excel Objects” folder, you can see the existing projects, including the projects for each worksheet and the one for the current workbook called “ThisWorkbook”.Existing Projects

  1. To begin with, double click on a project to open its window.
  2. Then, put the code into it.Put Code in Project

2. Put Code into Module

Besides, you can add code to a module by the following steps.

  1. In the first place, click “Insert” button in toolbar.
  2. From the drop down list, select “Module”.Insert Module
  3. Then, in the new module, you can put your code.

Step 5: Run VBA Code

1. Run Macro in VBA Editor

To run VBA in the “Microsoft Visual Basic for Applications” window, you can just press “F5” key button or click the “Run” icon in the toolbar.Run Macro

2. Run Macro through Quick Access Toolbar (QAT)

Moreover, you can add macro to Quick Access Toolbar and run it through QAT by the steps below.

  1. At the outset, go to “File” > “Options”.
  2. In the popup window, access “Quick Access Toolbar” tab.
  3. Then, select “Macros” from the list of “Choose commands from”.Choose Commands from "Macros"
  4. Next, choose the macro in the left side.
  5. Later, click “Add” button in center.Add Macro to Quick Access Toolbar
  6. After that, click “OK” to save the changes to Quick Access Toolbar.
  7. Finally, in the main Excel window, to run this macro, you can click the macro button in Quick Access Toolbar, as shown in the following screenshot.Run Macro Through Quick Access Toolbar

3. Run Macro through Ribbon

In addition, like Quick Access Toolbar, you can add and run macro in ribbon.

  1. For a start, access “File” menu and hit “Options”.
  2. In “Excel Options”, go to “Customize Ribbon”.
  3. Then, create a new group on “Home” tab by “New Group”.
  4. Optionally, you can rename this group by “Rename…” button.Create Custom Group in Ribbon
  5. Subsequently, select “Macros” in the list of “Choose commands from”.
  6. After that, pitch on the desired macro in the left side.
  7. Next, click the “Add” button to add this macro to the new group.Add Macro to Custom Group in Ribbon
  8. Eventually, click “OK” to save options.
  9. Since then, to run this macro, you can click the newly added macro button in ribbon.Run Macro in Ribbon

Author Introduction:

Shirley Zhang is a data recovery expert in DataNumen, Inc., which is the world leader in data recovery technologies, including mdf recovery and outlook repair software products. For more information visit www.datanumen.com

Перейти к содержанию

На чтение 3 мин Опубликовано 27.10.2015

Это краткое пошаговое руководство предназначено для начинающих пользователей и рассказывает о том, как вставлять код VBA (Visual Basic for Applications) в книгу Excel, и как запускать вставленный макрос для выполнения различных задач на этом листе.

Большинство пользователей не являются гуру Microsoft Office. Они могут не знать всех тонкостей работы той или иной функции, и не смогут ответить на вопрос, как отличается скорость выполнения макроса VBA в Excel 2010 и 2013. Многие просто используют Excel, как инструмент для обработки данных.

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

  • Вставляем код VBA в книгу Excel
  • Запускаем макрос VBA в Excel

Вставляем код VBA в книгу Excel

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

    1. Открываем рабочую книгу в Excel.
    2. Нажатием Alt+F11 вызываем окно редактора Visual BasicВставляем и запускаем макрос в Excel
    3. На панели Project-VBAProject кликаем правой кнопкой мыши по имени рабочей книги (в левой верхней части окна редактора) и в контекстном меню выбираем Insert > Module.Вставляем и запускаем макрос в Excel
    4. Копируем код VBA (с веб-страницы или из другого источника) и вставляем его в правую область редактора VBA (окно Module1).Вставляем и запускаем макрос в ExcelПодсказка: Как увеличить скорость выполнения макроса?

      В самом начале кода Вашего макроса VBA должны содержаться строки:

      Application.ScreenUpdating = False
      Application.Calculation = xlCalculationManual

      Если таких строк нет, то обязательно добавьте следующие строки в свой макрос, чтобы он работал быстрее (см. рисунок выше):

      • В самое начало кода после всех строк, начинающихся с Dim (если строк, начинающихся с Dim нет, то вставляем сразу после строки Sub):

        Application.ScreenUpdating = False
        Application.Calculation = xlCalculationManual

      • В самый конец кода, перед End Sub:

        Application.ScreenUpdating = True
        Application.Calculation = xlCalculationAutomatic

      Эти строки, как можно понять из их содержания, отключают обновление экрана и пересчёт формул рабочей книги перед выполнением макроса. После выполнения кода эти параметры снова включаются. Данный приём приводит к ускорению выполнения макроса от 10% до 500% (да, макрос может работать в 5 раз быстрее, если манипуляции над ячейками происходят без лишних остановок).

    5. Сохраняем рабочую книгу, как книгу Excel с поддержкой макросов. Для этого нажмите Ctrl+S и в окне с предупреждением Следующие компоненты невозможно сохранить в книге без поддержки макросов (The following features cannot be saved in macro-free workbook) нажмите Нет (No).Вставляем и запускаем макрос в ExcelОткроется диалоговое окно Сохранение документа (Save as). В выпадающем списке Тип файла (Save as type) выбираем Книга Excel с поддержкой макросов (Excel macro-enabled workbook) и нажимаем кнопку Сохранить (Save).

Вставляем и запускаем макрос в Excel

  1. Нажимаем Alt+Q, чтобы закрыть окно редактора VBA и вернуться к книге Excel.

Запускаем макрос VBA в Excel

Чтобы запустить только что добавленный макрос, нажмите Alt+F8. Откроется диалоговое окно Макрос (Macro). В списке Имя макроса (Macro name) выберите нужный макрос и нажмите кнопку Выполнить (Run).

Вставляем и запускаем макрос в Excel

Оцените качество статьи. Нам важно ваше мнение:

totn Excel 2010 VBA Environment


This Excel tutorial explains how to open the Visual Basic Editor in Excel 2010 (with screenshots and step-by-step instructions).

How to open the VBA environment

You can access the VBA environment in Excel 2010 by opening the Microsoft Visual Basic for Applications window.

First, be sure that the Developer tab is visible in the toolbar in Excel.

Microsoft Excel

The Developer tab is the toolbar that has the buttons to open the VBA editor and create Form/ActiveX Controls like buttons, checkboxes, etc.

To display the Developer tab, click on File in the menu bar and select Options from the drop down menu.

Microsoft Excel

When the Excel Options window appears, click on the Customize Ribbon option on the left. Click on the Developer checkbox under the list of Main Tabs on the right. Then click on the OK button.

Microsoft Excel

Select the Developer tab from the toolbar at the top of the screen. Then click on the Visual Basic option in the Code group.

Microsoft Excel

Now the Microsoft Visual Basic editor should appear and you can view your VBA code.

Microsoft Excel

Как в Excel 2010 или 2013 вставить и запустить код VBA – руководство для начинающих

​Смотрите также​Aleksey1404​ :-), то его​ назад, и взгляни​ что от него​ и даже выделено​ описать одной строкой.​повторюсь: моя функция​ Приведите код​Next​ .Name Then: _​Щелкните Популярное и​

​в меню​ должен быть введён​ книге. Изначально в​Нажимаем​Как увеличить скорость​Это краткое пошаговое руководство​:​ внутренний макрос запускается​ на свои коды.​ хочет компилятор при​ какая. Что мешает​опиши одной строкой​ абстрагируется от (свой,​Michael_S​Deep = Deep​

​Debug.Print fn​ затем установите флажок​View​ в​ него входят:​Alt+Q​ выполнения макроса?​ предназначено для начинающих​Aleksey1404​ и не дает​И переменные из​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Option Expicit​ объявить? Это же​ алгоритм сортировки (без​

  • ​ чужой и т.п.).​: Vitalts, Все, разобрался.​
  • ​ — 1​fn = Dir​

Вставляем код VBA в книгу Excel

​ Показывать вкладку «Разработчик»​редактора Visual Basic.​Class Module​Объект​, чтобы закрыть окно​В самом начале кода​

    1. ​ пользователей и рассказывает​, Вы наверно не​
    2. ​ мне возможность сделать​​ одной буквы, и​​я тут не​ пример )​Вставляем и запускаем макрос в Excel
    3. ​ выгрузки на лист)​​ Она просто возвращает​​ Не туда​End If​Loop​ на ленте.​ В этом окне​;​ЭтаКнига​​ редактора VBA и​​ Вашего макроса VBA​​ о том, как​​ с того конца​Вставляем и запускаем макрос в Excel
    4. ​ то, что я​ Iif сплошь и​ при чем )​Цитата​Цитата​ список файлов папки.​​Set wb = Workbooks.Open(ActiveWorkbook.Path​​If Deep =​Вставляем и запускаем макрос в Excel​End With​​Примечание. Лента является​ отображаются все переменные,​

      ​Если нужно создать диалоговое​(ThisWorkbook), привязанный к​ вернуться к книге​

      ​ должны содержаться строки:​
      ​ вставлять код VBA​

      ​ начали программу писать​ хочу с ним​ рядом, и еще​Цитата​(Michael_S)200?’200px’:»+(this.scrollHeight+5)+’px’);»>У каждого свои​(KuklP)200?’200px’:»+(this.scrollHeight+5)+’px’);»>Что легче можно​

      • ​ При желании может​ & «» &​ -1 Then​​Ну и собственно,​​ частью интерфейса «Пользовательский​ объявленные в текущей​​ окно для взаимодействия​​ книге Excel;​ Excel.​​Application.ScreenUpdating = False​​ (Visual Basic for​

        ​Сначала следовало забить​
        ​ сделать.​

      • ​ куча всего, что​(KuklP)200?’200px’:»+(this.scrollHeight+5)+’px’);»>Ты упорно пытаешься​​ понятия «правильности»​​ будет понять и​

        ​ делать это рекурсивно.​
        ​ fn)​

      ​Set GetFileList =​ открытие книги по​ интерфейс Microsoft Office​ процедуре. Окно делится​ с пользователем, то​Объекты​Чтобы запустить только что​Application.Calculation = xlCalculationManual​ Applications) в книгу​ в форму код,​1) Насчет изменить​ ты сейчас критикуешь!​ доказать всем участникам​вообще-то нет​ отредактировать?​Функцию можно подключить​впихивал.​ List​

    5. ​ названию файла и​ Fluent».​ на столбцы, в​ можно использовать​​Лист​​ добавленный макрос, нажмите​Если таких строк нет,​​ Excel, и как​а потом в​ атрибут read only​​в том то​ темы​Правильность она «одна​подозреваю, что эту​​ и не вносить​​Еще раз спасибо.​Вставляем и запускаем макрос в Excel​Set List =​​ папки активной:​​В меню Справка​ которых содержатся имя,​​Userform​​(Sheet), привязанные к​Alt+F8​​ то обязательно добавьте​ запускать вставленный макрос​​ прятки с​ не знаю, не​​ и дело. Я​​я отстаиваю свою​

Вставляем и запускаем макрос в Excel

  1. ​ на всех мы​​ длинную строку будет​​ существенных изменений в​nerv​ Nothing​Код200?’200px’:»+(this.scrollHeight+5)+’px’);»>Set wb =​

Запускаем макрос VBA в Excel

​ выберите пункт Справка:​ значение и тип​​.​​ каждому листу текущей​​. Откроется диалоговое окно​​ следующие строки в​​ для выполнения различных​​Excel​ пробовал, но думаю​ сам делал так​​ точку зрения​​ за ценой не​

Вставляем и запускаем макрос в Excel

​ сложнее понять и​ основную программу (добавляется​
​: просто вы не​
​Set FSO =​

​ Workbooks.Open(ActiveWorkbook.Path & «»​

office-guru.ru

Редактор Visual Basic в Excel

​ Microsoft Visual Basic.​ каждой переменной, и​Двойной щелчок мышью по​ рабочей книги Excel.​Макрос​ свой макрос, чтобы​ задач на этом​`ем играть.​ API поможет, проблемы​ (писал ужасный, говеный​Цитата​ постоим», только это​

Запуск редактора Visual Basic

​ отредактировать, чем много​ одна строка вызова​ писали МНОГО кода​ Nothing​​ & fn)​​Роман царьков​ эта информация обновляется​​ любому объекту в​​Самостоятельно в проект можно​(Macro). В списке​​ он работал быстрее​​ листе.​Странно, у меня​ конечно с сетевыми​ код) и не​(KuklP)200?’200px’:»+(this.scrollHeight+5)+’px’);»>и правда думаешь,​ не все понимают​ правильных/правильно_отформатированных строк​ функции).​

Редактор Visual Basic в Excel

Окна редактора Visual Basic

​Когда перед тобой​Deep = 0​—​: кнопка Visual Basic​ автоматически в ходе​ окне​ добавить объекты​Имя макроса​ (см. рисунок выше):​Большинство пользователей не являются​shift​

Окно проекта (Project)

​ правами на редактирование​​ хочу, чтобы кто-нибудь​​ что кому-то интересно​ )​Цитата​Цитата​ 1000+ строк в​End If​PS: что-то код​ подсвечена серым и​ выполнения программы. Окно​Project​Userform​(Macro name) выберите​В самое начало кода​ гуру Microsoft Office.​

  • ​позволяет открыть файл​​ файла.​​ еще наступал на​ искать все твои​
  • ​Цитата​​(KuklP)200?’200px’:»+(this.scrollHeight+5)+’px’);»>Ведро картошки можно​​(KuklP)200?’200px’:»+(this.scrollHeight+5)+’px’);»>Я уж не​ одном только модуле,​End Function​Редактор Visual Basic в Excel

​ при каждом релоаде​ не работает как​​Locals​​открывает соответствующее окно​​,​​ нужный макрос и​​ после всех строк,​​ Они могут не​ в​2) Запретить выполнение​ эти грабли. Это​ сообщения выискивая в​​(Michael_S)200?’200px’:»+(this.scrollHeight+5)+’px’);»>Саш, мы уже​​ отвезти на мопеде,​​ говорю о размере​​ нет желания разбирать​​впрочем, уже вижу​​ по разному кажет,​

​ быть?​очень полезно при​​Code​​Module​​ нажмите кнопку​​ начинающихся с​​ знать всех тонкостей​​Excel​

  • ​ макроса можно, я​​ ж очевидно )​​ них «перлы» а​ как-то говорили на​ не нужен для​ кода.​ и додумывать. Хочется​
  • ​ косяк​​ пофиксил форматирование​​Юрик​ отладке кода VBA.​​, предназначенное для ввода​​и​​Выполнить​​Dim​​ работы той или​​без автозапуска макросов​

​ в Инете нашел​Tigerskin​ ля nerv?​ эту тему; твои​ этого БелАз​Качество кода не​ просто читать. Максимально​

  • ​но не критичный​nerv​: Меню: Сервис -​Окно​​ кода VBA с​​Class Module​
  • ​(Run).​(если строк, начинающихся​ иной функции, и​IvanOK​​ решение, надо включить​​: Реально ли такое?​
  • ​если мне говорят,​ доводы отчасти верны,​его можно донести​​ измеряется его размером.​​ быстро читать понятный​
  • ​ )​: Зачем же такие​ Макрос — Редактор​​Watches​​ клавиатуры. На одном​
  • ​. Если Вы посмотрите​Урок подготовлен для Вас​ с​ не смогут ответить​​: открылось когда жал​​ событие Application.EnableEvents =​

Окно кода (Code)

​Например пользователь открыл​ что я не​ но не для​​ в руках, если​​ Вообще, не понимаю,​​ не двусмысленный код.​​Vitalts​ извороты? не проще​ Visual Basic.​также очень помогает​ из приведённых выше​ на картинку выше,​​ командой сайта office-guru.ru​​Dim​

​ на вопрос, как​ шифт в самом​​ False перед открытием​​ файл с названием​ прав, я спрашиваю​ всех случаев​ на то пошло.​ почему форумчан беспокоит​ «С недавних пор»​

Окно свойств (Properties)

​:​​ воспользоватся многострочным If?​​Или просто Alt​ при отладке кода​ рисунков показано окно​ то увидите, что​Источник: https://www.ablebits.com/office-addins-blog/2013/12/06/add-run-vba-macro-excel/​нет, то вставляем​ отличается скорость выполнения​ экселе Файл-открыть, а​ файла и делай​ Тест.xls, расположенный на​ в чем, а​

Редактор Visual Basic в Excel

Окно отладчика (Immediate)

​для каких случаев​​ Речь не об​​ размер (не только​ однострочный If я​nerv​​мой велосипед. Особо​​ — F11.​​ VBA, так как​​ кода для​ в проект VBA​​Перевел: Антон Андронов​​ сразу после строки​ макроса VBA в​ не щелкая по​ с ним, што​ общем сетевом ресурсе.​ не заведомо соглашаюсь​ мои доводы не​ этом. Как только​ этого) кода, если​

​ не использую вообще​​, эээ, и вы​​ не тестировал, но​​Саня​​ в нём можно​Module1​ для книги​​Автор: Антон Андронов​​Sub​

Редактор Visual Basic в Excel

Окно переменных (Locals)

​ Excel 2010 и​​ самому файлу)))​​ хош :-)​​ Включаю процедуру и​​Цитата​​ верны?​​ Михаилу потребуется изменить​ код написан должным​ )​ утверждаете что у​ должен работать )​: Хм… Вообще, если​ увидеть значение, тип​.​Book1.xlsm​В этой главе даётся​):​ 2013. Многие просто​​IvanOK​​Application.EnableEvents = False​ по ходу её​

Редактор Visual Basic в Excel

Окно отслеживания (Watches)

​(KuklP)200?’200px’:»+(this.scrollHeight+5)+’px’);»>Растеряешь друзей.​​KuklP​​ что-то в коде,​ образом? Подключили, забыли.​Цитата​ меня извороты?​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Sub Example()​ я не ошибаюсь,​ и контекст любого​По мере ввода кода​добавлен объект​​ очень краткий обзор​​Application.ScreenUpdating = False​​ используют Excel, как​​: при етом коде​​ Application.Workbooks.Open «test.xls», False​​ выполнения необходимо записать​т.е. если наши​​: Саш, ты посмотри​​ ему придется ковырять​ Если хотите по​(Michael_S)200?’200px’:»+(this.scrollHeight+5)+’px’);»>жалуется на Mask​

Редактор Visual Basic в Excel

​Чем вам Dir​Set Folder =​

  1. ​ то в MS​ отслеживаемого выражения, которое​
  2. ​ VBA в окно​​Module​​ редактора Visual Basic​​Application.Calculation = xlCalculationManual​​ инструмент для обработки​
  3. ​ появляется ексель, потом​​ Application.EnableEvents = True​​ данные в этот​

​ мнения не совпадают,​ на себя со​ всю логику, в​ прежнему заниматься ручной​Это та самая​ не угодил?​ GetFileList(«d:Contacts»)​ Office есть такая​

​ задаст пользователь. Чтобы​Code​
​с названием​
​ в Excel. Если​

​В самый конец кода,​

office-guru.ru

Как открыть visual basic через excel в office 2007?

​ данных.​​ исчезает, потом появляется​

​Assassinys​​ файл. Пользовательские изменения​
​ то я уже​ стороны. Ты упорно​ т.ч. логику получения​

​ обсфукацией, экономить на​​ ошибка, о кот.​Похоже, изначально не​
​End Sub​ фишка — макросы.​
​ открыть окно​, редактор Visual Basic​Module1​
​ Вы любознательный читатель​ перед​Предположим, нужно изменить данные​ сама форма, а​
​: Собственно меня интересует​ — нафик не​ автоматически не друг,​ пытаешься доказать всем​
​ имени файла из​ каждой букве, пожалуйста.​ я говорил. Замените​

​ правильно понял вас.​​’ —————————————-​ Вот эти макросы​Watches​ следит за правильностью​

Как в excel открыть visual basic???

​.​​ и хотите узнать​End Sub​ на листе Excel​
​ есель исчезает как​ как возможно открыть​

​ нужны, а то​​ потому, что «мнения​ участникам темы, что​ папки. В моем​Я пишу универсальные​ Mask на Filter.​ В данном случае,​’ Returns collection​ пишутся на VB.​, нажмите​ ввода, ищет ошибки​Вот как можно создать​ еще больше информации​:​
​ определённым образом. Мы​ ето избежать тоесть​ форму в документе​

​ что делает макрос​​ друзей должны совпадать​ твой громоздкий, глючный​ случае это не​
​ функции, кот. таскаю​Цитата​

Открыть файл excel. (VBA) (Задача вроде простая, но…)

​ мне караз таки​​ files of folder​ Но что бы​Watch Window​ в коде и​ новый объект​ о редакторе, то​Application.ScreenUpdating = True​ немало погуглили и​ нужно что бы​ эксель но так​ — очень даже….​ всегда»? (это следует​ в таком виде​ требуется, т.к. вынесено​
​ (использую) из проекта​(Vitalts)200?’200px’:»+(this.scrollHeight+5)+’px’);»>В данном случае,​

​ было удобнее воспользоваться​​’​ Exel’ем открыть проект…​

​в меню​​ выделяет код, который​Userform​ при желании без​Application.Calculation = xlCalculationAutomatic​
​ нашли макрос VBA,​
​ просто появилась форма​ что бы была​
​ Понимаю - можно​
​ из твоих слов)​ код лучше, чем​
​ в функцию. Если​ в проект. Мне​
​ мне караз таки​ однострочным if, дабы​
​' @param {String}​
​ ну тока если​
​View​
​ требует исправления.​

​,​ проблем найдете ресурсы​Эти строки, как можно​ который решает эту​
​ в невидемом екселепоявилась​ видна только форма​ этот файл сделать​
​Цитата​
​ пятистрочный код Vitalts.​ ему потребуется проверять​ это не мешает​ было удобнее воспользоваться​

​ не закрывать, а​​ Path The path​ скопировать исходник, создать​редактора Visual Basic.​
​В окне​Module​ с более подробным​
​ понять из их​
​ задачу. Однако, наше​ просто форма​
​ при открытии документа​
​ для всех пользователей​
​(RAN)200?'200px':''+(this.scrollHeight+5)+'px');">но вся проблема​Я понимаю, если​
​ вложенные каталоги, ему​
​ ) Если вам​ однострочным if, дабы​ перенос для наглядности.​
​ to folder​ макрос и туда​ Также окно​
​Properties​или​
​ описанием.​
​ содержания, отключают обновление​ знание VBA оставляет​есть ли у​
​ а сам документ​ - только для​ в том -​
​ бы ты девушке,​ придется писать новый​
​ нравиться каждый раз​ не закрывать, а​
​Кстати, проверки названий​' @param {String}​
​ код вставить)​Watches​
​перечислены свойства объекта,​Class Module​
​Простейший способ запустить редактор​ экрана и пересчёт​
​ желать лучшего. Вот​ кого каки ето​
​ был скрыт или​ чтения. Но их​
​ что она одна,​
​ далекой от Экса,​
​ алгоритм (перебирать всю​ переписывать весь код,​
​ перенос для наглядности.​ файлов на самого​
​ [Filter] The file​Тока придётся ещё​
​будет открыто автоматически,​
​ который в момент​
​:​
​ Visual Basic в​ формул рабочей книги​
​ тут-то и придёт​ варианты решения етой​
​ свернут?​
​ на самом деле​
​ но для всех​ это доказывал. Или​
​ логику, вносить изменения,​
​ я не против​для наглядности многострочный​
​ себя у вас​ filter​
​ и форму там​ если задать отслеживаемое​
​ создания (не в​В окне​
​ Excel – нажать​
​ перед выполнением макроса.​
​ на помощь пошаговая​

​ проблемы​аналитика​smile​ много — этих​ разная!​

​ ты всех нас​​ отлаживать и т.п.​​Serge_007​​ If. В вашем​ нет.​’ @return {Collection}​smile​ чертить новую :)​ выражение.​
​ процессе выполнения программы)​Project​ комбинацию клавиш​ После выполнения кода​ инструкция, с помощью​IvanOK​: в модуль «ЭтаКнига»:​ файлов. Прошу совета!!!​
​Не поверишь, есть​ дураками считаешь?​ всю программу, а​: Точно так же​

​ случае это неочевидность.​​Michael_S​ FileList​Олег филатов​
​Чтобы задать отслеживаемое выражение,​ выделен в окне​выберите рабочую книгу,​​Alt+F11​​ эти параметры снова​ которой мы сможем​:​sub workbook_open() application.visible=false​ Подходят два варианта:​
​ нюансы, но в​
​Цитата​ не отдельную функцию).​ как и формул.​Цитата​

​: Vitalts, в вашем​​’ —————————————-​​: Вот Вам руководство​​ нужно:​ проекта. Эти свойства​ в которую нужно​(то есть нажать​ включаются. Данный приём​ использовать найденный код.​IvanOK​ yourform.show end sub​
​1. Макрос пользователя​ целом правильность одинаковая​(nerv)200?’200px’:»+(this.scrollHeight+5)+’px’);»>для каких случаев​Если вы предпочитаете​ Кстати и скорость​(Vitalts)200?’200px’:»+(this.scrollHeight+5)+’px’);»>Кстати, проверки названий​ варианте не хочет​Private Function GetFileList(ByVal​ по его использованию​
​Выделить выражение в редактируемом​ могут быть различными​ добавить объект, и​

​ клавишу​​ приводит к ускорению​Вставляем код VBA в​​, На горе программист:​Assassinys​ обламывает и «захватывает»​​Я общаюсь не​
​ мои доводы не​

​ закладывать фундамент дома​​ тоже от длинны​ файлов на самого​smile​ открывать файл (error)​ Path As String,​ (в приложении) :​ коде VBA.​ в зависимости от​ кликните по ней​Alt​ выполнения макроса от​ книгу Excel​ThisWorkbook.Windows.Application.Visible = False​: не работает(​ права на изменение​
​ только (и уже​​ верны? — и​
​ из спичек, я​ не всегда зависит​ себя у вас​nerv, Саш, в​
​ _​​[ссылка заблокирована по​В меню​ типа выделенного объекта​ правой кнопкой мыши.​и, удерживая её,​ 10% до 500%​
​Запускаем макрос VBA в​ UserForm1.Show​Assassinys​
​ файла. Возможно ли?​​ не столько) на​ правда думаешь, что​ не против, но​Однако ты прав,​
​ нет.​ вашем варианте жалуется​Optional ByVal Filter​ решению администрации проекта]​Debug​ (лист, книга, модуль​В появившемся меню кликните​ нажать клавишу​ (да, макрос может​

​ Excel​​eagl69​:​2. Создавать нужные​
​ форумах по эксель,​ кому-то интересно искать​ сам стараюсь этого​ форумчан это очень​функция, представленная мной​ на​ As String =​Michael_S​редактора VBA нажать​ и другие).​

​Insert​​F11​ работать в 5​В этом примере мы​smile​:​Assassinys​ файлы (создавать макросами)​
​ и почему то​​ все твои сообщения​ не делать​ беспокоит​
​ возвращает список файлов​Mask​ «*») As Collection​: Все, что об​Quick Watch​Окно​и в раскрывшемся​
​). После этого откроется​ раз быстрее, если​ будем использовать VBA​inv.DS​, работает.​ и сразу при​
​ везде (кроме известных​​ выискивая в них​Цитата​Мы все тут​
​ заданной папки. Понятия​и что он​Static List As​ этом файле известно​.​Immediate​ меню выберите​ окно редактора Visual​ манипуляции над ячейками​ макрос, который удаляет​,​Код надо поместить​
​ этом ставить «только​ мне форумов по​ «перлы» а ля​(Serge_007)200?’200px’:»+(this.scrollHeight+5)+’px’);»>Кстати и скорость​ хотим размер покороче​ «самого себя» здесь​ должен делать мне​ New Collection​ — он находится​smile

​Нажать​​можно отобразить в​Userform​ Basic, как показано​ происходят без лишних​ переносы строк из​
​inv.DS​ куда и сказано​ для чтения», при​
​ эксель) правильность одна.​ nerv? Хочешь быть​ тоже от длинны​ и даже соревнуемся​ нет, т.к. функции​ не понятно. У​biggrin

​Static FSO As​​ в той же​Add​ редакторе Visual Basic​,​ на картинке ниже.​ остановок).​ ячеек текущего листа​, неа ефекто тот​ -​ этом за макросом​ Я никому не​ нарциссом — ради​ не всегда зависит​ в этом постоянно​​ все равно, откуда​​ меня задача -​ Object​biggrin

​ папке, где и​​.​ через меню​smile
​Module​​ Имейте ввиду, что​Сохраняем рабочую книгу, как​ Excel.​ же….​в модуль «Эта книга»​
​ должно оставаться право​ навязывал, даже не​ Бога. Растеряешь друзей.​
​зависит от алгоритма,​​ в специально созданном​ она вызывается. Думаю,​ открыть файл.​
​Static Deep As​ основной, и других​Кроме рассмотренных, в меню​View​или​
​ окно Excel остается​​ книгу Excel с​Открываем рабочую книгу в​нужно сделать до​yourform​
​ менять этот файл.​ обсуждал этот вопрос​RAN​ а не от​ для этого разделе​ несложно удалить из​За помощь спасибо.​ Integer​ файлов в этой​ редактора Visual Basic​>​Class Module​ открытым и находится​ поддержкой макросов. Для​ Excel.​ sub workbook_open() иначе​заменить на свое,​ А также за​ (с совершенно посторонними​: Саш, это, конечно​ кол-ва букв )​KuklP​ коллекции лишний Item.​
​зы. кстати, везде,​Dim SubFolder As​ папке нет. И​ в Excel существует​Immediate Window​.​smile
​ позади окна редактора.​​ этого нажмите​Нажатием​ ефект полюбому останется….​
​ например, у меня​ главным юзером -​ людьми), но исходя​
​ правильно​​Цитата​: Еще как измеряется.​KuklP​ где возможно, я​ Object​ что он -​
​ ещё множество параметров​smile

​или нажатием комбинации​​Для каждого из описанных​В процессе работы в​
​Ctrl+S​Alt+F11​ потому что сначала​Userform1​ то бишь мной​ из их сообщений,​

​но вся проблема​​(Serge_007)200?’200px’:»+(this.scrollHeight+5)+’px’);»>Мы все тут​ Можно написать на​sad

​: Саша, ты из​​ тоже предпочитаю однострочный​Dim Folder As​smile​ эксель. Ни имя​ и команд, используемых​ клавиш​ выше объектов предусмотрено​ редакторе Visual Basic​и в окне​
​вызываем окно редактора​​ открываеться ексель а​Aleksey1404​
​ ) Как это​smile​ очевидно, что правильность​ в том -​ хотим размер покороче​ 10 страниц «правильного»​ пушки по воробьям​ If.​
​ Object​​ и расширение файла,​ при создании, выполнении​Ctrl+G​ специальное окно, в​ в Excel могут​ с предупреждением​
​ Visual Basic​ потом он выполняет​: Да заработало ,​

​ сделать?​​ одна. Это видно​ что она одна,​ и даже соревнуемся​ кода, а можно​ стреляешь. Миша пишет:​Vitalts​Dim File As​ а также имя​ и отладке кода​
​. Это окно помогает​ котором будет создаваться​ быть открыты различные​Следующие компоненты невозможно сохранить​На панели​ макрос​​ я просто имя​​VladConn​ по коду, по​ но для всех​ в этом постоянно​ то же действие​Т.е. первый же​:​ Object​ и расположение папки​ VBA.​ при отладке кода.​

​ и храниться новый​​ окна. Управление окнами​ в книге без​
​Project-VBAProject​IvanOK​ формы некорректное выбирал​: Ya ne uveren,​ его стилю. Т.е.​
​ разная!​ в специально созданном​ описать одной строкой.​
​ файл с несовпадающим​Michael_S​If FSO Is​ не известны.​Урок подготовлен для Вас​ Оно выполняет роль​
​ код VBA. Порядок​ осуществляется в меню​
​ поддержки макросов​кликаем правой кнопкой​
​, Вы бредите! Все​

​Апострофф​​ chto eto to,​ все хорошие прогеры​Ты откатись чуть​ для этого разделе​ Что легче можно​ именем — нужный.​
​, что значит не​
​ Nothing Then​Возможно? Если возможно​
​ командой сайта office-guru.ru​​ области вывода для​ при этом такой:​ View, которое находится​
​(The following features​ мыши по имени​
​ работает у меня​​: А как обратно​ chto nado, no​ видя код говорят,​ назад, и взгляни​за рекламу 5​ будет понять и​
​ Вариант Vitalts гораздо​ хочет? Без кода​Set FSO =​ — как?​Источник: http://www.excelfunctions.net/Visual-Basic-Editor.html​
​ отладки выражений и​​Код, который относится к​
​ в верхней части​ cannot be saved​ рабочей книги (в​ остается только 1​ открыть файл для​ mozhno poigrat’sya s​ «что такое хорошо,​ на свои коды.​
​Michael_S​​ отредактировать? Ведро картошки​ лучше подходит для​ я не могу​ CreateObject(«Scripting.FileSystemObject»)​nerv​
​Перевел: Антон Андронов​ позволяет вычислять отдельные​ рабочей книге, должен​smile​ окна редактора VBA.​ in macro-free workbook)​ левой верхней части​ форма активная, сам​ редактирования (((​ Application.​ а что такое​И переменные из​: У каждого свои​ можно отвезти на​ этого случая и​ сказать где у​End If​: Получить список файлов​Автор: Антон Андронов​ выражения или выполнять​ быть введён в​ Ниже дано описание​ нажмите​ окна редактора) и​ Excel прячется.​Aleksey1404​AutomationSecurity​ плохо». Почему надо​ одной буквы, и​
​ понятия «правильности»​​ мопеде, не нужен​ не привлекает внешних​
​ вас ошибка, ибо​If FSO.FolderExists(Path) Then​ папки​Виталик александровский​ строки кода по​ соответствующий объект​ отдельных окон.​smile
​Нет​​ в контекстном меню​inv.DS​: Разве не очевидно?​
​100g​ делать так, а​ Iif сплошь и​Саш, мы уже​ для этого БелАз.​ библиотек. Я уж​
​ код замечательно работает.​Set Folder =​Vitalts​: Alt плюс F11​ одной.​ЭтаКнига​Окно​(No).​ выбираем​

excelworld.ru

Открыть файл Excel-я макросом и взять его на редактирование

​, ето вы просто​​ Application.Visible = True​
​: Создаешь новую книгу,​ не иначе.​ рядом, и еще​ как-то говорили на​ Но если тебе​ не говорю о​ Ни один год​ FSO.GetFolder(Path)​: Все названия Excel​Gkp090​Например, введите выражение «​(ThisWorkbook);​Project​Откроется диалоговое окно​Insert​ не замечаете не​Апострофф​ сохраняешь и ставишь​Цитата​ куча всего, что​ эту тему; твои​ так​
​ размере кода.​ пользуюсь подобными методами.​For Each File​ файлов в папке​
​: VBA​?j​Код, который относится к​открывается в левой​Сохранение документа​>​ мощном ПК, а​: Может есть какое-то​ пароль на запись,​(KuklP)200?’200px’:»+(this.scrollHeight+5)+’px’);»>Хочешь быть нарциссом​ ты сейчас критикуешь!​ доводы отчасти верны,​нравитЬся​

​nerv​​Попробуйте вывести название​ In Folder.Files​ активной книги, исключая​в настройках выставить​» и нажмите​​ рабочему листу, должен​

​ части редактора VBA​​(Save as). В​Module​ я говорю делоВ​ сочетание клавиш, позволяющее​
​ закрываешь:​ — ради Бога​Мне Вася уронил​
​ но не для​

​, я тоже не​​: Я ни в​ файла, который пытаетесь​If File.Name Like​ ее:​ «Показывать вкладку Разработчик​Enter​ быть введён в​ (показано на картинке​ выпадающем списке​.​ продолжение темы:​
​ открыть файл без​Workbooks.Add ActiveWorkbook.SaveAs Filename:=»C:Text1.xls»,​Хоть Жераром Депардье​ молоток на голову!​ всех случаев.​ против​ кого не стреляю,​ открыть, возможно, лимит​
​ Filter Then​200?’200px’:»+(this.scrollHeight+5)+’px’);»>​ на ленте»​– в результате​ соответствующий объект​ выше). В этом​Тип файла​Копируем код VBA (с​Private Sub CommandButton8_Click()​
​ отработки макроса(shift не​ WriteResPassword:=»12345″ ActiveWorkbook.CloseКогда надо​ или психом в​

CyberForum.ru

Как открыть форму, а Excel скрыть или вовсе не открывать

​И что вы​​Michael_S​nerv​ я животных люблю​ исчерпан, и идет​List.Add File​Dim fn As​Александр к​ будет выведено текущее​Лист​ окне для каждой​

​(Save as type)​​ веб-страницы или из​
​ Application.Visible = False​ помогает), т.к. у​

​ редактировать открываешь так:​​ белой рубашке с​

​ ему сказали?​​: То же не​​: чуть меньше неверно,​​Я привел написанный​
​ попытка открыть файл​End If​ String​​: На вкладке Разработчик​
​ значение переменной​​(Sheet);​ открытой рабочей книги​​ выбираем​

​ другого источника) и​​ End Sub Private​ меня отображается форма,​Workbooks.Open Filename:=»C:Text1.xls», WriteResPassword:=»12345″​

​ пеной у рта​​Ты…, Вася…, неправ!!!!!!!!!​ работает​ чем полностью​

​ мной ранее код​​ с пустым названием.​Next​

​With ActiveWorkbook​​ щелкните Visual Basic.​j​Код более общего характера​ создаётся проект VBA​Книга Excel с поддержкой​ вставляем его в​ Sub CommandButton9_Click() Application.Visible​ но я не​R1001​ (в ваших глазах).​nerv​nerv​

​Цитата​​ (под свои нужды)​​ Не совершенство кода,​​For Each SubFolder​fn = Dir(.Path​Если Вкладка Разработчик​
​.​ должен быть введён​
​ (VBA Project). Проект​ макросов​​ правую область редактора​​ = True End​
​ могу добавить код​​: Я сталкивался с​​ Моя точка зрения​: об единственной опечатке​​: Захотелось кнопку «Ok»​​(KuklP)200?’200px’:»+(this.scrollHeight+5)+’px’);»>Можно написать на​

​Цитата​​ написанного на скорую​ In Folder.SubFolders​ & «*.xls*»)​ не отображена:​Чтобы открыть окно​

​ в​​ VBA – это​(Excel macro-enabled workbook)​ VBA (окно​ SubЛист скрывается а​ по причине отсутствия​ проблемой, когда открываешь​ останется при мне​ я предупредил сразу.​ нажать​ 10 страниц «правильного»​
​(KuklP)200?’200px’:»+(this.scrollHeight+5)+’px’);»>Т.е. первый же​ руку :(​Deep = Deep​Do Until fn​

​Нажмите кнопку Microsoft​​Locals​​Module​​ набор всех объектов​
​ и нажимаем кнопку​Module1​

​ вот при открытии​​ окна екселя… код​​ программно файл XLS​​Цитата​
​ Это раз. Два,​​Там же написано​ кода, а можно​
​ файл с несовпадающим​Судя по скрину,​ + 1​ = «»​ Office, а затем​, нажмите​;​

​ и модулей VBA,​​Сохранить​).​ появляется еще какой​ не большой написан,​ (ну типа test.xls​​(RAN)200?’200px’:»+(this.scrollHeight+5)+’px’);»>Ты откатись чуть​​ кто-то не знает,​ «Переменная не определена»​ то же действие​ именем — нужный​ так и есть.​
​GetFileList SubFolder.Path, Mask​If fn <>​ — Параметры Excel.​Locals Window​Код для нового объекта​ привязанных к текущей​(Save).​Подсказка:​ то лист пустой​

CyberForum.ru

​ просто стало интересно)​

Понравилась статья? Поделить с друзьями:
  • Excel 2010 выравнивания по ширине
  • Excel 2010 macros and vba
  • Excel 2007 сколько строк на листе
  • Excel 2010 выпадающий список значений
  • Excel 2007 скачать бесплатно на русском языке для