Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » Алексей Быков
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
VBA метод Find по листам в несколько итераций: по нажатию на кнопку, проставить в табеле в соответствующих ячейках букву или знак, в соответствии с периодами заданных дат., Вычисление вхождения даты в период. Поиск соответствующих строк сотрудников и столбцов дат по листам . Вставка в найденные ячейки знака или буквы.
 
#
13.11.2025 14:51:24

Здравствуйте уважаемые форумчане! Не один раз, вы приходили на помощь, давали правильное направление мысли и помогали решить поставленную задачу. Исчерпав свои немногочисленные знания, и прочитав огромное количество материала на форуме, решения не нашел.  Прощу помощи в очередной раз. Задача: на листе «Даты» есть таблица сотрудников с тремя периодами дат «с» «по». И есть 12 листов помесячно со списком сотрудников в столбце и датами соответствующими названию месяца в строках (шапках таблиц). По нажатию на кнопку на листе «Даты», на листах месяцев, в ячейках соответствующим строкам сотрудникам и датам периодов проставляется буква «Р».  Для решения этой задачи хотел найти количество сотрудников. Используя метод Find циклом в 3 итерации (3 периода дат) находить номер соответствующих столбцов и строк, а далее проставлять в соответствующих ячейках букву «Р», однако метод Find, не находит дат в  листах месяцах. Даты на листах месяцев формируются формулой. Голову сломал.  

 
Перейти    
Режим работы сутки через трое. Даты смен на 2 месяца., Вывод списком в столбец дат смен.
 
#
19.01.2025 14:09:10
Большое спасибо всем участникам принимавшим участие в решении данной проблемы. Благодаря Вам мой вопрос решен.  
 
Перейти    
Режим работы сутки через трое. Даты смен на 2 месяца., Вывод списком в столбец дат смен.
 
#
18.01.2025 21:52:28
Товарищи, вы вдохновили меня, выкладываю свой пример решения. Подсчет графика для каждой группы происходит по формуле:
Код
 =ЕСЛИ(ОСТАТ(C$3;4)=2;C3;ЕСЛИ(ОСТАТ(D$3;4)=2; D3;ЕСЛИ(ОСТАТ(E$3;4)=2;E3;ЕСЛИ(ОСТАТ(F$3;4)=2;F3;"Ошибка данных"))))

А вычисление ближайшей даты смены каждой из групп  по формуле:

Код
{=МИН(ЕСЛИ((E16:E30>=СЕГОДНЯ());E16:E30))}

Но с объявлением  в массив {}. Shift+Ctr+Enterl.

И возникает следующий вопрос, каким ещё способом можно вычислить ближайшую дату смены для каждой из групп к сегодняшнему дню? Не используя массивы :evil:.

 
Перейти    
Режим работы сутки через трое. Даты смен на 2 месяца., Вывод списком в столбец дат смен.
 
#
18.01.2025 21:41:57
Цитата
написал:
Между делом... График смен на год с указанием первой смены и колиВ
Вот это сильно.
 
Перейти    
Режим работы сутки через трое. Даты смен на 2 месяца., Вывод списком в столбец дат смен.
 
#
18.01.2025 20:07:08
Цитата
написал:
А я и не планировал определять первое дежурство в месяце. Его нужно прописать руками в ячейку В8. Можно любую дату с дежурством прописать, в результате сформируется перечень дежурств начиная с указанной даты. В вашем случае придется указывать дату первого дежурства, в В8 или в другой ячейке или скрытом месте (на другом листе или в скрытых ячейках).
Цитата
Спасибо Вам, я понял вашу мысль, и идею.  Вектор мышления получен, работаю! Еще раз спасибо за помощь!
 
Перейти    
Режим работы сутки через трое. Даты смен на 2 месяца., Вывод списком в столбец дат смен.
 
#
18.01.2025 17:40:21
BodkhiSatva! Огромное спасибо! Это то что нужно. Я понял как это должно быть организованно и реализованно.
 
Перейти    
Режим работы сутки через трое. Даты смен на 2 месяца., Вывод списком в столбец дат смен.
 
#
18.01.2025 16:05:43
Спасибо! Однако не то, что нужно. У первой группы не всегда будут выпадать  дежурства на каждое 1 число мясяца.  Я пытаюсь работать  таблицей, она автоматическая, даты дней двух месяцев выставляются автоматически, и автоматически подкрашиваются клетки с дежурствами для каждой группы, через условное форматирование. Пробовал найти в строке таблицы закрашенные ячейки и вывести соответствующие даты в столбец, однако примененное условное форматирование только подсвечивает ячейки, а не делает их реальную заливку. От этого подсвеченная ячейка, реально не имеет цвета при ее определении кодом.  
 
Перейти    
Режим работы сутки через трое. Даты смен на 2 месяца., Вывод списком в столбец дат смен.
 
#
18.01.2025 13:57:10
Здравствуйте уважаемые форумчане! Вынужден обратиться  к Вам за помощью. Имеется 4 группы сотрудников работающих с графиком сутки через трое. Задача вывести даты смен столбцом  из таблицы для каждой из групп.  
Изменено: Алексей Быков - 18.01.2025 15:46:12
 
Перейти    
Удаление данных из выпадающего списка умной таблицы по нажатию на кнопку.
 
#
03.02.2021 22:16:44
Спасибо за разъяснение. Воспользуюсь Вашим советом.
 
Перейти    
Удаление данных из выпадающего списка умной таблицы по нажатию на кнопку.
 
#
03.02.2021 14:32:55
Однако, если добавить еще одну таблицу на Лист2, макрос перестает работать. Подскажите как исправить?
 
Перейти    
Удаление данных из выпадающего списка умной таблицы по нажатию на кнопку.
 
#
27.01.2021 14:48:26
Потрясающе!!!!!!!!!! КОМПРЭСИЯ!!!!!!!!! ****эмоции*****  :D  Спасибо Вам большое!!!!  
 
Перейти    
Удаление данных из выпадающего списка умной таблицы по нажатию на кнопку.
 
#
27.01.2021 14:23:33
На Листе2 имеется список в "Умной таблице" (Ctrl+T) (Таблица 1 ). В этой таблице создан диапазон "Фамилии" (Формулы - Диспетчер имен). На странице 1 созданы выпадающие списки. И добавлен скрипт для добавления сотрудника в умную таблицу  на Листе2, по примеру с форума https://www.planetaexcel.ru/techniques/1/35/index.php?page=user&id=11. Необходимо создать форму удаления сотрудника из умной таблицы, да так что бы умная таблица уменьшалась на 1 ячейку.  Например в ячейке D1 выпадающий список. Выбираем фамилию и удаляем нажатием кнопки из умной таблицы на листе 2.

Сам скрипт добавления и сортировки.
Код
Private Sub Worksheet_Change(ByVal Target As Range)

Dim lReply As Long

    If Target.Cells.Count > 1 Then Exit Sub
        If Not Intersect(Target, Range("A1:A42")) Is Nothing Then
            If IsEmpty(Target) Then Exit Sub
                If WorksheetFunction.CountIf(Sheets("Лист2").Range("Фамилии"), Target) = 0 Then
                    lReply = MsgBox("новый сотрудник " & Target & " ,добавить?", vbYesNo + vbQuestion)
                        If lReply = vbYes Then
                            Worksheets("Лист2").Range("Фамилии").Cells(Worksheets("Лист2").Range("Фамилии").Rows.Count + 1, 1) = Target
                        End If
                End If
        End If
      Sheets("Лист2").Range("Фамилии").Sort Key1:=Sheets("Лист2").Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
   OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal 'this cod will help to range your stores
End Sub
 
Перейти    
Посчитать число неточных совпадений в двух столбцах
 
#
15.01.2021 21:13:50
Пробовал. Находит всего 1 точное совпадение из 15 не точных.
Изменено: Алексей Быков - 15.01.2021 21:14:18
 
Перейти    
Посчитать число неточных совпадений в двух столбцах
 
#
15.01.2021 21:05:15
Столбец "А" заполнен ФИО В формате "Ф И. О.". В столбце "В" правильно написана фамилия, но нет имени и отчества, или нет отчества, или нет точки после ФИО.
Как посчитать количество примерных совпадений. Понимаю что это надо сделать через СЧЁТЗ и ПОИСКПОЗ. Но получается поженить, я новичок.
 
Перейти    
Счет заполненных ячеек от строки с определенным словом до конца таблицы или до другого слова
 
#
15.01.2021 14:32:39
vikttur, спасибо за ценный совет.  8-0  Этот вопрос будет учтен. Данный документ не будет учувствовать в финансовых подсчетах.
 
Перейти    
Счет заполненных ячеек от строки с определенным словом до конца таблицы или до другого слова
 
#
15.01.2021 14:27:42
Грубо говоря, это строевая записка. В столбце А идет подсчёт сотрудников на выходном. Но в этом же столбце могут добавляться сотрудники отпущенные домой со смены в отгул. В подсчете сотрудники отпущенные домой не учувствуют.  
 
Перейти    
Счет заполненных ячеек от строки с определенным словом до конца таблицы или до другого слова
 
#
15.01.2021 14:19:17
Цитата
vikttur написал:
дет считать с середины списка - будете менять ФИО на слово "посчитать"?
Да все верно.  
 
Перейти    
Счет заполненных ячеек от строки с определенным словом до конца таблицы или до другого слова
 
#
15.01.2021 14:17:02
На эмоциях от радости опечатался :D  Форумчане большое Вам спасибо! Мною было потрачено много времени на поиски этого решения на форумах и учебных статьях. Я начинающий пользователь.
 
Перейти    
Счет заполненных ячеек от строки с определенным словом до конца таблицы или до другого слова
 
#
15.01.2021 14:05:32
Огромное Вам Спасибо!!! Почти работает. Единственно если в столбце А1 отсутствует слово "посчитать" ячейка D1 считает 1. Но вы дали мне направление в котором нужно изучать вопрос.  
 
Перейти    
Счет заполненных ячеек от строки с определенным словом до конца таблицы или до другого слова
 
#
15.01.2021 13:47:19
Спасибо. Пример подгрузил.
 
Перейти    
Счет заполненных ячеек от строки с определенным словом до конца таблицы или до другого слова
 
#
15.01.2021 13:29:51
В столбце "А" с А1 по А43 имеются выпадающие списки с фамилиями. В ячейке С1 через СЧЕТЗ считаются заполненые ячейки. Каким образом сделать так, что бы счет заполненых ячеек начинался если в яцейке появляется слово "посчитать", и подсчет заполненых ячеек  производился с этой ячейке до конца таблицы? А результат выдодился в D1. Слово "посчитать" также находится в выпадающем списке.
 
Перейти    
Страницы: 1
Наверх