Нужна помощь с решением

[Busine2009]

Fasmon
а что со вторым не так?

[Fasmon]

во втором пишет ошибку Type mismatch на строчке:
If CDate(Cells(i, 2).Value) > Date And CDate(Cells(i, 2).Value) < DateAdd("d", 4, Date) Then

Вот это со вторым

[Busine2009]

Вот это со вторым

это строка кода из 3 задания.

[Fasmon]

В общем скиньте второе задание в эксель файле, как третье. (с заполенными ячейками).
P.S. вопрос еще. Как сделать цикл, создание фигуры с поворотом(по часовой стрелке),
чтобы получилось 8 фигур. Изменение градусов от 0 до 360 с шагом 45. Не могу вспомнить как сделать цикл чтобы оставались фигуры. Они поворачиваются, но создаются в итоге (одна под другой)

[Busine2009]

Вот по второму заданию.

[Fasmon]

эм.. Там кода нету. Только имена в ячейках

[Busine2009]

эм.. Там кода нету. Только имена в ячейках

код в этой теме выложен.

[Busine2009]

Про вращение фигуры:

Код: Выделить всё

Sub Макрос3()
Dim i As Byte
Dim vПоворот As Integer
For i = 1 To 8
vПоворот = vПоворот + 45
ActiveSheet.Shapes.AddShape msoShapeRectangle, 135.75, 89.25, 72, 72
ActiveSheet.Shapes(i).Rotation = vПоворот
Next i
End Sub

[Fasmon]

последняя просьба )
Расположить смайлики по синусоиде. Размер смайла 20*20, функция синус принимает значение от -1 до 1, написать формулу координаты Y таким образом, чтобы значение менялось не менее чем от 0 до 200

[Busine2009]

Fasmon
последний вопрос я не знаю. Задавай конкретные вопросы по нему.