Рабочий график

Вход

Регистрация

Напомнить пароль

= Мир MS Excel/Рабочий график - Мир MS Excel

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Рабочий график (Формулы/Formulas)

Рабочий график

farrid1965

Дата: Воскресенье, 26.02.2023, 01:12 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

Репутация: 0 ±

Замечаний: 0% ±

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

файл для сохранение значений
[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A3:A13]) Is Nothing Then
Dim sYear As Integer
Dim sMonth As Integer
Dim sDay As Integer
sYear = Year(Now) - Year(Sheets("Лист2").Cells(1, 1))
sMonth = Month(Now) - Month(Sheets("Лист2").Cells(1, 1))
sDay = Day(Now) - Day(Sheets("Лист2").Cells(1, 1))
Sheets("Лист2").Cells(sYear * 3 * 12 + sMonth * 3 + 2, sDay + 1) = Cells(2, 1)
End If
End Sub

[/vba]

Файлы прилагаю

К сообщению приложен файл: shiftcalendar_1_03.xlsm (77.6 Kb) · sokhranenie_izmenenij_posle_si.xlsm (23.5 Kb)

Сообщение отредактировал farrid1965 - Воскресенье, 26.02.2023, 01:15

Ответить

Рабочий график (Формулы/Formulas)

Страница 1 из 1
1