IF-Then-Else Loops в Excel VBA

Добрый день,

Я пытаюсь написать макрос, который будет извлекать информацию из столбца C рабочего листа auxdata, если совпадают имя и дата агента. Потребуется, что способ составления отчетов может быть несоответствием одного дня (т.е. запись на единой странице, такой как 5/1/2014 | x | AGENT X, может фактически соответствовать записи в соответствии с 5/2/2014 на листе auxdata). У меня есть следующий код:

Sub testloop() Dim unified As Worksheet Dim auxdata As Worksheet Set unified = ThisWorkbook.Sheets("unified") Set auxdata = ThisWorkbook.Sheets("auxdata") unified.Activate unified.Range("a2").Select Do While ActiveCell.Value <> Empty If ActiveCell.Value = "auxdata[Date]" Then ActiveCell.Offset(0, 3).FormulaR1C1 = _ "=INDEX(auxdata[Staffed Time], MATCH([@agent], auxdata[Agent], 0))" Else ActiveCell.Offset(0, 3).Value = "false" ActiveCell.Offset(1, 0).Select End If Loop End Sub 

Этот цикл относится только к оператору Else. Activecell.value = дата из единого листа

Мне нужна помощь в инструкции If-then и как добавить 1 день к auxdata [Date] в else statemnet

Вы набрали строковый литерал в следующей строке:

 If ActiveCell.Value = "auxdata[Date]" Then 

Это проверяет строку «auxdata [Date]», а не дату, которую вы хотите представить. Вы хотите, чтобы он соответствовал фактической дате. Если данные находятся в одной фиксированной ячейке, вы можете использовать следующее:

 If ActiveCell.Value = auxData.Range("A2").Value Then 

Надеюсь это поможет!

Давайте будем гением компьютера.