Страница 2 из 4
Re: Нужна помощь с решением
Добавлено: 27 дек 2010, 20:30
Busine2009
Fasmon
а что со вторым не так?
Re: Нужна помощь с решением
Добавлено: 28 дек 2010, 07:10
Fasmon
Fasmon писал(а):во втором пишет ошибку Type mismatch на строчке:
If CDate(Cells(i, 2).Value) > Date And CDate(Cells(i, 2).Value) < DateAdd("d", 4, Date) Then
Вот это со вторым
Re: Нужна помощь с решением
Добавлено: 28 дек 2010, 08:16
Busine2009
Fasmon писал(а):Вот это со вторым
это строка кода из 3 задания.
Re: Нужна помощь с решением
Добавлено: 28 дек 2010, 08:22
Fasmon
В общем скиньте второе задание в эксель файле, как третье. (с заполенными ячейками).
P.S. вопрос еще. Как сделать цикл, создание фигуры с поворотом(по часовой стрелке),
чтобы получилось 8 фигур. Изменение градусов от 0 до 360 с шагом 45. Не могу вспомнить как сделать цикл чтобы оставались фигуры. Они поворачиваются, но создаются в итоге (одна под другой)
Re: Нужна помощь с решением
Добавлено: 28 дек 2010, 08:33
Busine2009
Вот по второму заданию.
Re: Нужна помощь с решением
Добавлено: 28 дек 2010, 08:40
Fasmon
эм.. Там кода нету. Только имена в ячейках
Re: Нужна помощь с решением
Добавлено: 28 дек 2010, 08:42
Busine2009
Fasmon писал(а):эм.. Там кода нету. Только имена в ячейках
код в этой теме выложен.
Re: Нужна помощь с решением
Добавлено: 28 дек 2010, 09:01
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
Re: Нужна помощь с решением
Добавлено: 28 дек 2010, 09:17
Fasmon
последняя просьба )
Расположить смайлики по синусоиде. Размер смайла 20*20, функция синус принимает значение от -1 до 1, написать формулу координаты Y таким образом, чтобы значение менялось не менее чем от 0 до 200
Re: Нужна помощь с решением
Добавлено: 28 дек 2010, 09:22
Busine2009
Fasmon
последний вопрос я не знаю. Задавай конкретные вопросы по нему.