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

Страницы: 1 2 3 4 5 След.
Формула если число с минусом то посто, Формула если число с минусом то посто
 
=ЕСЛИ(A1-B1<0;"";A1-B1)
Сортировака с условиями
 
Пример для 2016
Сортировака с условиями
 
формула массива вводится через Ctrl+ Shift+ Enter
Сортировака с условиями
 
Зависит от версии эксель
До 2019
конструкция такая
формула массива
=МИН(ЕСЛИ($B$2:$B$10="Ж";$A$2:$A$10))  

с 2019
=МИНЕСЛИ(A2:A10;B2:B10;"Ж")
Перенос строки из одной таблицы в другую, Перенос строки из одной таблицы в другую по нажатию кнопки
 
*
СУММЕСЛИМН + подстановочный знак, Использование подстановочного знака в формуле для поиска всех числовых вхождений (быстрый аналог фильтра)
 
Значения в таблице склад в текст превратил

Можно по другому
Добавьте проверку ЕЧИСЛО
Если в ячейке число, тогда ищем данное значение, если нет, то все, что больше -1

ЕСЛИ(ЕЧИСЛО(F14);F14;">-1")
СУММЕСЛИМН + подстановочный знак, Использование подстановочного знака в формуле для поиска всех числовых вхождений (быстрый аналог фильтра)
 
Очень много текста, что именно имеется ввиду?
ставим в F14 звездочку и формула ломается?

? - поиск одного неизвестного знака
* - поиск любого колва знаков
Как в VBA описать событие : сделать действие для одной строки и потом повторить тоже самое действие для следующей строки.
 
*
Создание папки с именем ячеек из таблицы
 
Лень Ваш код перебирать
коротко, вот так  
Код
MkDir ThisWorkbook.Path & "\" & Range("A1").Value

Если у Вас большое объединение типа Range("АВР!Q34") & Range("АВР!AS34") и т.д. и т.п., то лучше внести в переменную и использовать ее и для создания папки и для  создания файла
Код
Dim Имя As String
Имя = ThisWorkbook.Path & "\" & Range("A1") & Range и т.д. и т.п. 
MkDir Имя
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Имя, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
Подстановка значений из одного листа в другой, Необходимо разбить значения по не повторяющимся условиям одного листа во второй лист где условия повторяются
 
*
составление списка на отправку товаров по отмеченным товарам, Нужна помощь по составлении команды/макроса для формирования накладной на отправку товара
 
=ЕСЛИОШИБКА(ИНДЕКС(Sheet1!T:T;НАИМЕНЬШИЙ(ЕСЛИ("Yes"=Sheet1!A:A;СТРОКА(Sheet1!T:T);"");СТРОКА()-22));"")
Как прописать формулу в VBA, используя Cells и переменные
 
А Вам точно макрос-формула нужна (лучше тогда свою функцию написать)

Ну через формулу...
СУММ - можно закладывать внутрь СУММПРОИЗВ
=СУММПРОИЗВ(B2:B7;C2:C7/СУММ(C2:C7))

СУММПРОИЗВ - поддерживает условие
=СУММПРОИЗВ((A2:A18=A2)*B2:B18*C2:C18)

СУММ по условию - СУММЕСЛИ
=СУММПРОИЗВ(($A$2:$A$18=A2)*$B$2:$B$18*$C$2:$C$18/СУММЕСЛИ($A$2:$A$18;A2;$C$2:$C$18))

Если через VBA
см файл
Почему не сходятся средние значения?
 
У Вас есть город А с данными 1, 2, 3, 4, средний (1+2+3+4)/4=2,5
Есть город Б с данными 5, 6, 7, 8, 9, средний (5+6+7+8+9)/5=7
Средний по двум городам (2,5+7)/2=4,75
Средний по всем значениям (1+2+3+4+5+6+7+8+9)/9=5
Макрос подсветки совпадений текста в ячейках
 
WorksheetFunction.CountIf (Счётесли) - не будет работать если в ячейке больше 256 символов

см вложение
Условное форматирование в экселе
 
*
Как протянуть формулу в столбце кроме определенных ячеек
 
*
Удаление пустых строк на листе (не все удаляются), VBA
 
Вы тот файл приложили? (на скрине другие данные)

см вложение
Табель учета рабочего времени
 
Стандартными функциями, если только брать число месяца из C9 = 3 превращать его в ДЕНЬНЕД - если (СБ или ВС)  и нет этой даты в отдельном столбце "Праздники" и не равно О/Б/К тогда считать. (лет десять назад делал что то такое, лень собирать сейчас)


А так отдельную функцию сделал "ЖЕЛТЫЕиОБК" в прикрепленном файле

Ячейка AR10
Фильтрация самой ранней даты для каждого группы значений содержащей несколько дат, Фильтрация самой ранней даты для каждого группы значений содержащей несколько дат
 
Сортировка по дате, удалить дубликаты
Подсчет чистого времени в определенные даты с условием
 
Код
=СУММЕСЛИМН($D$8:$D$15;$B$8:$B$15;I8;$C$8:$C$15;">="&6/24;$C$8:$C$15;"<"&"10"/24)
Как из диапазона дат вывести дату начала/окончания периода
 
Код
=ЕСЛИ(ЛЕВСИМВ(B6;5)&"/"&ПРАВСИМВ(B6;2)<=ПРАВСИМВ(B6;8);ЛЕВСИМВ(B6;5)&"/"&ПРАВСИМВ(B6;2);ЛЕВСИМВ(B6;5)&"/"&(ПРАВСИМВ(B6;2)-1))
Извлечение ФИО из ячейки
 
По примеру этих 3х строк
Вся формула и по шагово для понимания
Извлечение ФИО из ячейки
 
Файл-пример бы, на 8 - 10 строк, не понятно, что такое ин1, если вы ФИО ищете.
Из того, что я понял, =ВПР("*"&ин1&"*";"таблица с данными ФИО|ЛС;2;)
VBA. Аналог формулы ВПР(Excel) для работы с большими массивами., Способы реализации сопоставления данных в 2-х массивах с большим количеством "строк" (данных в 1-ой размерности).
 
Возьмите код asesja, который называется Cycle, он правильно построен

Еще ускорить можно в нем, во время работы макроса добавить приоритет экселя "реального времени", ну и стандартный набор скринапдейтинг и т.д., где то 2 секунды выиграете (8 против 6 с. на миллион строк)

Вначале кода
Код
Const REALTIME = 256
Dim strComputer As String
Dim objWMIService As Object, colProcesses As Object, objProcess As Object
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colProcesses = objWMIService.ExecQuery("Select * from Win32_Process Where Name = 'excel.exe'")
For Each objProcess In colProcesses
objProcess.SetPriority (REALTIME)
Next
Set objWMIService = Nothing
Set colProcesses = Nothing
Set objProcess = Nothing
T = Timer
With Application: .ScreenUpdating = False: .EnableEvents = False: .DisplayAlerts = False: .DisplayStatusBar = False: .ReferenceStyle = xlA1: .Calculation = xlManual: End With
ActiveWorkbook.ActiveSheet.DisplayPageBreaks = False

В конце кода
Код
With Application: .Calculation = xlAutomatic: .DisplayAlerts = True: .DisplayStatusBar = True: .EnableEvents = True: .ScreenUpdating = True: End With
MsgBox "Обработка данных продолжалась " & Round(Timer - T, 2) & " сек.", vbInformation, "i7 тест"
Изменено: Ham13 - 20.08.2023 15:27:32
Разделение текста в ячейке через формулу по критерию регистра
 
*
Подтягивание значений на другой лист без пустых значений
 
Если поддерживает фунцию ФИЛЬТР (2021/365)
=ФИЛЬТР(лист1!B:B;лист1!B:B<>"")
Сумма произведений трёх наибольших чисел
 
Тоже не до конца понял
на листе "Коэф" вставьте формулу в любую пустую ячейку, посчитает для Человека 4 (96,25%). Так имеется ввиду?

=(ИНДЕКС('%'!B5:G5;ПОИСКПОЗ(НАИБОЛЬШИЙ(УНИК(B5:G5;ИСТИНА);1);B5:G5;0))*НАИБОЛЬШИЙ(УНИК(B5:G5;ИСТИНА);1)+ИНДЕКС('%'!B5:G5;ПОИСКПОЗ(НАИБОЛЬШИЙ(УНИК(B5:G5;ИСТИНА);2);B5:G5;0))*НАИБОЛЬШИЙ(УНИК(B5:G5;ИСТИНА);2)+ИНДЕКС('%'!B5:G5;ПОИСКПОЗ(НАИБОЛЬШИЙ(УНИК(B5:G5;ИСТИНА);3);B5:G5;0))*НАИБОЛЬШИЙ(УНИК(B5:G5;ИСТИНА);3))/СУММ(НАИБОЛЬШИЙ(УНИК(B5:G5;ИСТИНА);1);НАИБОЛЬШИЙ(УНИК(B5:G5;ИСТИНА);2);НАИБОЛЬШИЙ(УНИК(B5:G5;ИСТИНА);3))
счетчик до даты
 
=ЕСЛИ(ДЕНЬ($B$2)>25;ДАТА(ГОД($B$2);МЕСЯЦ($B$2)+1;25)-$B$2;25-ДЕНЬ($B$2))
Присвоение ячейке Значения заголовка столбца по соответствию значения
 
*
Как написать макрос, для удаления не использующихся имён ячеек?, Слишком много имён, превращается всё в свалку.
 
Код
Sub Удаление_имен()
    Dim nm As Name
    For Each nm In ActiveWorkbook.Names
        If Application.WorksheetFunction.CountA(nm.RefersToRange) = 0 Then
            nm.Delete
        End If
    Next nm
End Sub
Страницы: 1 2 3 4 5 След.
Наверх