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

Вход

Регистрация

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

 

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

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

Excel 2010-16
Доброго дня.
В работе макрос переносит модуль процедуры события на новый лист.
При этом почему то само открывается окно редактора 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
Группа: Пользователи
Ранг: Участник
Сообщений: 94
Репутация: 10 ±
Замечаний: 0% ±

Excel 2010-16
Вроде так помогает
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
Группа: Пользователи
Ранг: Участник
Сообщений: 94
Репутация: 10 ±
Замечаний: 0% ±

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

Пехаль киндриков куравь, пехаль киндриков лузнись.
 
Ответить
СообщениеКод не покажу.
Не знаю как его тут правильно оформить.
Автор - 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
Группа: Пользователи
Ранг: Участник
Сообщений: 94
Репутация: 10 ±
Замечаний: 0% ±

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

Пехаль киндриков куравь, пехаль киндриков лузнись.

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

Excel 2010-16
[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
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 129
Репутация: 20 ±
Замечаний: 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
Группа: Пользователи
Ранг: Участник
Сообщений: 94
Репутация: 10 ±
Замечаний: 0% ±

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

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

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