Новости:

Новая редакция правил форума: 2.4. Если вопрос или ответ содержится во вложенном файле, все-равно кратко описывайте в сообщении вопрос или суть решения. Это необходимо, чтобы тему можно было найти через поиск.

Главное меню

Проблема с датами

Автор ambler, 03.10.2012, 09:46

« назад - далее »

ambler

Добрый день!

Прислали таблицу с датами... 500-600 строк, все даты сделаны по тупому типа 19-23.11.12.

Внимание вопрос: Можно как то автоматизировать процесс, чтобы вручную не перебивать все 600 строк. Надо прибавить 3 дня к конечному сроку и еще 1 день после.

Т.е.: Было 19-23.11.12 Стало: 26-27.11.12. Пока сам попытаюсь разобраться.

ShAM

Может, так?

ambler


kuklp

Работает с высделенным диапазоном:
Public Sub www()
    Dim c As Range, d As Date
    For Each c In Selection.Cells
        d = Mid$(c.Value, InStr(1, c, "-") + 1)
        c = Day(d + 3) & "-" & d + 4
    Next
End Sub

Я, как всегда, чертовски адекватен... Email: pilipnikop@yandex.ua WM Z206653985942, R334086032478, U238399322728, E332314026771

ambler

Цитата: KuklP от 03.10.2012, 11:50
Работает с высделенным диапазоном:
Public Sub www()
    Dim c As Range, d As Date
    For Each c In Selection.Cells
        d = Mid$(c.Value, InStr(1, c, "-") + 1)
        c = Day(d + 3) & "-" & d + 4
    Next
End Sub



И вам спасибо огромное :)