Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Макрос даты и времени, Можно ли
 
Можно ли на одном листе использовать макрос для проставления даты и времени мне нужно именно не добиться этого форматированием ячеек а создать макрос на одном листе NOW и TIME для дальнейших вычислений как объединить такие макросы не знаю?
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub 'если выделена не одна ячейка - выход из процедуры
    
    Rem если изменененная ячейка попадает в диапазон 
    If Not Intersect(Target, Range("B7:B10000")) Is Nothing Then
        With Target.Offset(0, 2) 'вводим в соседнюю справа ячейку дату
            .Value = Time
            .EntireColumn.AutoFit 'выполняем автоподбор ширины для столбца B, чтобы дата умещалась в ячейке
        End With
    End If
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub 'если выделена не одна ячейка - выход из процедуры
    
    Rem если изменененная ячейка попадает в диапазон 
    If Not Intersect(Target, Range("E7:E10000")) Is Nothing Then
        With Target.Offset(0, 2) 'вводим в соседнюю справа ячейку дату
            .Value = Now
            .EntireColumn.AutoFit 'выполняем автоподбор ширины для столбца B, чтобы дата умещалась в ячейке
        End With
    End If

End Sub



Формат ячеек с фильтром по дате
 
Никак не получается форматировать ячейки в нужный формат, для того чтобы поставить фильтр дат по месяцам и годам

Подскажите пожалуйста какой формат ячеек выбрать чтобы всё заработало?
Или каким способом отформатировать ячейки
Связанные выпадающие списки, Списки или умн таблицы
 
Нужно реализовать чтобы на первом листе при выборе отдела из одного столбца во втором столбце также можно было бы выбрать нужного сотрудника но не из всего списка сотрудников а только из сотрудников данного отдела который выбран был из выпадающего списка в предыдущем столбце

Важно при выборе сотрудника ЭТО КЛЮЧЕВОЙ СРЕЗ - выбрав сотрудника автоматом подгружается вся строка

Фильтры не подходят

Так как каждая строка должна быть статичной после всех выборов

и потом её можно было бы удалить.

Напрашивается вопрос почему сразу не выбрать сотрудника? Потому что например если 1000 сотрудников устанешь листать а выбрав отдел или цфо отдела или руководителя сразу же Колличество сотрудников уменьшиться до размера отдела!

2-й лист это источник информации, которая будет подгружаться в лист 1

2-й лист будет периодически пополняться информацией
Изменено: Владислав - 10.08.2022 19:54:58
Несколько макросов на листе, на одном листе два три и четыре макроса
 
Господа подскажите можно ли использовать на одном листе два три и четыре макроса

по вставке даты например мне надо при нажатии любой кнопки в столбике A в столбик B вставлять текущую дату

при помощи макроса ниже, как сделать так чтобы на этом же листе принажатии столбик А вставка была в В , затем при нажатии скажем D вставка была в E


Private Sub Worksheet_Change(ByVal Target As Range)
 
  For Each cell In Target   'проходим по всем измененным ячейкам
     If Not Intersect(cell, Range("A2:A100")) Is Nothing Then  'если изменененная ячейка попадает в диапазон A2:A100
          With cell.Offset(0, 2)         'вводим в соседнюю справа ячейку дату
             .Value = Time
             .EntireColumn.AutoFit  'выполняем автоподбор ширины для столбца B, чтобы дата умещалась в ячейке
          End With
     End If
  Next cell
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
 
  For Each cell In Target   'проходим по всем измененным ячейкам
     If Not Intersect(cell, Range("D2:D100")) Is Nothing Then  'если изменененная ячейка попадает в диапазон D2:D100
          With cell.Offset(0, 2)         'вводим в соседнюю справа ячейку дату
             .Value = Time
             .EntireColumn.AutoFit  'выполняем автоподбор ширины для столбца B, чтобы дата умещалась в ячейке
          End With
     End If
  Next cell
End Sub

расположив два макроса подряд выдаёт ошибку
"Разработчик" не активна кнопка "Вставить", "Разработчик" не активна кнопка "Вставить"
 
"Разработчик" не активна кнопка "Вставить"
Подсветка даты, правила наверное с датами не ясно
 
Скажите пожалуйста как в табеле учёта рабочего времени при проставлении даты в определённую ячейку она подсвечивалась каким либо цветом если время прихода на работу раньше 9 утра то зелёным если позже 9 утра то красным

Дата в таком формате  , каждый день при проставлении даты в ячейк хочу чтобы она понимала что сегодняшнюю дату со временем скажем 9:00 нужно сравнить с датой фактического прихода на работу если приход на работу позже то красный цвет или светофор скажем более 15 минут опоздания красный менее 15 минут опоздания жёлтый и нет опоздания зелёный
Изменено: Владислав - 03.08.2022 18:08:54
автоматическая вставка даты и времени
 
автоматическая вставка даты и времени в ту же ячейку в которой курсор при нажатии любой кнопки
И если это макрос как задать области таблицы где нужно применение данного правила или макроса
Страницы: 1
Наверх