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

Вход

Регистрация

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

 

= Мир MS Excel/Выпадающие календари в разных листах книги - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Выпадающие календари в разных листах книги
BBC Дата: Понедельник, 27.01.2025, 13:04 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 72
Репутация: 0 ±
Замечаний: 0% ±

Excel LTSC
Нужны выпадающие календари в двух листах книги с возможностью настройки разных ячеек вывода даты. Сейчас макрос выводит дату в ячейку Y5 одного и другого листа. Неудобно.
К сообщению приложен файл: dva_kalendarja.xlsm (71.2 Kb)


Сообщение отредактировал BBC - Понедельник, 27.01.2025, 13:04
 
Ответить
СообщениеНужны выпадающие календари в двух листах книги с возможностью настройки разных ячеек вывода даты. Сейчас макрос выводит дату в ячейку Y5 одного и другого листа. Неудобно.

Автор - BBC
Дата добавления - 27.01.2025 в 13:04
gling Дата: Понедельник, 27.01.2025, 13:45 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2596
Репутация: 718 ±
Замечаний: 0% ±

2010
И вам здравствовать.
Поменял чуток код[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]Проверьте в файле. Вставляет дату в активную ячейку.
К сообщению приложен файл: 3041939.xlsm (59.6 Kb)


ЯД-41001506838083
 
Ответить
СообщениеИ вам здравствовать.
Поменял чуток код[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
Дата добавления - 27.01.2025 в 13:45
BBC Дата: Понедельник, 27.01.2025, 13:59 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 72
Репутация: 0 ±
Замечаний: 0% ±

Excel LTSC
Поменял чуток код


я наверное в лыжи обутый. Не могу посмотреть ваш код.
К сообщению приложен файл: 8050697.png (129.1 Kb)


Сообщение отредактировал BBC - Понедельник, 27.01.2025, 14:02
 
Ответить
Сообщение
Поменял чуток код


я наверное в лыжи обутый. Не могу посмотреть ваш код.

Автор - BBC
Дата добавления - 27.01.2025 в 13:59
_Boroda_ Дата: Понедельник, 27.01.2025, 14:05 | Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 16807
Репутация: 6560 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
Видите, в коде написано UserForm? А Вы смотрите в Модуль1. Поищите в Календаре, он же в Forms лежит
* Я, к сожалению, файл с макросом скачать не могу, запрет на работе


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеВидите, в коде написано UserForm? А Вы смотрите в Модуль1. Поищите в Календаре, он же в Forms лежит
* Я, к сожалению, файл с макросом скачать не могу, запрет на работе

Автор - _Boroda_
Дата добавления - 27.01.2025 в 14:05
BBC Дата: Понедельник, 27.01.2025, 14:05 | Сообщение № 5
Группа: Пользователи
Ранг: Участник
Сообщений: 72
Репутация: 0 ±
Замечаний: 0% ±

Excel LTSC
а можно зафиксировать как то ячейки там и тут? Бывает оставляешь кликом в другой ячейке, а нужно конкретно D13 и Y5
 
Ответить
Сообщениеа можно зафиксировать как то ячейки там и тут? Бывает оставляешь кликом в другой ячейке, а нужно конкретно D13 и Y5

Автор - BBC
Дата добавления - 27.01.2025 в 14:05
BBC Дата: Понедельник, 27.01.2025, 14:07 | Сообщение № 6
Группа: Пользователи
Ранг: Участник
Сообщений: 72
Репутация: 0 ±
Замечаний: 0% ±

Excel LTSC
написано UserForm


Мордой тыкните, пожалуйста)
 
Ответить
Сообщение
написано UserForm


Мордой тыкните, пожалуйста)

Автор - BBC
Дата добавления - 27.01.2025 в 14:07
_Boroda_ Дата: Понедельник, 27.01.2025, 14:09 | Сообщение № 7
Группа: Админы
Ранг: Местный житель
Сообщений: 16807
Репутация: 6560 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
Сообщение
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

Автор - _Boroda_
Дата добавления - 27.01.2025 в 14:09
gling Дата: Понедельник, 27.01.2025, 15:15 | Сообщение № 8
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2596
Репутация: 718 ±
Замечаний: 0% ±

2010
ПКМ на форму Calendar -- View Code и там ищите этот код. Или забейте в бинокль название "UserForm_QueryClose" и ищите по всему проекту VBA


ЯД-41001506838083

Сообщение отредактировал gling - Понедельник, 27.01.2025, 15:16
 
Ответить
СообщениеПКМ на форму Calendar -- View Code и там ищите этот код. Или забейте в бинокль название "UserForm_QueryClose" и ищите по всему проекту VBA

Автор - gling
Дата добавления - 27.01.2025 в 15:15
BBC Дата: Понедельник, 27.01.2025, 21:28 | Сообщение № 9
Группа: Пользователи
Ранг: Участник
Сообщений: 72
Репутация: 0 ±
Замечаний: 0% ±

Excel LTSC
Да, хреново чувствовать себя тупым . "ПКМ на форму Calendar -- View Code и там ищите этот код. " Нашел. А он там на несколько страниц. Set_Дата 1, 1, Set_Дата 1, 3.....Set_Дата 6, 7. Потом вообще массив ГРОМАДНЫЙ. (((( Наверное не мое. Тут хорошие базовые знания нужны. Меня хватило в макросе назначить ячейку вывода даты. Причем интуитивно.
К сообщению приложен файл: 6751004.png (28.5 Kb)
 
Ответить
СообщениеДа, хреново чувствовать себя тупым . "ПКМ на форму Calendar -- View Code и там ищите этот код. " Нашел. А он там на несколько страниц. Set_Дата 1, 1, Set_Дата 1, 3.....Set_Дата 6, 7. Потом вообще массив ГРОМАДНЫЙ. (((( Наверное не мое. Тут хорошие базовые знания нужны. Меня хватило в макросе назначить ячейку вывода даты. Причем интуитивно.

Автор - BBC
Дата добавления - 27.01.2025 в 21:28
gling Дата: Понедельник, 27.01.2025, 22:04 | Сообщение № 10
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2596
Репутация: 718 ±
Замечаний: 0% ±

2010
забейте в бинокль название "UserForm_QueryClose"
А что ж тогда второй вариант не попробовали, с биноклем? Через бинокль быстрее нашлось бы.


ЯД-41001506838083

Сообщение отредактировал gling - Понедельник, 27.01.2025, 22:09
 
Ответить
Сообщение
забейте в бинокль название "UserForm_QueryClose"
А что ж тогда второй вариант не попробовали, с биноклем? Через бинокль быстрее нашлось бы.

Автор - gling
Дата добавления - 27.01.2025 в 22:04
MikeVol Дата: Понедельник, 27.01.2025, 22:37 | Сообщение № 11
Группа: Проверенные
Ранг: Обитатель
Сообщений: 389
Репутация: 84 ±
Замечаний: 0% ±

MSO LTSC 2021 EN


Ученик.
Одесса - Украина
 
Ответить
Сообщение

Автор - MikeVol
Дата добавления - 27.01.2025 в 22:37
  • Страница 1 из 1
  • 1
Поиск:

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