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

Вход

Регистрация

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

 

= Мир MS Excel/Выпадающий календарь задает неизвестный формат даты - Мир MS Excel

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

Всем доброго дня!
Использую в своей работе таблицу со скриптом выпадающего календаря.
Если курсор поставить в любую ячейку столбцов C и D то автоматически запускается скрипт календаря, но если я выбираю дату из календаря, то тогда не работает условное форматирование ячейки. Но если дату написать вручную, то форматирование работает корректно. Например: в строке 4 указана недействующая акция, т.е. она началась 23.07 и закончилась 30.07, соответственно дата окончания подсвечивается красным. А в строке 5 те же самые даты, но взяты из скрипта календаря и к ним форматирование не применяется. Если же отчистить ячейку и ручками вписать дату, то форматирование начнет работать корректно.

подскажите как исправить данный недочет???
К сообщению приложен файл: test.xlsm (49.3 Kb)
 
Ответить
СообщениеВсем доброго дня!
Использую в своей работе таблицу со скриптом выпадающего календаря.
Если курсор поставить в любую ячейку столбцов C и D то автоматически запускается скрипт календаря, но если я выбираю дату из календаря, то тогда не работает условное форматирование ячейки. Но если дату написать вручную, то форматирование работает корректно. Например: в строке 4 указана недействующая акция, т.е. она началась 23.07 и закончилась 30.07, соответственно дата окончания подсвечивается красным. А в строке 5 те же самые даты, но взяты из скрипта календаря и к ним форматирование не применяется. Если же отчистить ячейку и ручками вписать дату, то форматирование начнет работать корректно.

подскажите как исправить данный недочет???
Автор - viktorflam
Дата добавления - 01.08.2014 в 16:52
nilem Дата: Пятница, 01.08.2014, 17:50 | Сообщение № 2
Группа: Авторы
Ранг: Старожил
Сообщений: 1613
Репутация: 563 ±
Замечаний: 0% ±

Excel 2013, 2016
Здравствуйте.
попробуйте изменить строку в модуле класса DataClass Private Sub DateButton_MouseDown
вместо
[vba]
Код
ActiveCell.Value = CurrentDay & "." & Format(Mon, "00") & "." & Trim(CurrentYear)
[/vba]
вот так
[vba]
Код
ActiveCell.Value = DateSerial(Trim(CurrentYear), Mon, CurrentDay)
[/vba]
и еще первые три из правил УФ, имхо, лишние

Яндекс.Деньги 4100159601573
 
Ответить
СообщениеЗдравствуйте.
попробуйте изменить строку в модуле класса DataClass Private Sub DateButton_MouseDown
вместо
[vba]
Код
ActiveCell.Value = CurrentDay & "." & Format(Mon, "00") & "." & Trim(CurrentYear)
[/vba]
вот так
[vba]
Код
ActiveCell.Value = DateSerial(Trim(CurrentYear), Mon, CurrentDay)
[/vba]
и еще первые три из правил УФ, имхо, лишние
Автор - nilem
Дата добавления - 01.08.2014 в 17:50
viktorflam Дата: Пятница, 01.08.2014, 17:56 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 15
Репутация: 0 ±
Замечаний: 0% ±

заменил, пока работает...

Все работает отлично! Спасибо!


Сообщение отредактировал viktorflam - Пятница, 01.08.2014, 18:02
 
Ответить
Сообщениезаменил, пока работает...

Все работает отлично! Спасибо!
Автор - viktorflam
Дата добавления - 01.08.2014 в 17:56
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Выпадающий календарь задает неизвестный формат даты (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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