Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Закрыть окно редактора VBA макросом - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Закрыть окно редактора VBA макросом (Макросы/Sub)
Закрыть окно редактора VBA макросом
Glen Дата: Понедельник, 26.06.2017, 15:57 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 13
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Доброго дня.
В работе макрос переносит модуль процедуры события на новый лист.
При этом почему то само открывается окно редактора VBA. По типу Alt+F11.
Подскажите как кодом его закрыть.


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

Сообщение отредактировал Glen - Понедельник, 26.06.2017, 16:01
 
Ответить
СообщениеДоброго дня.
В работе макрос переносит модуль процедуры события на новый лист.
При этом почему то само открывается окно редактора VBA. По типу Alt+F11.
Подскажите как кодом его закрыть.

Автор - Glen
Дата добавления - 26.06.2017 в 15:57
Glen Дата: Понедельник, 26.06.2017, 16:14 | Сообщение № 2
Группа: Пользователи
Ранг: Новичок
Сообщений: 13
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Вроде так помогает
Set VBProj = ActiveWorkbook.VBProject
VBProj.VBE.MainWindow.Visible = False


Самурай без меча подобен самураю с мечом, но только без меча.
 
Ответить
СообщениеВроде так помогает
Set VBProj = ActiveWorkbook.VBProject
VBProj.VBE.MainWindow.Visible = False

Автор - Glen
Дата добавления - 26.06.2017 в 16:14
Glen Дата: Понедельник, 26.06.2017, 16:15 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 13
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Код не покажу.
Не знаю как его тут правильно оформить.


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

Автор - Glen
Дата добавления - 26.06.2017 в 16:15
Udik Дата: Понедельник, 26.06.2017, 16:19 | Сообщение № 4
Группа: Друзья
Ранг: Старожил
Сообщений: 1588
Репутация: 192 ±
Замечаний: 0% ±

Excel 2016 х 64
Кнопочка с решёткой, однако %)


вот вам барабан
яд 41001231307558 wm R419131876897
udik1968@gmail.com
 
Ответить
СообщениеКнопочка с решёткой, однако %)

Автор - Udik
Дата добавления - 26.06.2017 в 16:19
Glen Дата: Понедельник, 26.06.2017, 16:24 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 13
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
не получается код прикрепить


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

Сообщение отредактировал Glen - Понедельник, 26.06.2017, 16:25
 
Ответить
Сообщениене получается код прикрепить

Автор - Glen
Дата добавления - 26.06.2017 в 16:24
Glen Дата: Понедельник, 26.06.2017, 16:27 | Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 13
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
[vba]
Код
Sub rr()
    Set VBProj = ActiveWorkbook.VBProject
    Set VBComp = VBProj.VBComponents("Лист3")
    Set CodeMod = VBComp.CodeModule
    With CodeMod
        lLineNum = .CreateEventProc("Change", "Worksheet")
        lLineNum = lLineNum + 1
        .InsertLines lLineNum, "    call Izm(Target)"
    End With
    VBProj.VBE.MainWindow.Visible = False
End Sub
[/vba]


Самурай без меча подобен самураю с мечом, но только без меча.
 
Ответить
Сообщение[vba]
Код
Sub rr()
    Set VBProj = ActiveWorkbook.VBProject
    Set VBComp = VBProj.VBComponents("Лист3")
    Set CodeMod = VBComp.CodeModule
    With CodeMod
        lLineNum = .CreateEventProc("Change", "Worksheet")
        lLineNum = lLineNum + 1
        .InsertLines lLineNum, "    call Izm(Target)"
    End With
    VBProj.VBE.MainWindow.Visible = False
End Sub
[/vba]

Автор - Glen
Дата добавления - 26.06.2017 в 16:27
ОлеггелО Дата: Вторник, 27.06.2017, 18:07 | Сообщение № 7
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 123
Репутация: 19 ±
Замечаний: 0% ±

Glen, здравствуйте. Я так делал (топорно конечно), добавьте перед "End sub"[vba]
Код
SendKeys "%{F11}", True 'делаю активным окно редактора VBA
SendKeys "%{F4}", True 'и закрываю окно редактора VBA
[/vba]Возможно и Вам это поможет.


Сообщение отредактировал ОлеггелО - Вторник, 27.06.2017, 18:09
 
Ответить
СообщениеGlen, здравствуйте. Я так делал (топорно конечно), добавьте перед "End sub"[vba]
Код
SendKeys "%{F11}", True 'делаю активным окно редактора VBA
SendKeys "%{F4}", True 'и закрываю окно редактора VBA
[/vba]Возможно и Вам это поможет.

Автор - ОлеггелО
Дата добавления - 27.06.2017 в 18:07
Glen Дата: Среда, 28.06.2017, 11:08 | Сообщение № 8
Группа: Пользователи
Ранг: Новичок
Сообщений: 13
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
ОлеггелО,
спс.


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

Автор - Glen
Дата добавления - 28.06.2017 в 11:08
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Закрыть окно редактора VBA макросом (Макросы/Sub)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2017 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!