Нужны выпадающие календари в двух листах книги с возможностью настройки разных ячеек вывода даты. Сейчас макрос выводит дату в ячейку Y5 одного и другого листа. Неудобно.
Нужны выпадающие календари в двух листах книги с возможностью настройки разных ячеек вывода даты. Сейчас макрос выводит дату в ячейку Y5 одного и другого листа. Неудобно.BBC
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) On Error Resume Next If dt_1 <> 0 And TB <> 0 Then 'Cells(Str, Stlb).Value = TB ActiveCell.Value = Format(TB, "D MMMM YYYY г") End If End Sub
[/vba]Проверьте в файле. Вставляет дату в активную ячейку.
И вам здравствовать. Поменял чуток код[vba]
Код
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) On Error Resume Next If dt_1 <> 0 And TB <> 0 Then 'Cells(Str, Stlb).Value = TB ActiveCell.Value = Format(TB, "D MMMM YYYY г") End If End Sub
[/vba]Проверьте в файле. Вставляет дату в активную ячейку.gling
Видите, в коде написано UserForm? А Вы смотрите в Модуль1. Поищите в Календаре, он же в Forms лежит * Я, к сожалению, файл с макросом скачать не могу, запрет на работе
Видите, в коде написано UserForm? А Вы смотрите в Модуль1. Поищите в Календаре, он же в Forms лежит * Я, к сожалению, файл с макросом скачать не могу, запрет на работе_Boroda_
Да, хреново чувствовать себя тупым . "ПКМ на форму Calendar -- View Code и там ищите этот код. " Нашел. А он там на несколько страниц. Set_Дата 1, 1, Set_Дата 1, 3.....Set_Дата 6, 7. Потом вообще массив ГРОМАДНЫЙ. (((( Наверное не мое. Тут хорошие базовые знания нужны. Меня хватило в макросе назначить ячейку вывода даты. Причем интуитивно.
Да, хреново чувствовать себя тупым . "ПКМ на форму Calendar -- View Code и там ищите этот код. " Нашел. А он там на несколько страниц. Set_Дата 1, 1, Set_Дата 1, 3.....Set_Дата 6, 7. Потом вообще массив ГРОМАДНЫЙ. (((( Наверное не мое. Тут хорошие базовые знания нужны. Меня хватило в макросе назначить ячейку вывода даты. Причем интуитивно.BBC