Страницы: 1
RSS
Ежемесячное автоматическое обновление ячейки
 
Здравствуйте.
Помогите решить один вопрос. Каждый месяц мы делаем счета в Exel. В одной их ячеек указываем номер документа. Какой функцией или макросом можно воспользоваться, чтобы каждый месяц данная ячейка увеличивалась на одну единицу. Например сейчас номер счёта следующий: Счёт №М 22 от 11 ноября 2019г.
Нужно чтобы в декабре номер автоматически изменился на 23, а в январе на 24 и т.д.
Файл вложил для понимания.

Спасибо.
Изменено: praido - 13.11.2019 18:28:02
 
Тут сразу вопрос, а что делать при наступлении следующего года?

Предложу решение простеньким макросом:
При открытии книги появляется сообщение: "Изменить номер счета?" - если нажимаете "Да" к номеру счета добавляется 1,если нет- ничего не происходит.
Соответственно макросы должны быть разрешены

Код
Private Sub Workbook_Open()
msg = MsgBox("Изменить номер счета?", vbYesNo)
If msg = vbYes Then
Range("G10").Value = Range("G10").Value + 1
Else
Exit Sub
End If
End Sub
Нужно бежать со всех ног, чтобы только оставаться на месте, а чтобы куда-то попасть, надо бежать как минимум вдвое быстрее!
 
Добрый вечер!
Да простят меня все пользователи данного форума :D , за сие безобразие в файле  :D.

Решение с 2-я доп. столбцами (при желании можно скрыть), при изменении МЕСЯЦА и ГОДА в ячейке  АО1, номер счёта будет увеличен на +1
Желаемый результат достигнут ;) , но такое "безобразие" я давненько не творил.
В G10:
Код
=ВПР("01."&МЕСЯЦ($AO$1)&"."&ГОД($AO$1);$AV$1:$AW$50;2;0)
 
Dyroff
Aleksey1107
Огромное спасибо за помощь!!!  :)  
 
Можно такой простецкий алгоритм при открытии файла использовать (решение тупо в лоб без изысков, но на 100 лет! Можно легко переделать на 1000 :) ):
Код
Sub tt()
    Dim x&, y&, i&, t$
    i = 11
    t = Year(Now) & "|" & Month(Now)
    For x = 2019 To 2119
        For y = 1 To 12
            i = i + 1
            If t = x & "|" & y Then MsgBox "Сегодня ставим № " & i: Exit Sub
        Next
    Next
End Sub
Изменено: Hugo - 13.11.2019 23:05:50
Страницы: 1
Наверх