Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

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

 

= Мир MS Excel/при изменении времени должны менятся данные в других ячейках - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » при изменении времени должны менятся данные в других ячейках (Формулы/Formulas)
при изменении времени должны менятся данные в других ячейках
babdusya Дата: Воскресенье, 11.08.2019, 00:28 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 1
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Здравствуйте! В общем с помощью макроса сделал в ячейке часы, есть 4 смены А Б В Г в каждой смене по пять человек, мне необходимо чтобы при достижении определенного времени в ячейках менялась смена и состав смены.
Например: в смене А работают Иванов Петров Сидоров смена работает с 8:00 до 20:00 соответственно в 20:00 приходит смена Б где работают Зубков Котляров Медведев, нужно чтобы когда на часах было 20:00 А сменилась на Б и Иванов Петров Сидоров сменились на Зубков Котляров Медведев.
макрос для часов:
Sub UpdateTime()
Dim varNextCall As Variant
' Записываем в ячейку текущее время
Cells(4, 12).Value = Now
' Записываем в varNextCall время, когда вызвать этот макрос _
в следующий раз (через 1 секунду)
varNextCall = TimeSerial(Hour(Now), Minute(Now), Second(Now) + 1)
' Уведомляем Excel в необходимости вызова макроса
Application.OnTime varNextCall, "UpdateTime"
End Sub
 
Ответить
СообщениеЗдравствуйте! В общем с помощью макроса сделал в ячейке часы, есть 4 смены А Б В Г в каждой смене по пять человек, мне необходимо чтобы при достижении определенного времени в ячейках менялась смена и состав смены.
Например: в смене А работают Иванов Петров Сидоров смена работает с 8:00 до 20:00 соответственно в 20:00 приходит смена Б где работают Зубков Котляров Медведев, нужно чтобы когда на часах было 20:00 А сменилась на Б и Иванов Петров Сидоров сменились на Зубков Котляров Медведев.
макрос для часов:
Sub UpdateTime()
Dim varNextCall As Variant
' Записываем в ячейку текущее время
Cells(4, 12).Value = Now
' Записываем в varNextCall время, когда вызвать этот макрос _
в следующий раз (через 1 секунду)
varNextCall = TimeSerial(Hour(Now), Minute(Now), Second(Now) + 1)
' Уведомляем Excel в необходимости вызова макроса
Application.OnTime varNextCall, "UpdateTime"
End Sub

Автор - babdusya
Дата добавления - 11.08.2019 в 00:28
Pelena Дата: Воскресенье, 11.08.2019, 06:50 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 14321
Репутация: 3131 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
babdusya, оформите код тегами с помощью кнопки # в режиме правки поста и приложите файл с примером


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
Сообщениеbabdusya, оформите код тегами с помощью кнопки # в режиме правки поста и приложите файл с примером

Автор - Pelena
Дата добавления - 11.08.2019 в 06:50
Мир MS Excel » Вопросы и решения » Вопросы по Excel » при изменении времени должны менятся данные в других ячейках (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2019 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!