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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 38 След.
Преобразование дат из текстового формата в числовой
 
Код
=ДАТА(
ПСТР(B1;МИН(ЕСЛИ(ЕЧИСЛО(-ПСТР(B1;СТРОКА($1:$99);1));СТРОКА($1:$99)));ПРОСМОТР(2;1/ЕЧИСЛО(-ПСТР(B1;СТРОКА($1:$99);1));СТРОКА($1:$99))-МИН(ЕСЛИ(ЕЧИСЛО(-ПСТР(B1;СТРОКА($1:$99);1));СТРОКА($1:$99)))+1);
МАКС(ЕСЛИОШИБКА(ПОИСК({"январь":"февраль":"март":"апрель":"май":"июнь":"июль":"август":"сентябрь":"октябрь":"ноябрь":"декабрь"};B1);0));
1)
VBA как компактнее написать перечисление условий
 
Спасибо, вот чуть подосвобожусь и начну курить советы.
Собрать в таблицу Excel сведения из таблиц Word файла
 
Добавил остальное
Файл Word в папке с Excel !!!
Откуда этот файл tmp появляется и как ему разрешить макросы я не разобрался
Код
Sub Таблицы()
Path = ThisWorkbook.Path & Application.PathSeparator & "word форум.docx"
Set wd = CreateObject("Word.Application")
wd.documents.Open Path
wd.Visible = True
n = 1
For i = 1 To wd.activedocument.Tables.Count
DoEvents
n = n + 1
ParagraphNum = wd.activedocument.Tables(i).Range.Start - 1
ParagraphNum = wd.activedocument.Range(Start:=0, End:=ParagraphNum).Paragraphs.Count
Cells(n, 1).Value = Application.Clean(wd.activedocument.Paragraphs(ParagraphNum).Range.Text)
Cells(n, 2).Value = wd.activedocument.Paragraphs(ParagraphNum).Range.ListFormat.ListString
Cells(n, 3).Value = Application.Clean(wd.activedocument.Tables(i).Cell(1, 2).Range.Text)
Cells(n, 4).Value = Application.Clean(wd.activedocument.Tables(i).Cell(2, 2).Range.Text)
Cells(n, 5).Value = Application.Clean(wd.activedocument.Tables(i).Cell(3, 2).Range.Text)
Cells(n, 6).Value = Application.Clean(wd.activedocument.Tables(i).Cell(4, 2).Range.Text)
Cells(n, 7).Value = Application.Clean(wd.activedocument.Tables(i).Cell(5, 2).Range.Text)
Cells(n, 8).Value = Application.Clean(wd.activedocument.Tables(i).Cell(6, 2).Range.Text)
Cells(n, 9).Value = Application.Clean(wd.activedocument.Tables(i).Cell(7, 2).Range.Text)
Next i
wd.documents.Close
wd.Quit
Set wd = Nothing
End Sub
Изменено: Тимофеев - 11.11.2022 18:43:52
VBA как компактнее написать перечисление условий
 
doober, спасибо, буду разбираться наконец с циклом
VBA как компактнее написать перечисление условий
 
Доброго дня, еще вопрос про компактность, а то вручную скоро быстрее заполнить чем в коде прописать )
Прилагаю пример:
Задаю ширину столбца и заполняю построчно  - как можно это сделать массивом покороче?
Код
Set acadTable = acadDoc.PaperSpace.AddTable(InsertionPoint, 2, 46, 3, 20) 'Вставляем таблицу
                acadTable.RegenerateTableSuppressed = True
                acadTable.BreaksEnabled = True
                acadTable.RepeatTopLabels = True
                acadTable.TableBreakHeight = 1050
                acadTable.BreakSpacing = 10
                'acadTable.DeleteRows 0, 1
                acadTable.SetText 0, 0, .Range("AW" & 1).value
                acadTable.SetColumnWidth 0, 8 '1-й столбец
                acadTable.SetColumnWidth 1, 90 '2-й столбец
                acadTable.SetColumnWidth 2, 18 '3-й столбец
                acadTable.SetColumnWidth 3, 45 '4-й столбец
                acadTable.SetColumnWidth 4, 14 '5-й столбец
                acadTable.SetColumnWidth 5, 14 '6-й столбец
                acadTable.SetColumnWidth 6, 14 '7-й столбец
                acadTable.SetColumnWidth 7, 14 '8-й столбец
                acadTable.SetColumnWidth 8, 14 '9-й столбец
                acadTable.SetColumnWidth 9, 14 '10-й столбец
                acadTable.SetColumnWidth 10, 14 '11-й столбец
                acadTable.SetColumnWidth 11, 14 '12-й столбец
                acadTable.SetColumnWidth 12, 14 '13-й столбец
                acadTable.SetColumnWidth 13, 14 '14-й столбец
                acadTable.SetColumnWidth 14, 14 '15-й столбец
                acadTable.SetColumnWidth 15, 14 '16-й столбец
                acadTable.SetColumnWidth 16, 14 '17-й столбец
                acadTable.SetColumnWidth 17, 14 '18-й столбец
                acadTable.SetColumnWidth 18, 14 '19-й столбец
                acadTable.SetColumnWidth 19, 14 '20-й столбец
                acadTable.SetColumnWidth 20, 14 '21-й столбец
                acadTable.SetColumnWidth 21, 14 '22-й столбец
                acadTable.SetColumnWidth 22, 14 '23-й столбец
                acadTable.SetColumnWidth 23, 14 '24-й столбец
                acadTable.SetColumnWidth 24, 14 '25-й столбец
                acadTable.SetColumnWidth 25, 14 '26-й столбец
                acadTable.SetColumnWidth 26, 14 '27-й столбец
                acadTable.SetColumnWidth 27, 14 '28-й столбец
                acadTable.SetColumnWidth 28, 14 '29-й столбец
                acadTable.SetColumnWidth 29, 14 '30-й столбец
                acadTable.SetColumnWidth 30, 14 '31-й столбец
                acadTable.SetColumnWidth 31, 14 '32-й столбец
                acadTable.SetColumnWidth 32, 14 '33-й столбец
                acadTable.SetColumnWidth 33, 14 '34-й столбец
                acadTable.SetColumnWidth 34, 14 '35-й столбец
                acadTable.SetColumnWidth 35, 14 '36-й столбец
                acadTable.SetColumnWidth 36, 14 '37-й столбец
                acadTable.SetColumnWidth 37, 14 '38-й столбец
                acadTable.SetColumnWidth 38, 14 '39-й столбец
                acadTable.SetColumnWidth 39, 14 '40-й столбец
                acadTable.SetColumnWidth 40, 14 '41-й столбец
                acadTable.SetColumnWidth 41, 14 '42-й столбец
                acadTable.SetColumnWidth 42, 14 '43-й столбец
                acadTable.SetColumnWidth 43, 14 '44-й столбец
                acadTable.SetColumnWidth 44, 14 '45-й столбец
                acadTable.SetColumnWidth 45, 14 '46-й столбец
                    For i = 1 To LastRow
                        acadTable.InsertRows i, 5, 1
                        acadTable.RegenerateTableSuppressed = True
                        If .Range("AW" & i + 1).value <> 0 Then
                        acadTable.SetText i, 0, .Range("AW" & i + 1).value
                        End If
                        If .Range("AX" & i + 1) <> 0 Then
                        acadTable.SetText i, 1, .Range("AX" & i + 1).value
                        End If
                        If .Range("AY" & i + 1).value <> 0 Then
                        acadTable.SetText i, 2, .Range("AY" & i + 1).value
                        End If
                        If .Range("AZ" & i + 1).value <> 0 Then
                        acadTable.SetText i, 3, .Range("AZ" & i + 1).value
                        End If
                        If .Range("BA" & i + 1).value <> 0 Then
                        acadTable.SetText i, 4, .Range("BA" & i + 1).value
                        End If
                        If .Range("BB" & i + 1).value <> 0 Then
                        acadTable.SetText i, 5, .Range("BB" & i + 1).value
                        End If
                        If .Range("BC" & i + 1).value <> 0 Then
                        acadTable.SetText i, 6, .Range("BC" & i + 1).value
                        End If
                        If .Range("BD" & i + 1).value <> 0 Then
                        acadTable.SetText i, 7, .Range("BD" & i + 1).value
                        End If
                        If .Range("BE" & i + 1).value <> 0 Then
                        acadTable.SetText i, 8, .Range("BE" & i + 1).value
                        End If
                        If .Range("BF" & i + 1).value <> 0 Then
                        acadTable.SetText i, 9, .Range("BF" & i + 1).value
                        End If
                        If .Range("BG" & i + 1).value <> 0 Then
                        acadTable.SetText i, 10, .Range("BG" & i + 1).value
                        End If
                        If .Range("BH" & i + 1).value <> 0 Then
                        acadTable.SetText i, 11, .Range("BH" & i + 1).value
                        End If
                        If .Range("BI" & i + 1).value <> 0 Then
                        acadTable.SetText i, 12, .Range("BI" & i + 1).value
                        End If
                        If .Range("BJ" & i + 1).value <> 0 Then
                        acadTable.SetText i, 13, .Range("BJ" & i + 1).value
                        End If
                        If .Range("BK" & i + 1).value <> 0 Then
                        acadTable.SetText i, 14, .Range("BK" & i + 1).value
                        End If
                        If .Range("BL" & i + 1).value <> 0 Then
                        acadTable.SetText i, 15, .Range("BL" & i + 1).value
                        End If
                        If .Range("BM" & i + 1).value <> 0 Then
                        acadTable.SetText i, 16, .Range("BM" & i + 1).value
                        End If
                        If .Range("BN" & i + 1).value <> 0 Then
                        acadTable.SetText i, 17, .Range("BN" & i + 1).value
                        End If
                        If .Range("BO" & i + 1).value <> 0 Then
                        acadTable.SetText i, 18, .Range("BO" & i + 1).value
                        End If
                        If .Range("BP" & i + 1).value <> 0 Then
                        acadTable.SetText i, 19, .Range("BP" & i + 1).value
                        End If
                        If .Range("BQ" & i + 1).value <> 0 Then
                        acadTable.SetText i, 20, .Range("BQ" & i + 1).value
                        End If
                        If .Range("BR" & i + 1).value <> 0 Then
                        acadTable.SetText i, 21, .Range("BR" & i + 1).value
                        End If
                        If .Range("BS" & i + 1).value <> 0 Then
                        acadTable.SetText i, 22, .Range("BS" & i + 1).value
                        End If
                        If .Range("BT" & i + 1).value <> 0 Then
                        acadTable.SetText i, 23, .Range("BT" & i + 1).value
                        End If
                        If .Range("BU" & i + 1).value <> 0 Then
                        acadTable.SetText i, 24, .Range("BU" & i + 1).value
                        End If
                        If .Range("BV" & i + 1).value <> 0 Then
                        acadTable.SetText i, 25, .Range("BV" & i + 1).value
                        End If
                        If .Range("BW" & i + 1).value <> 0 Then
                        acadTable.SetText i, 26, .Range("BW" & i + 1).value
                        End If
                        If .Range("BX" & i + 1).value <> 0 Then
                        acadTable.SetText i, 27, .Range("BX" & i + 1).value
                        End If
                        If .Range("BY" & i + 1).value <> 0 Then
                        acadTable.SetText i, 28, .Range("BY" & i + 1).value
                        End If
                        If .Range("BZ" & i + 1).value <> 0 Then
                        acadTable.SetText i, 29, .Range("BZ" & i + 1).value
                        End If
                        If .Range("CA" & i + 1).value <> 0 Then
                        acadTable.SetText i, 30, .Range("CA" & i + 1).value
                        End If
                        If .Range("CB" & i + 1).value <> 0 Then
                        acadTable.SetText i, 31, .Range("CB" & i + 1).value
                        End If
                        If .Range("CC" & i + 1).value <> 0 Then
                        acadTable.SetText i, 32, .Range("CC" & i + 1).value
                        End If
                        If .Range("CD" & i + 1).value <> 0 Then
                        acadTable.SetText i, 33, .Range("CD" & i + 1).value
                        End If
                        If .Range("CE" & i + 1).value <> 0 Then
                        acadTable.SetText i, 34, .Range("CE" & i + 1).value
                        End If
                        If .Range("CF" & i + 1).value <> 0 Then
                        acadTable.SetText i, 35, .Range("CF" & i + 1).value
                        End If
                        If .Range("CG" & i + 1).value <> 0 Then
                        acadTable.SetText i, 36, .Range("CG" & i + 1).value
                        End If
                        If .Range("CH" & i + 1).value <> 0 Then
                        acadTable.SetText i, 37, .Range("CH" & i + 1).value
                        End If
                        If .Range("CI" & i + 1).value <> 0 Then
                        acadTable.SetText i, 38, .Range("CI" & i + 1).value
                        End If
                        If .Range("CJ" & i + 1).value <> 0 Then
                        acadTable.SetText i, 39, .Range("CJ" & i + 1).value
                        End If
                        If .Range("CK" & i + 1).value <> 0 Then
                        acadTable.SetText i, 40, .Range("CK" & i + 1).value
                        End If
                        If .Range("CL" & i + 1).value <> 0 Then
                        acadTable.SetText i, 41, .Range("CL" & i + 1).value
                        End If
                        If .Range("CM" & i + 1).value <> 0 Then
                        acadTable.SetText i, 42, .Range("CM" & i + 1).value
                        End If
                        If .Range("CN" & i + 1).value <> 0 Then
                        acadTable.SetText i, 43, .Range("CN" & i + 1).value
                        End If
                        If .Range("CO" & i + 1).value <> 0 Then
                        acadTable.SetText i, 44, .Range("CO" & i + 1).value
                        End If
                        If .Range("CP" & i + 1).value <> 0 Then
                        acadTable.SetText i, 45, .Range("CP" & i + 1).value
                        End If
                    Next
Собрать в таблицу Excel сведения из таблиц Word файла
 
Бахтиёр, вот кусочек примера деревянного (не умею писать макросы) без первых 2-ух столбцов. - не табличные.
Явно одной строкой можно это забрать а не 7-ю, кто-то поправит из умеющих - может и я запомню.
P.S: Закидываю пока не понимаю как 40 подряд идущих столбцов в Autocad по одной пока )
Файл Word  должен лежать в паке с Excel.
Есть баг картинку приложил tmp файл просит разрешить макросы - надо закрыть это окно - иначе ошибка
Код
Sub Таблицы()
Path = ThisWorkbook.Path & Application.PathSeparator & "word форум.docx"
Set wd = CreateObject("Word.Application")
wd.documents.Open Path
wd.Visible = True
n = 1
For i = 1 To wd.activedocument.Tables.Count
DoEvents
n = n + 1
Cells(n, 3).Value = Application.Clean(wd.activedocument.Tables(i).Cell(1, 2).Range.Text)
Cells(n, 4).Value = Application.Clean(wd.activedocument.Tables(i).Cell(2, 2).Range.Text)
Cells(n, 5).Value = Application.Clean(wd.activedocument.Tables(i).Cell(3, 2).Range.Text)
Cells(n, 6).Value = Application.Clean(wd.activedocument.Tables(i).Cell(4, 2).Range.Text)
Cells(n, 7).Value = Application.Clean(wd.activedocument.Tables(i).Cell(5, 2).Range.Text)
Cells(n, 8).Value = Application.Clean(wd.activedocument.Tables(i).Cell(6, 2).Range.Text)
Cells(n, 9).Value = Application.Clean(wd.activedocument.Tables(i).Cell(7, 2).Range.Text)
Next i
wd.documents.Close
wd.Quit
Set wd = Nothing
End Sub
Изменено: Тимофеев - 11.11.2022 14:44:14
Пром.итоги по 2-м критериям, Вывод активных данных при использовании фильтра по 2-м критериям.
 
Не понял причем промежуточные итоги:
Код
=СУММЕСЛИМН(C19:C30;H19:H30;B3;I19:I30;A3)
Изменено: Тимофеев - 07.11.2022 12:12:14
Очистка неиспользуемых строк на листе, Вручную удалить выделенный диапазон не хватает памяти и книга виснет
 
Получилось на 64-разрядном офисе удалить - не очень быстро - но удалилось
В 16 Мб превратилось уже полегче стало )
Изменено: Тимофеев - 01.11.2022 15:12:58
Очистка неиспользуемых строк на листе, Вручную удалить выделенный диапазон не хватает памяти и книга виснет
 
Начал с одной строки
2 Листа проблемных
Макрос так же в ошибку, но хотя бы файл не виснет виснет файл
Код
Sub ДелСтрок()
    Rows("293:1048438").Select
    Selection.Delete Shift:=xlUp
End Sub
Изменено: Тимофеев - 01.11.2022 15:03:50
Очистка неиспользуемых строк на листе, Вручную удалить выделенный диапазон не хватает памяти и книга виснет
 
Добрый день!
(Файл уже достаточно нагруженный 25 Мб - в сети)
Как можно очистить неиспользуемые строки на одном из листов начиная с 500 до 1048438
Становлюсь на 500 и вниз - строки - удалить не хватает памяти, после чего грузит процессор на 100 и только снять задачу помогает
Изменено: Тимофеев - 01.11.2022 15:04:18
Получение символов из текста, Нужна помощь с формулой
 
Я не стал оплачивать 365 дальше - думаю что текстразд одно из последних для нас новых функций в обозримом будущем
Получение символов из текста, Нужна помощь с формулой
 
Цитата
написал:
слабоков
Как правильно пишется слабак? - проверить правописание (pravopisanie.com)

Запятая перед "что" ставится, когда это слово используется для присоединение придаточного предложение. А в остальных случаях не ставится. Не всегда перед "что" следует ставить запятую. Запятая перед "что" ставится всегда, если оно является союзным словом в сложноподчиненном предложении. Пример: я не верю, что можно так врать. Запятая перед "что" не ставится в составе неразложимых сочетаний.
Изменено: Тимофеев - 25.10.2022 08:33:38
Деление числа на части с учётом рабочего времени.
 
Ну пусть люди тоже узнают
Как записать существительное или прилагательное, начинающееся числом?
Как правильно: 3-х мерный или 3-мерный?
Корректное оформление: трехмерный (предпочтительно), 3-мерный.
Изменено: Тимофеев - 25.10.2022 08:28:57
Получение символов из текста, Нужна помощь с формулой
 
Решение Вам уже дали в №4
Деление числа на части с учётом рабочего времени.
 
Расход 3-ех одинаковых установок
Нумерация текста в ячейке по условию
 
Код
=ОБЪЕДИНИТЬ(",
";
1;
ПОСЛЕД(СЧЁТЗ(ФИЛЬТР.XML("<j><i>"&ПОДСТАВИТЬ(A2;", ";"</i><i>")&"</i></j>";"//i")))&". "&
ПРОПИСН(ПСТР(ФИЛЬТР.XML("<j><i>"&ПОДСТАВИТЬ(A2;", ";"</i><i>")&"</i></j>";"//i");1;1))&
ПСТР(ФИЛЬТР.XML("<j><i>"&ПОДСТАВИТЬ(A2;", ";"</i><i>")&"</i></j>";"//i");2;10000))
Среднее значение для отфильтрованного столбца, Помогите пожалуйста
 
так тогда делайте
Код
=СУММ($H$2:$H$173*((--$C$2:$C$173)=1))/СУММ(--(--$C$2:$C$173=1))
=СУММ($H$2:$H$173*((--$C$2:$C$173)=2))/СУММ(--(--$C$2:$C$173=2))
=СУММ($H$2:$H$173*((--$C$2:$C$173)=3))/СУММ(--(--$C$2:$C$173=3))
Среднее значение для отфильтрованного столбца, Помогите пожалуйста
 
не считает он нормально потому что там текст и только 94 число одно
Изменено: Тимофеев - 20.10.2022 18:36:40
Нужно замазать определенный текст в Word-файле и в формате PDF отправить получателям, чтобы те не смогли прочитать замазанные слова
 
Удаление конфиденциального содержимого из PDF-файлов в Adobe Acrobat
Если Акробат,  то:
Инструменты - Защита - Удалить скрытую информацию
В новом окошке удалить - сохранить - закрашенный текст исчезнет из документа и метаданные если не убрать галку
Изменено: Тимофеев - 19.10.2022 18:47:22
Извечения отрицательного числа из текста, Извечения отрицательного числа из текста
 
для моего системного разделителя правильнее так:
Код
=--ПОДСТАВИТЬ(ПОДСТАВИТЬ(Таблица4[@Столбец8];" ₴";"");",";ПСТР(1/2;2;1))
Изменено: Тимофеев - 19.10.2022 14:22:45
Офис 21 пропала справка по функциям
 
на всех компах проверил в 21 офисе справка не грузится
Офис 21 пропала справка по функциям
 
Вот собственно в 21 офисе вызов справки не выводит
Это запретили для РФ или у меня что слетело?
Изменено: Тимофеев - 19.10.2022 11:36:55
Копирование в другую книгу ячеек строки с выделенной ячейкой
 
Это же не про Ctrl+С и Ctrl+V надеюсь?
Сравнить цены в 3-х прайсах, Формула работает в 2-х прайсах, а в третьем не работает
 
Код
=ВПР(
ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A3;
"А";"A");"В";"B");"Е";"E");"К";"K");"М";"M");"О";"O");"Р";"P");"С";"C");"Т";"T");
$G$3:$I$239;3;ЛОЖЬ)
Формула вывода фамилий из графика отпусков по месяцам
 
=ФИЛЬТР($B$3:$B$5;C3:C5="*")
План закупа
 
Код
=ЕСЛИ(B6<=B22;0;ОКРУГЛВНИЗ((B6-B22)/B30;0)*B30+ОКРУГЛВВЕРХ((B6-B22-ОКРУГЛВНИЗ((B6-B22)/B30;0)*B30)/B38;0)*B38)
Вывод ячейки, принадлежащей сегодняшнему дню недели
 
Код
=ВЫБОР(ДЕНЬНЕД(СЕГОДНЯ();2);A2;B2;C2;D2;E2;"Выходной")
=ЕСЛИОШИБКА(ИНДЕКС($A$2:$E$2;1;ДЕНЬНЕД(СЕГОДНЯ();2));"Выходной")
Изменено: Тимофеев - 18.10.2022 07:43:08
Создать код по ФИО, Создать код по ФИО
 

Барнаби Мармадюк Алоизий Бенджи Кобвеб Дартаньян Эгберт Феликс Гаспар Гумберт Игнатий Джейден Каспер Лерой Максимилиан Недди Объяхулу Пепин Кьюллиам Розенкранц Секстон Тедди Апвуд Виватма Уэйленд Ксилон Ярдли Закари Усански

2;1;18;15;1;2;10 14;1;18;14;1;5;32;12 1;13;16;10;9;10;11 2;6;15;5;8;10 12;16;2;3;6;2 5;1;18;20;1;15;30;33;15 31;4;2;6;18;20 22;6;13;10;12;19 4;1;19;17;1;18 4;21;14;2;6;18;20 10;4;15;1;20;10;11 5;8;6;11;5;6;15 12;1;19;17;6;18 13;6;18;16;11 14;1;12;19;10;14;10;13;10;1;15 15;6;5;5;10 16;2;28;33;23;21;13;21 17;6;17;10;15 12;30;32;13;13;10;1;14 18;16;9;6;15;12;18;1;15;24 19;6;12;19;20;16;15 20;6;5;5;10 1;17;3;21;5 3;10;3;1;20;14;1 21;31;11;13;6;15;5 12;19;10;13;16;15 33;18;5;13;10 9;1;12;1;18;10 21;19;1;15;19;12;10

II;I;XVIII;XV;I;II;X XIV;I;XVIII;XIV;I;V;XXXII;XII I;XIII;XVI;X;IX;X;XI II;VI;XV;V;VIII;X XII;XVI;II;III;VI;II V;I;XVIII;XX;I;XV;XXX;XXXIII;XV XXXI;IV;II;VI;XVIII;XX XXII;VI;XIII;X;XII;XIX IV;I;XIX;XVII;I;XVIII IV;XXI;XIV;II;VI;XVIII;XX X;IV;XV;I;XX;X;XI V;VIII;VI;XI;V;VI;XV XII;I;XIX;XVII;VI;XVIII XIII;VI;XVIII;XVI;XI XIV;I;XII;XIX;X;XIV;X;XIII;X;I;XV XV;VI;V;V;X XVI;II;XXVIII;XXXIII;XXIII;XXI;XIII;XXI XVII;VI;XVII;X;XV XII;XXX;XXXII;XIII;XIII;X;I;XIV XVIII;XVI;IX;VI;XV;XII;XVIII;I;XV;XXIV XIX;VI;XII;XIX;XX;XVI;XV XX;VI;V;V;X I;XVII;III;XXI;V III;X;III;I;XX;XIV;I XXI;XXXI;XI;XIII;VI;XV;V XII;XIX;X;XIII;XVI;XV XXXIII;XVIII;V;XIII;X IX;I;XII;I;XVIII;X XXI;XIX;I;XV;XIX;XII;X

Изменено: Тимофеев - 17.10.2022 16:13:58
СУММАЕСЛИМН и дата в столбцах, Не сумирует СУММАЕСЛИМН при наличии двух условий даты
 
1
СУММАЕСЛИМН и дата в столбцах, Не сумирует СУММАЕСЛИМН при наличии двух условий даты
 
Код
месяц 1,2,3...
=СУММ(C11:BI11*(МЕСЯЦ(C1:BI1)=1))
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 38 След.
Наверх