Сообщество Чайников

Вопрос

Подскажите, как сделать в ячейке формат даты ГГ-ММ-ДД. По умолчанию ставится наоборот ДД-ММ-ГГ.

И подскажите, как написать макрос, чтобы при нажатии кнопки, добавлялся один месяц, год. Желательно не в одной ячейке, а в диапазоне, например в столбец.

Ответ

Формат ячейки — Число — Дополнительный формат, а там прописываешь шаблон в виде ГГ-ММ-ДД.

Из конференции Expert_FAQ

ЭТО МАКРОС:

Sub AddPeriod(strRan As String, intPlus As Integer, Optional bMon As Boolean)
'Добавление указанного периода ко всем ячейкам указанного диапазона
'strRan — адрес (напр., "A1:C3"), intPlus — сколько прибавлять,
'bMon — логический параметр. Если не указывать, добавляется указанное в intPlus число лет,
'если задать как True — месяцев
Dim rng As Range, rnc As Range
Set rng = Range(strRan)
For Each rnc In rng.Cells
If IsDate(rnc.Value) Then
If bMon Then
rnc.Value = DateAdd("m", intPlus, rnc.Value)
Else
rnc.Value = DateAdd("yyyy", intPlus, rnc.Value)
End If
End If
Next
End Sub

А ЭТО ПРИМЕР ЕГО ВЫЗОВА:

Sub AddTwoMonths()
'Добавляет 2 месяца к каждой дате, найденной в диапазоне "A1:G7"
AddPeriod "A1:G7", 2, True
End Sub

Leshek