Создать и вставить в макрос свой BOX

[ЕщеОдинСергей]

Как создать и вставить в макрос свою форму?
Заранее благодарен.

[SAS888]

В VBE нажать Insert/UserForm. Затем добавить необходимые элементы управления, настроить их свойства и написать процедуры обработки нужных событий.
P.S. В двух словах все это не описать. Читайте соответствующую литературу. Примеры различных UserForm можно найти и на этом форуме.

[Pavel55]

Что-то типо этого

Для создания формы в Excel

1) Открываете Excel
2) нажимаете Alt+F11 - откроется редактор VBE (Visual Basic Editor)
3) на всякий случай нажимаете:
- Ctrl+R - отобразится окошко Project Explorer
- F4 - отобразится Properties Window
4) меню Insert - UserForm - справа появится форма
5) щёлкаете мышкой на форме и рядом с формой появится Панель инструментов. Если панель не появилась нажмите меню View-Toolbox
6) На панели инструментов найдите инструмент Кнопка (CommandButton). Щёлкните по ней мышкой и затем щёлкните на форме. Переключатель появится на вашей форме.
7) Щёлкните 2 раза мышкой по кнопке. У вас создастся обработчик нажатия на кнопку.

Private Sub CommandButton1_Click() 

End Sub

Скопируйте между этими строками свой код

8) Добавьте модуль - меню Insert - Module (смотрите окно Project Explorer). Щёлкните на модуле 2 раза, справа в окне кода напишите

Sub Макрос1() 
    UserForm1.Show 
End Sub

9) Закройте редактор VBE. Нажмите Alt+F8, запустите макрос Макрос1

[DENGA-RU]

Доброго дня всем! хотелось бы узнать ответ на небольшой вопрос) Имеется макрос test и когда я его запускал из юзерформы

Private Sub CommandButton1_Click()
test
End Sub

все отлично работало, а как он стал Privat'ным этот метод перестал работать. Хотелось бы вот узнать, можно ли запускать из юзерформы скрытые макросы ?

[pivas]

Макросы Privat и Public работают одинаково.

[DENGA-RU]

Как только убираю Privat, все сразу заработало, как поставил наместо при запуске вылетает "Sub or Function not defined", даже незнаю чё делать то

[Sasha_Smirnov]

Сообщение от DENGA-RU

Как только убираю Privat, все сразу заработало, как поставил наместо при запуске вылетает "Sub or Function not defined", даже незнаю чё делать то

Типа вынимаю из ушей бананы — всё слышу; ставлю обратно — тишина!

Что делать? Не ставьте Private.

[SAS888]

Вместо команды запуска макроса

test

используйте

Run "test"

и будет счастье.

[DENGA-RU]

SAS888 - спасибо за совет! Все заработало.