| Вопрос: помощь по Vba + excel | Добавлено: 16.04.09 23:17 |
Автор вопроса:  Antony
|
|
Помагите плиз , что надо в этом коде изменить что бы
выводил все месяцы календаря на лист экселя а не один вот сам код : Sub варіант3() mon = Cells(5, 1).Value yea = Cells(6, 1).Value den = 1 Row = 1 Do While calend + 1 < DateSerial(yea, mon + 1, 1) calend = DateSerial(yea, mon, den) Cells(Row, 3).Value = calend Row = Row + 1 den = den + 1 Loop End Sub зарание спасибо! |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:  AngryBadger Вопросов: 33 Ответов: 245 |
Профиль | | #1 | Добавлено: 17.04.09 10:00 |
|
Если тебе нужны даты до конца года, то замени
Do While calend + 1 < DateSerial(yea, mon + 1, 1)
на Do While calend + 1 < DateSerial(yea + 1, mon , 1)
|
||
|
Номер ответа: 2 Автор ответа: AngryBadgerВопросов: 33 Ответов: 245 |
Профиль | | #2 | Добавлено: 17.04.09 10:04 |
| Вернее, получается твоя дата + 1 год. | ||
Страница: 1 |