как искать день из средств массовой информации, которые равны сегодня

Sub Macro1() 
    Dim cell As Range 
    Dim MyDay As Integer, MyYear As Integer, MyMonth As Integer 
    Dim MyDate As Date 

    MyDate = Format(MyYear & "/" & MyMonth & "/" & MyDay, "dd/mm/yyyy") < --Error 

    Selection.Formula = "" 
    Range("M1").Select 
    Sheets("Case Settled in 2012").Select 
    Cells.Find(What:=MyDate, After:=ActiveCell, LookIn:=xlFormulas, LookAt _ 
     :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ 
     False, SearchFormat:=False).Activate 

    MsgBox MyDay 
End Sub

Я хочу найти данные date=todayкак искать день из средств массовой информации, которые равны сегодня

источник

2013-11-26 user3003130

После отправки ответа я заметил, что вы опубликовали аналогичный вопрос. Но просто чтобы быть уверенным. Разве они не такие? –

@ SiddharthRout haha [разница в 1 секунде] (http://stackoverflow.com/posts/20211809/revisions) между вашими и моими правыми –

@mehow: Хммм, здесь 'yDate = Format (MyYear &"/"& MyMonth & «/» & MyDay, «dd/mm/yyyy») <--Error' подсвечивается, и он хочет найти 'date = today' –

MyDate = Format (MyYear & "/" & MyMonth & "/" & MyDay, «дд/мм/гггг ") < --error

Что вам нужно DateSerial

MyDate = DateSerial(MyYear, MyMonth, MyDay)

Также вам необходимо инициализировать эти переменные.

EDIT:

Я хочу искать дату данных = сегодня

Что касается вашего 2 вопроса, @Mehow уже показал вам, как петли через ряд, чтобы сделать дату сравнение в другом question. Сделайте аналогичное сравнение здесь и проверьте, соответствует ли дата.

источник

2013-11-26 08:25:38

как искать день из средств массовой информации, которые равны сегодня

ответ

Смежные вопросы