ISO Как программировать кнопку ActiveX в Workbook 1 для запуска макросов в Workbook 2?

Question

Ситуация:

У меня есть две книги:

• Workbook # 1: загруженная набор данных из хранилища данных в онлайновом режиме
• Workbook # 2: Мастер коллекция макрокоманд

I создали набор макросов для форматирования набора данных после того, как он был загружен из онлайн-репозитория. Этот набор данных может сильно отличаться в зависимости от особенностей, которые пользователи выбрали перед загрузкой данных. Созданные мной макросы охватывают все возможные сценарии. Таким образом, при открытии диалогового окна «Просмотр макросов» подавляющее количество выбирается. Даже с эффективными соглашениями об именах слишком много, чтобы просеять мою аудиторию, у которой средний уровень опыта с Excel.

Чтобы упростить свой опыт, я хотел выровнять игровое поле, просто предоставив кнопку «Перейти» после выбора из раскрывающегося списка ActiveX.

Я успешно создал раскрывающийся список, заполнил список, и после активации кнопки «Перейти» выбор запускает конкретный макрос для запуска.

МОЯ ПРОБЛЕМА:

мне нужно субкод на кнопку "Go" в Workbook # 2, чтобы заставить макрос работать в Workbook # 1.

Благодарим вас за всю вашу помощь!

Answer 1

Вы можете взять реплики с магнитофона.

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

Sub Macro2() 
Dim mlib As Workbook 
Dim wb As Workbook 

Dim ms As Worksheet 
Dim ws As Worksheet 


Set mlib = ActiveWorkbook ' the file with the macros 
Set ms = mlib.Worksheets("Sheet1") 

' write into the macro workbook 
ms.Range("B3").FormulaR1C1 = "asdf" 

'activate another workbook that is already open and is called somefile.xlsx 
Windows("somefile.xlsx").Activate 

' set variables to reference that workbook 
Set wb = ActiveWorkbook 
Set ws = wb.Worksheets("Sheet1") 

' write something into somefile.xlsx 
ws.Range("B1").FormulaR1C1 = "copy me" 

'copy something within somefile.xlsx 
ws.Range("B1").Copy ws.Range("B2") 

' copy something from the macro workbook to the somefile workbook 
ms.Range("A1").Copy ws.Range("A5") 

' activate the macro workbook 

mlib.Activate 


End Sub 

Я попросил несколько примеров кода, так что я мог бы объяснить вашего контекста.

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