Здравствуйте. Помогите решить один вопрос. Каждый месяц мы делаем счета в Exel. В одной их ячеек указываем номер документа. Какой функцией или макросом можно воспользоваться, чтобы каждый месяц данная ячейка увеличивалась на одну единицу. Например сейчас номер счёта следующий: Счёт №М 22 от 11 ноября 2019г. Нужно чтобы в декабре номер автоматически изменился на 23, а в январе на 24 и т.д. Файл вложил для понимания.
Тут сразу вопрос, а что делать при наступлении следующего года?
Предложу решение простеньким макросом: При открытии книги появляется сообщение: "Изменить номер счета?" - если нажимаете "Да" к номеру счета добавляется 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
Добрый вечер! Да простят меня все пользователи данного форума , за сие безобразие в файле .
Решение с 2-я доп. столбцами (при желании можно скрыть), при изменении МЕСЯЦА и ГОДА в ячейке АО1, номер счёта будет увеличен на +1 Желаемый результат достигнут , но такое "безобразие" я давненько не творил. В G10:
Можно такой простецкий алгоритм при открытии файла использовать (решение тупо в лоб без изысков, но на 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