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

Страницы: 1
Режим работы сутки через трое. Даты смен на 2 месяца., Вывод списком в столбец дат смен.
 
#
18.01.2025 13:57:10
Здравствуйте уважаемые форумчане! Вынужден обратиться  к Вам за помощью. Имеется 4 группы сотрудников работающих с графиком сутки через трое. Задача вывести даты смен столбцом  из таблицы для каждой из групп.  
Изменено: Алексей Быков - 18.01.2025 15:46:12
 
Перейти    
Удаление данных из выпадающего списка умной таблицы по нажатию на кнопку.
 
#
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:05:15
Столбец "А" заполнен ФИО В формате "Ф И. О.". В столбце "В" правильно написана фамилия, но нет имени и отчества, или нет отчества, или нет точки после ФИО.
Как посчитать количество примерных совпадений. Понимаю что это надо сделать через СЧЁТЗ и ПОИСКПОЗ. Но получается поженить, я новичок.
 
Перейти    
Счет заполненных ячеек от строки с определенным словом до конца таблицы или до другого слова
 
#
15.01.2021 13:29:51
В столбце "А" с А1 по А43 имеются выпадающие списки с фамилиями. В ячейке С1 через СЧЕТЗ считаются заполненые ячейки. Каким образом сделать так, что бы счет заполненых ячеек начинался если в яцейке появляется слово "посчитать", и подсчет заполненых ячеек  производился с этой ячейке до конца таблицы? А результат выдодился в D1. Слово "посчитать" также находится в выпадающем списке.
 
Перейти    
Страницы: 1
Наверх