Закрытие UserForm
Starbirst
Дата: Пятница, 22.12.2017, 22:13 |
Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 83
Репутация:
0
±
Замечаний:
0% ±
Excel 2003
Доброго времени суток! Даблклик левой кнопки мыши по ячейке D2 открывает календарик. Для того, чтобы закрыть календарик нужно дважды кликнуть левой кнопкой мыши по дате, либо нажать той же кнопкой по любой области UserForm. Ребята, кто подскажет, можно ли выгрузить календарик левой кнопкой мыши по любой ячейке, а также при нажатии кнопки Esc?
Доброго времени суток! Даблклик левой кнопки мыши по ячейке D2 открывает календарик. Для того, чтобы закрыть календарик нужно дважды кликнуть левой кнопкой мыши по дате, либо нажать той же кнопкой по любой области UserForm. Ребята, кто подскажет, можно ли выгрузить календарик левой кнопкой мыши по любой ячейке, а также при нажатии кнопки Esc? Starbirst
Ответить
Сообщение Доброго времени суток! Даблклик левой кнопки мыши по ячейке D2 открывает календарик. Для того, чтобы закрыть календарик нужно дважды кликнуть левой кнопкой мыши по дате, либо нажать той же кнопкой по любой области UserForm. Ребята, кто подскажет, можно ли выгрузить календарик левой кнопкой мыши по любой ячейке, а также при нажатии кнопки Esc? Автор - Starbirst Дата добавления - 22.12.2017 в 22:13
Wasilich
Дата: Суббота, 23.12.2017, 00:41 |
Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 1232
Репутация:
326
±
Замечаний:
0% ±
2003
выгрузить календарик левой кнопкой мыши по любой ячейке
В модуль листа [vba]Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address <> "$D$2" Then JP_Ñalendar_Frm.Hide End Sub
[/vba]По Esc, вряд ли, по сочетанию клавиш > Alt+F8 > макрос > Параметры > назначайте. Только макрос нужен другой.
выгрузить календарик левой кнопкой мыши по любой ячейке
В модуль листа [vba]Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address <> "$D$2" Then JP_Ñalendar_Frm.Hide End Sub
[/vba]По Esc, вряд ли, по сочетанию клавиш > Alt+F8 > макрос > Параметры > назначайте. Только макрос нужен другой.Wasilich
Сообщение отредактировал Wasilich - Суббота, 23.12.2017, 00:54
Ответить
Сообщение выгрузить календарик левой кнопкой мыши по любой ячейке
В модуль листа [vba]Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address <> "$D$2" Then JP_Ñalendar_Frm.Hide End Sub
[/vba]По Esc, вряд ли, по сочетанию клавиш > Alt+F8 > макрос > Параметры > назначайте. Только макрос нужен другой.Автор - Wasilich Дата добавления - 23.12.2017 в 00:41
Starbirst
Дата: Понедельник, 25.12.2017, 22:39 |
Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 83
Репутация:
0
±
Замечаний:
0% ±
Excel 2003
Благодарю!
Ответить
Сообщение Благодарю! Автор - Starbirst Дата добавления - 25.12.2017 в 22:39
Starbirst
Дата: Вторник, 26.12.2017, 08:09 |
Сообщение № 4
Группа: Пользователи
Ранг: Участник
Сообщений: 83
Репутация:
0
±
Замечаний:
0% ±
Excel 2003
Wasilich, подскажите, пожалуйста, как сделать, чтобы предложенный вами макрос срабатывал на листе, где почти все ячейки защищены от редактирования?
Wasilich, подскажите, пожалуйста, как сделать, чтобы предложенный вами макрос срабатывал на листе, где почти все ячейки защищены от редактирования? Starbirst
Ответить
Сообщение Wasilich, подскажите, пожалуйста, как сделать, чтобы предложенный вами макрос срабатывал на листе, где почти все ячейки защищены от редактирования? Автор - Starbirst Дата добавления - 26.12.2017 в 08:09
Wasilich
Дата: Вторник, 26.12.2017, 14:29 |
Сообщение № 5
Группа: Друзья
Ранг: Старожил
Сообщений: 1232
Репутация:
326
±
Замечаний:
0% ±
2003
Если защита мешает макросу, то в начале кода её надо снять[vba][/vba] а в конце, снова установить [vba][/vba] Есть и другой вариант для всей книги. В модуль книги [vba]Код
Private Sub Workbook_Open() Protect , userinterfaceonly:=True End Sub
[/vba]
Если защита мешает макросу, то в начале кода её надо снять[vba][/vba] а в конце, снова установить [vba][/vba] Есть и другой вариант для всей книги. В модуль книги [vba]Код
Private Sub Workbook_Open() Protect , userinterfaceonly:=True End Sub
[/vba] Wasilich
Ответить
Сообщение Если защита мешает макросу, то в начале кода её надо снять[vba][/vba] а в конце, снова установить [vba][/vba] Есть и другой вариант для всей книги. В модуль книги [vba]Код
Private Sub Workbook_Open() Protect , userinterfaceonly:=True End Sub
[/vba] Автор - Wasilich Дата добавления - 26.12.2017 в 14:29
Mikael
Дата: Вторник, 26.12.2017, 16:40 |
Сообщение № 6
Группа: Пользователи
Ранг: Участник
Сообщений: 80
Репутация:
31
±
Замечаний:
0% ±
Excel 2010
На кнопку можно посадить командой Application.OnKey Добавьте в конец события UserForm_Initialize() [vba]Код
Application.OnKey "{ESC}", "ESCfromCalend"
[/vba] В обычный модуль добавьте процедуру [vba]Код
Private Sub ESCfromCalend() JP_Ñalendar_Frm.Hide End Sub
[/vba] Работает когда активен лист
На кнопку можно посадить командой Application.OnKey Добавьте в конец события UserForm_Initialize() [vba]Код
Application.OnKey "{ESC}", "ESCfromCalend"
[/vba] В обычный модуль добавьте процедуру [vba]Код
Private Sub ESCfromCalend() JP_Ñalendar_Frm.Hide End Sub
[/vba] Работает когда активен лист Mikael
Ответить
Сообщение На кнопку можно посадить командой Application.OnKey Добавьте в конец события UserForm_Initialize() [vba]Код
Application.OnKey "{ESC}", "ESCfromCalend"
[/vba] В обычный модуль добавьте процедуру [vba]Код
Private Sub ESCfromCalend() JP_Ñalendar_Frm.Hide End Sub
[/vba] Работает когда активен лист Автор - Mikael Дата добавления - 26.12.2017 в 16:40
Mikael
Дата: Вторник, 26.12.2017, 17:28 |
Сообщение № 7
Группа: Пользователи
Ранг: Участник
Сообщений: 80
Репутация:
31
±
Замечаний:
0% ±
Excel 2010
Чтобы обработать нажатие ESC при активной форме нужно добавить обработчик событий формы _KeyDown для всех элементов формы, которые могут иметь фокус. Например, когда в фокусе текстбокс Data: [vba]Код
Private Sub txbx_Data_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 27 Then Me.Hide End Sub
[/vba] и так для каждого элемента формы таких как combobox, textbox, multipage и т.п.
Чтобы обработать нажатие ESC при активной форме нужно добавить обработчик событий формы _KeyDown для всех элементов формы, которые могут иметь фокус. Например, когда в фокусе текстбокс Data: [vba]Код
Private Sub txbx_Data_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 27 Then Me.Hide End Sub
[/vba] и так для каждого элемента формы таких как combobox, textbox, multipage и т.п. Mikael
Ответить
Сообщение Чтобы обработать нажатие ESC при активной форме нужно добавить обработчик событий формы _KeyDown для всех элементов формы, которые могут иметь фокус. Например, когда в фокусе текстбокс Data: [vba]Код
Private Sub txbx_Data_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 27 Then Me.Hide End Sub
[/vba] и так для каждого элемента формы таких как combobox, textbox, multipage и т.п. Автор - Mikael Дата добавления - 26.12.2017 в 17:28
Starbirst
Дата: Суббота, 30.12.2017, 23:48 |
Сообщение № 8
Группа: Пользователи
Ранг: Участник
Сообщений: 83
Репутация:
0
±
Замечаний:
0% ±
Excel 2003
Спасибо:-)
Ответить
Сообщение Спасибо:-) Автор - Starbirst Дата добавления - 30.12.2017 в 23:48
Starbirst
Дата: Суббота, 30.12.2017, 23:51 |
Сообщение № 9
Группа: Пользователи
Ранг: Участник
Сообщений: 83
Репутация:
0
±
Замечаний:
0% ±
Excel 2003
А можно ли реализовать такое: предположим на защищенном листе имеется кнопка для вызова Userform, в которой не предусмотрено наличие кнопки "закрыть окно". Можно ли закрыть форму кликом левой кнопки мыши по любой области книги без выделения определенной ячейки?
А можно ли реализовать такое: предположим на защищенном листе имеется кнопка для вызова Userform, в которой не предусмотрено наличие кнопки "закрыть окно". Можно ли закрыть форму кликом левой кнопки мыши по любой области книги без выделения определенной ячейки? Starbirst
Ответить
Сообщение А можно ли реализовать такое: предположим на защищенном листе имеется кнопка для вызова Userform, в которой не предусмотрено наличие кнопки "закрыть окно". Можно ли закрыть форму кликом левой кнопки мыши по любой области книги без выделения определенной ячейки? Автор - Starbirst Дата добавления - 30.12.2017 в 23:51
ББЛЯЯ
Дата: Воскресенье, 31.12.2017, 01:04 |
Сообщение № 10
Группа: Заблокированные
Ранг: Прохожий
Сообщений: 3
Репутация:
0
±
Замечаний:
20% ±
Excel 2016
выделения определенной ячейки?
А как эксель узнает, что по книге кликнули? Только если выделилась какая-нибудь ячейка.
выделения определенной ячейки?
А как эксель узнает, что по книге кликнули? Только если выделилась какая-нибудь ячейка.ББЛЯЯ
Ответить
Сообщение выделения определенной ячейки?
А как эксель узнает, что по книге кликнули? Только если выделилась какая-нибудь ячейка.Автор - ББЛЯЯ Дата добавления - 31.12.2017 в 01:04
Starbirst
Дата: Воскресенье, 31.12.2017, 01:15 |
Сообщение № 11
Группа: Пользователи
Ранг: Участник
Сообщений: 83
Репутация:
0
±
Замечаний:
0% ±
Excel 2003
Выгрузку формы можно произвести кликом по ней. У меня возникло предположение быть может подобное возможно сделать кликом по любой области внутри защищенной книги.
Выгрузку формы можно произвести кликом по ней. У меня возникло предположение быть может подобное возможно сделать кликом по любой области внутри защищенной книги. Starbirst
Ответить
Сообщение Выгрузку формы можно произвести кликом по ней. У меня возникло предположение быть может подобное возможно сделать кликом по любой области внутри защищенной книги. Автор - Starbirst Дата добавления - 31.12.2017 в 01:15