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

Вход

Регистрация

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

 

= Мир MS Excel/Условие для текущей и фиксированной даты - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Условие для текущей и фиксированной даты (Формулы/Formulas)
Условие для текущей и фиксированной даты
Сергей_13 Дата: Суббота, 20.01.2018, 17:03 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003
Помогите с условие VBA - если текущая дата в ячейки A1 =СЕГОДНЯ() больше фиксированной даты 20.01.2018, прописанной в VBA.
Пробовал использовать такой вариант, но срабатывает ни как на дату, а как на числовое значение
[vba]
Код
If Sheets("Лист1").Range("A1").Value > "20.01.2018" Then
[/vba]
 
Ответить
СообщениеПомогите с условие VBA - если текущая дата в ячейки A1 =СЕГОДНЯ() больше фиксированной даты 20.01.2018, прописанной в VBA.
Пробовал использовать такой вариант, но срабатывает ни как на дату, а как на числовое значение
[vba]
Код
If Sheets("Лист1").Range("A1").Value > "20.01.2018" Then
[/vba]
Автор - Сергей_13
Дата добавления - 20.01.2018 в 17:03
Pelena Дата: Суббота, 20.01.2018, 18:48 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 19603
Репутация: 4660 ±
Замечаний: ±

Excel 365 & Mac Excel
Не совсем понятно, в чём проблема. Вроде, работает.
Цитата Сергей_13, 20.01.2018 в 17:03, в сообщении № 1 ()
срабатывает ни как на дату, а как на числовое значение
Дата в понимании Excel - это число.
Чтобы преобразовать в дату, можно использовать функцию CDate()

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеНе совсем понятно, в чём проблема. Вроде, работает.
Цитата Сергей_13, 20.01.2018 в 17:03, в сообщении № 1 ()
срабатывает ни как на дату, а как на числовое значение
Дата в понимании Excel - это число.
Чтобы преобразовать в дату, можно использовать функцию CDate()
Автор - Pelena
Дата добавления - 20.01.2018 в 18:48
nilem Дата: Суббота, 20.01.2018, 20:13 | Сообщение № 3
Группа: Авторы
Ранг: Старожил
Сообщений: 1613
Репутация: 563 ±
Замечаний: 0% ±

Excel 2013, 2016
а если так
[vba]
Код
If Sheets("Лист1").Range("A1").Value > #1/20/2018# Then
[/vba]

Яндекс.Деньги 4100159601573
 
Ответить
Сообщениеа если так
[vba]
Код
If Sheets("Лист1").Range("A1").Value > #1/20/2018# Then
[/vba]
Автор - nilem
Дата добавления - 20.01.2018 в 20:13
Сергей_13 Дата: Суббота, 20.01.2018, 20:35 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003
Попытался вникнуть, и как один из вариантов, думается, что лучше так:
[vba]
Код
Dim a As Date
    a = Sheets("Лист1").Range("A1")     
    If a > CDate("20.01.2018") Then
[/vba]
Вроде работает. Спасибо всем.
 
Ответить
СообщениеПопытался вникнуть, и как один из вариантов, думается, что лучше так:
[vba]
Код
Dim a As Date
    a = Sheets("Лист1").Range("A1")     
    If a > CDate("20.01.2018") Then
[/vba]
Вроде работает. Спасибо всем.
Автор - Сергей_13
Дата добавления - 20.01.2018 в 20:35
RAN Дата: Суббота, 20.01.2018, 20:45 | Сообщение № 5
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Цитата Сергей_13, 20.01.2018 в 20:35, в сообщении № 4 ()
думается, что лучше так:

Это хорошо, что думается. :)
Хотя, фактически, фиолетово...

Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщение
Цитата Сергей_13, 20.01.2018 в 20:35, в сообщении № 4 ()
думается, что лучше так:

Это хорошо, что думается. :)
Хотя, фактически, фиолетово...
Автор - RAN
Дата добавления - 20.01.2018 в 20:45
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Условие для текущей и фиксированной даты (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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