Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 3 След.
VBA. Вычисление факториала типа n!/m!(n-m)!
 
=Факториал(A2)/Факториал(A1)*Факториал(A2-A1)
Невозможно добавить/удалить строки в таблице, Ошибка при проведении действия
 
Создать новый файл, перенести туда значения из таблицы и пользоваться ей.
Или не вариант?
Как скрыть диаграмму вмести с группировкой строк, группировка строк вместе с диаграммой
 
Кирилл, что вы называете "стандартным способом"?
При группировке через Данные→Группировать диаграмма скрывается, если вы про сворачивание в сводной таблице, то там другой принцип.
Пароль, Пароль VBA
 
Chin_Chin, представьте, Вы приходите на форум по SQL с вопросом как указать поля в запросе. А там Over9000 тем с названиями Select, Проблема с Select, Ошибка в Select.
Как быстро Вы сможете найти нужную Вам информацию?

Облегчите поиск тем, кто зайдёт на форум после Вас. Предложите более конкретное название темы.
"После работы макроса устанавливается пароль на лист", например.

Да, пароль на листе INDEX
Изменено: Polkilo - 12 фев 2020 09:13:06
Пароль, Пароль VBA
 
Chin_Chin, Пароль НЕ на листе listok, название темы предложите)
Найти и выделить в столобце Excel заданные повторяющиеся сочетания символов, Необходимо находить в ячейке заданные повторяющиеся комбинации, напримет -ЕТ- и т.п.
 
Aleksandr!,  =ЕСЛИ(ЕСЛИОШИБКА(ПОИСК("-ET-";A1);0);"ET";ЕСЛИ(ЕСЛИОШИБКА(ПОИСК("-N";A1);0);"N";"Нет"))
Пароль, Пароль VBA
 
Chin_Chin, думаю к названию темы возникнут вопросы
Изменено: Polkilo - 12 фев 2020 08:41:44
Разделения (сплит) ячейки на столбцы с особыми условиями
 
Из +- адекватных вариантов могу предложить обрабатывать то, что есть автоматически, остальное разносить руками по справочнику, пока наполненность справочника не перекроет потребность.
Разделения (сплит) ячейки на столбцы с особыми условиями
 
YungSin, не могу посмотреть файлы. Автор обработки всегда один? В конце исполнителя всегда (PRS)?
Преобразование текста в дату
 
allex_121, Оберните формулу Насти в КОНМЕСЯЦА
КОНМЕСЯЦА не считает последний день
 
swordsmaster, 0,99 это 23:59:59, 1 это 24 часа
КОНМЕСЯЦА не считает последний день
 
Сергей, проще
Код
=СЧЁТЕСЛИМН($C$10:$C$2009;$D3;$B$10:$B$2009;">="&F$2;$B$10:$B$2009;"<"&КОНМЕСЯЦА(F$2;0)+1)
КОНМЕСЯЦА не считает последний день
 
swordsmaster, Что больше? 29.02.2020 00:00:00 или 29.02.2020 09:08:32?
Преобразование текста в дату
 
allex_121, Что вернёт формула =--AG23?
Преобразование текста в дату
 
Сергей, Благодарю.
Формулу поправил.

P.S. 2016/2019 открылся с датами
Изменено: Polkilo - 11 фев 2020 08:20:58
Преобразование текста в дату
 
allex_121,
Код
=ДАТА(ГОД(--AG23);МЕСЯЦ(--AG23);1)
Изменено: Polkilo - 11 фев 2020 11:58:35
Преобразование текста в дату
 
allex_121, Формат ячейки и тип данных это разные вещи.
"Откройте" ячейку для ввода и нажмите Enter.

Цитата
allex_121 написал:
ячейка автоматически становится текстом
Брюки превращаются...
Изменено: Polkilo - 11 фев 2020 07:55:46
В формуле отметить пересход, если Факт больше Плана, применить функцию ВЫБОР
 
Код
=ВЫБОР((A4<=B4)+1;"Перерасход";"Ок")
Суммирование значений в ячейках с условным форматированием, Суммирование значений в ячейках с условным форматированием
 
Lelya7, тоже далёк от программирования, но в файле нет функции "ActiveCondition". На что Вам и указывает ошибка.
Создать таблицу с автоматическим заполнением столбца и привязкой к выпадающиму списку
 
Kok89, заполните руками как должно быть.

1. Какой инвентарь нужен для программы РБ6?
2. Нужно вывести весь столбец по программам?
Изменено: Polkilo - 7 фев 2020 12:54:15
Преобразование семизначных чисел в текстовые маски
 
Цитата
Не слишком ли сурово? А если формат входа
Не спорю, но без примера пытаться угадать формат "семизначных "чисел"" лениво.
Было сказано про число. А тема про приведение номера к единому формату на форуме уже есть)

Последнее решение Вами и было предложено
Изменено: Polkilo - 7 фев 2020 08:29:48
Преобразование семизначных чисел в текстовые маски
 
iQuote,
Код
Function NumToChar(MyRange As Range)
Dim i As Long, Iter As Long
Dim ya As Variant
Dim NewNum As String

Const MyDict As String = "ABCDEFG" 'Справочник символов

If MyRange.Count > 1 Then NumToChar = CVErr(xlErrRef): Exit Function
If Len(MyRange) = 0 Or Len(MyRange) > Len(MyDict) Or Not IsNumeric(MyRange) Then NumToChar = CVErr(xlErrValue): Exit Function

ReDim MyArray(1 To Len(MyRange))
Iter = 1
For i = 1 To Len(MyRange)
    ya = Application.Match(CInt(Mid(MyRange, i, 1)), MyArray, 0)
    If Not IsError(ya) Then
            NewNum = NewNum & Mid(MyDict, ya, 1)
        Else
            MyArray(Iter) = CInt(Mid(MyRange, i, 1))
            NewNum = NewNum & Mid(MyDict, Iter, 1)
            Iter = Iter + 1
    End If
Next

NumToChar = NewNum

End Function
Изменено: Polkilo - 6 фев 2020 18:18:15 (Добавил проверку на число и диапазон)
Непонятные ошибки: меняется диапазон ссылки при вставке
 
arenatf,на первом скрине формула вставляется в столбец AJ, на втором в AL. Относительная ссылка корректно меняет адреса.
Если этого не требуется, то копируйте текст из окна формулы, а не ячейку целиком.
Подсчёт уникальных значений по нескольким критериям
 
Kalyam, не самый оптимальный вариант, но оптимизировать лениво:
Код
'Диапазон условия, условие, диапазон флага, флаг, столбец по которому считаем уникальные
Function ololo(Range1 As Range, City As String, range2 As Range, Flag As String, Range3 As Range)
Dim MyCell As Object, myDictionary As Object
Dim MyItem As Variant
Dim Counter As Long

If Range1.Count <> range2.Count Or Range1.Count <> Range3.Count Then ololo = "Ошибка"

Set myDictionary = CreateObject("Scripting.Dictionary")

On Error Resume Next
For Each MyCell In Range3
  myDictionary.Add CStr(MyCell), CStr(MyCell)
Next
On Error GoTo 0
Err.Clear

For Each MyItem In myDictionary.Items
    If WorksheetFunction.CountIfs(Range1, City, range2, Flag, Range3, MyItem) > 0 Then
        Counter = Counter + 1
    End If
Next

ololo = Counter

End Function
Пример использования:
=ololo($D$2:$D$40;G2;$E$2:$E$40;$E$4;$B$2:$B$40)
Подсчёт уникальных значений по нескольким критериям
 
Kalyam, несколько городов в одном акте могут быть? Если да, то как учитывать?
Подсчёт уникальных значений по нескольким критериям
 
Kalyam, считаться должны только записи, в которых выполняется условие по городу и гр с учётом уникальности по столбцу B?
Подсчёт уникальных значений по нескольким критериям
 
Kalyam, формула массива:
=СУММ(($C$2:$C$55=1)*($D$2:$D$55=G2)*($E$2:$E$55="гр"))

обычный СЧЁТЕСЛИМН:
=СЧЁТЕСЛИМН(D:D;G2;C:C;1;E:E;"гр")
Изменено: Polkilo - 23 янв 2020 16:04:31
Получить данные из другой ячейки при условии, что ячейка совпадает с искомой.
 
evghtcone, =ИНДЕКС($D$1:$G$1;1;ПОИСКПОЗ(C2;D2:G2;0))
Номера телефонов привести к единому формату
 
Андрей VG, благодарю, до регулярок пока не добрался, слишком редко возникает необходимость работы с текстом. Покурю на досуге)
Номера телефонов привести к единому формату
 
Андрей VG, Тут как посмотреть, мне, к примеру, проще хранить одну универсальную процедуру, чем плодить под каждый желаемый формат.
Так что для форума такое решение может быть полезным.
Страницы: 1 2 3 След.
Наверх