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

Вход

Регистрация

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

 

= Мир MS Excel/Событие Exit TextBox в модуле класса - Мир MS Excel

  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Событие Exit TextBox в модуле класса
PYCTAM Дата: Четверг, 17.07.2014, 15:51 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 24
Репутация: 0 ±
Замечаний: 60% ±

Excel 2010
Событие Exit в TextBox'е отсутствует в модуле класса, как её реализовать или обойтись другим способом...
и второй вопрос как с помощью кода обойти данное диалоговое окно

которое выскакивает после кода
[vba]
Код
Sheets("Лист2").Select
ActiveWindow.SelectedSheets.Delete
[/vba]
Заранее спасибо...


Сообщение отредактировал PYCTAM - Четверг, 17.07.2014, 15:54
 
Ответить
СообщениеСобытие Exit в TextBox'е отсутствует в модуле класса, как её реализовать или обойтись другим способом...
и второй вопрос как с помощью кода обойти данное диалоговое окно

которое выскакивает после кода
[vba]
Код
Sheets("Лист2").Select
ActiveWindow.SelectedSheets.Delete
[/vba]
Заранее спасибо...

Автор - PYCTAM
Дата добавления - 17.07.2014 в 15:51
Формуляр Дата: Четверг, 17.07.2014, 16:34 | Сообщение № 2
Группа: Друзья
Ранг: Ветеран
Сообщений: 832
Репутация: 255 ±
Замечаний: 0% ±

Excel 2003, 2013
как с помощью кода обойти данное диалоговое окно

Поставить в начале
[vba]
Код
Application.DisplayAlerts = False
[/vba]


Excel 2003 EN, 2013 EN
 
Ответить
Сообщение
как с помощью кода обойти данное диалоговое окно

Поставить в начале
[vba]
Код
Application.DisplayAlerts = False
[/vba]

Автор - Формуляр
Дата добавления - 17.07.2014 в 16:34
RAN Дата: Четверг, 17.07.2014, 16:41 | Сообщение № 3
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
В модуль класса
[vba]
Код
Sub Tb_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
[/vba]
в модуль формы
[vba]
Код
Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
[/vba]

В итоге почти правда. Но все равно не то.


Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеВ модуль класса
[vba]
Код
Sub Tb_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
[/vba]
в модуль формы
[vba]
Код
Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
[/vba]

В итоге почти правда. Но все равно не то.

Автор - RAN
Дата добавления - 17.07.2014 в 16:41
  • Страница 1 из 1
  • 1
Поиск:

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