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

Страницы: 1
Суммирование массива текстовых данных
 
Добрый день ,
Прошу помощи найти решение

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

в примере вручную (желтым) поставил , какой нужен результат формулы

Извлечь из каждой ячейки значения могу, а как это размножить на n столбцов не знаю , прописывать для каждой ячейки
=ЛЕВСИМВ(C2;ПОИСК("_";C2;1)-1)+ЛЕВСИМВ(D2;ПОИСК("_";D2;1)-1)+…...  деревянный способ да и планируется около 50 столбцов
Список папки с подпапками и файлами структурировано, Создание иерархического списка попка с файлами и подпапка с файлами
 
Уважаемые знатоки , прошу помочь отредактировать код . Тема не новая собрал с разных форумов , то что мне нужно , но осталась деталь, которая надеюсь кто знает  скажет как исправить с минимальными исправлениями.

Сделал макрос выводящий список папок /подпапок и файлов по заданному пути , но нужно что бы сгруппированы были все файлы папки ,подпапки и фулы подпапки заполнялись последовательно. Из за того что процедура проверки подпапки вне пределов цикла получается сначала заполняется список папок и в нем файлы и потом клеится еще список всех подряд подпапок с файлами . Как это можно исправить в текущем коде ?

Код
 'вызываем процедуру повторно для каждой вложенной папки
    If IncludeSubfolders Then
        For Each SubFolder In SourceFolder.SubFolders
            ListFilesInFolder SubFolder.Path, True
        Next SubFolder
Уникальная ссылка на ячейку в формулах
 
Добрый день.
Кто сталкивался, помогите пожалуйста решить задачу или правильно задать запрос для поиска

Возможно ли в длинных формулах не повторять по многу раз ссылку на одну и туже ячейку? Например как в примере ниже А1 используется 7 раз .

PS формула вытаскивает текст между двух "*" по маске  *_*_* ( но сама формула вторична, если кто то предложит оптимизировать будет здорово , но это не вопрос темы. )

=ПСТР(A1;ПОИСК("_";A1;1)+1;ЕСЛИОШИБКА(ПОИСК("_";A1;ПОИСК("_";A1;1)+1)-ПОИСК("_";A1;1)-1;ДЛСТР(A1)-ПОИСК("_";A1;1)+1))
Изменено: SSL - 21.03.2022 02:44:17
Сохранение исх./вход/ писем из outlook в exel
 
Здравствуйте.
Нужно сделать вкладку на панели управления outlook, в которой будут присваиваться письму нужные теги , файл сохраняться на сервере в указанном месте , теги сохраняться в файле эексель ( в виде реестра)

Если что то подобное делали и сразу знаете, как делать и сколько будет стоить, прошу в лс озвучить стоимость и условия  
Изменено: SSL - 06.12.2021 18:46:33
VBA удаление пустых строк после объединения ячеек
 
Здравствуйте Скажите пожалуйста что не так в макросе .
Выделяю диапазон, объединяю ячейки,  удаляю пустые ячейки со сдвигом вверх по столбику , хотя, как я понимаю, должна удаляться вся строчка . Почему удаляется не строчка, а только ячейки? Мне нужно удалить именно строку, пустую строку , в которой ранее было значение
Код
Sub MergeToOneCelldell()
   Const sDELIM As String = " " 
   Dim rCell As Range
   Dim sMergeStr As String
   Dim n As Long, i As Long
   If TypeName(Selection) <> "Range" Then Exit Sub   'если выделены не ячейки - выходим
   With Selection
 For Each rCell In .Cells
sMergeStr = sMergeStr & sDELIM & rCell.Text  'собираем текст из ячеек
           rCell = "" '(добавляем строку)
 Next rCell
 Application.DisplayAlerts = False   'отключаем стандартное предупреждение о потере текста
       '.Merge Across:=False       'объединяем ячейки (комментим эту строку)
 Application.DisplayAlerts = True
 .Item(1).Value = Mid(sMergeStr, 1 + Len(sDELIM))    'добавляем к объед.ячейке суммарный текст
   n = .Rows.Count
    For i = n To 1 Step -1
        If .Rows(i).Text = "" Then .Rows(i).Delete
    Next
   
   End With

End Sub
Изменено: vikttur - 27.08.2021 21:50:11
Сохранение результатов поиска "найти"
 
Добрый день .
Скажите пожалуйста как можно решить задачу.
Функцией поиск  "найти все в книге" в большой книге ищу определенное выражение, оно часть текста в ячейке .
Нужно  вывести значения всех найденных ячеек в список на отдельный лист

Например ищу "яблоко" будет найдено купить яблоко (разные ) на всех листах . нужно это результат купить яблоки сохранить как список

Заранее спасибо тем кто сможет помочь  
Суммпроизв + текст, Нужно просумировать произведения двух столбцов по не точному критерию из третьего столбца
 
Добрый день.
Подскажите пожалуйста, кто знает должна ли работать формула суммпроизв как указана в примере.
Мне нужно по критерию яблоко суммировалось произведение из столбика кг со столбиком цена, пробовал разные варианты  например использовать еще в формуле поиск.  но не получается так что бы суммировал весь столбик и перемножал.
если выбрать критерий какое то конкретное значение например яблоко желтое все работает но мне нужно что бы суммировались все яблоки.
Изменено: SSL - 08.12.2015 15:15:55
Страницы: 1
Наверх