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

Страницы: 1 2 След.
Суммпроизв в VBA с диапазоном по условию
 
#
08.10.2024 09:55:41
Hugo, но результат с примером не совпадает же , диапазоны при добавлении 1 строки не меняет , а еще имя выдает ошибку
 
Перейти    
Суммпроизв в VBA с диапазоном по условию
 
#
05.10.2024 15:38:15
Hugo, в формуле задается диапазон колонки а , в пределах которого действует формула + должно соблюдаться условие , суммпроизв при условии что в колонке а уровень (число ) больше чем в строке с формулой в колонке А
 
Перейти    
Суммпроизв в VBA с диапазоном по условию
 
#
05.10.2024 13:57:05
Добрый день ,

Прошу помочь перенести формулу суммпроизв и сумм с диапазоном по условию в UDF , формула работает достаточно хорошо , но очень громоздкая получается .

Применена стандартная формулу суммпроизв, но добавлено условие для автоматического определения диапазона суммирования с учетом первой строки для  суммирования строго после формулы , для исключения потери диапазона при добавке в начало или конец новой строки , так же настроена формула суммирования  , через двссыл и прочее.
 
Перейти    
Суммирование массива текстовых данных
 
#
13.04.2023 18:13:38
Цитата
Павел с Востока написал:
Вот вам еще интересный вариант от меня - не массивный:
До разделителя
 =СУММПРОИЗВ(ОТБР(ПОДСТАВИТЬ($C$2:$F$2;"_";",")&0))
 После
 =СУММПРОИЗВ(--ПРАВСИМВ(ПОДСТАВИТЬ($C$2:$F$2;"_";"00000000")&",0";10))
   
Спасибо , тоже отличное решение без массива
 
Перейти    
Суммирование массива текстовых данных
 
#
13.04.2023 16:41:03
Бахтиёр, Спасибо, работает
 
Перейти    
Суммирование массива текстовых данных
 
#
13.04.2023 16:09:11
Цитата
Бахтиёр написал:
Без новых функций:
=СУММ(--ЛЕВБ(C2:E2;ПОИСК("_";C2:E2)-1))
=СУММ(--ПСТР(C2:E2;ПОИСК("_";C2:E2)+1;99))
Ели не во всех столбиках есть данные выдает ошибку , как это можно обработать ? суммировать только если не пусто
 
Перейти    
Суммирование массива текстовых данных
 
#
13.04.2023 15:39:08
webley,  спасибо сохраню как вариант , сам так бы не догадался
 
Перейти    
Суммирование массива текстовых данных
 
#
13.04.2023 15:36:34
Цитата
Бахтиёр написал:
Без новых функций:
=СУММ(--ЛЕВБ(C2:E2;ПОИСК("_";C2:E2)-1))
=СУММ(--ПСТР(C2:E2;ПОИСК("_";C2:E2)+1;99))
почему ЛЕВБ а не ЛЕВСИМВ?
 
Перейти    
Суммирование массива текстовых данных
 
#
13.04.2023 15:31:09
Цитата
Бахтиёр написал:
=СУММ(--ПСТР(C2:E2;ПОИСК("_";C2:E2)+1;99))
, спасибо , если вводить как массив все работает , лаконично
Изменено: SSL - 13.04.2023 15:33:27
 
Перейти    
Суммирование массива текстовых данных
 
#
13.04.2023 15:28:45
Бахтиёр, К Сожалению версия 2019
 
Перейти    
Суммирование массива текстовых данных
 
#
13.04.2023 14:34:38
Добрый день ,
Прошу помощи найти решение

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

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

Извлечь из каждой ячейки значения могу, а как это размножить на n столбцов не знаю , прописывать для каждой ячейки
=ЛЕВСИМВ(C2;ПОИСК("_";C2;1)-1)+ЛЕВСИМВ(D2;ПОИСК("_";D2;1)-1)+…...  деревянный способ да и планируется около 50 столбцов
 
Перейти    
Список папки с подпапками и файлами структурировано, Создание иерархического списка попка с файлами и подпапка с файлами
 
#
19.10.2022 16:19:39
Цитата
Ігор Гончаренко написал:
Код
    [URL=#]?[/URL]       Set   fd = fso.Getfolder(StartFolder): r1 = 1: r2 = 1          
  заполните корректно константу StartFolder
выполните Test
Что означает r1 = 1: r2 = 1 , номер строки ?
Sub AllSubFoldAndFiles(fd, r1&, r2&, c&) а c& номер столбца ?
 
Перейти    
Список папки с подпапками и файлами структурировано, Создание иерархического списка попка с файлами и подпапка с файлами
 
#
19.10.2022 15:52:02
Ігор Гончаренко, Могли бы мой код подсказать как подправить ? Предложенный вариант раскидывает по группам папки и файлы , я же пытаюсь написать что бы все папки были в столбике 2 файлы в столбике 3
 
Перейти    
Список папки с подпапками и файлами структурировано, Создание иерархического списка попка с файлами и подпапка с файлами
 
#
18.10.2022 11:10:13
Цитата
Ігор Гончаренко написал:
Код
    [URL=#]?[/URL]       1  2  3  4  5  6  7  8  9  10  11  12  13  14  15  16  17  18  19  20  21  22  23  24  25  26  27      Sub   Test()        Const   StartFolder$ =   "d:\start"        Dim   fso, fd, r1&, r2&        Cells.Clear: Cells.RemoveSubtotal        Set   fso = CreateObject(  "Scripting.FileSystemObject"  )        Set   fd = fso.Getfolder(StartFolder): r1 = 1: r2 = 1        AllSubFoldAndFiles fd, r1, r2, 1        Cells(1, 1) = StartFolder & Application.PathSeparator    End   Sub       Sub   AllSubFoldAndFiles(fd, r1&, r2&, c&)        Dim   fs, f, i&        Cells(r1, c) = fd.Name & Application.PathSeparator        Cells(r1, c).Font.Bold =   True  : Cells(r2, c).Interior.Color = 65535        For   Each   f   In   fd.Files          r2 = r2 + 1:  Cells(r2, c) = f.Name        Next        If   r2 > r1   Then   Rows(r1 + 1).Resize(r2 - r1).Group        If   fd.subfolders.Count   Then          c = c + 1          For   Each   f   In   fd.subfolders            r2 = r2 + 1: AllSubFoldAndFiles f, r2 + 0, r2, c          Next          If   r2 > r1   Then   Rows(r1 + 1).Resize(r2 - r1).Group          c = c - 1        End   If    End   Sub  
  заполните корректно константу StartFolder
выполните Test
Так понимаю легче было переписать весь код чем править ? спасибо попробую
 
Перейти    
Список папки с подпапками и файлами структурировано, Создание иерархического списка попка с файлами и подпапка с файлами
 
#
17.10.2022 01:59:59
Уважаемые знатоки , прошу помочь отредактировать код . Тема не новая собрал с разных форумов , то что мне нужно , но осталась деталь, которая надеюсь кто знает  скажет как исправить с минимальными исправлениями.

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

Код
 'вызываем процедуру повторно для каждой вложенной папки
    If IncludeSubfolders Then
        For Each SubFolder In SourceFolder.SubFolders
            ListFilesInFolder SubFolder.Path, True
        Next SubFolder
 
Перейти    
Уникальная ссылка на ячейку в формулах
 
#
23.03.2022 19:54:17
,  о спасибо , это скорее альтернативный вариант мое формулы, чем того что спрашивал . Но так тоже меня устроит в этом случае. Формула только масивом работает ?  
 
Перейти    
Уникальная ссылка на ячейку в формулах
 
#
23.03.2022 19:50:57
,а что можно с двссыл решить ?  
 
Перейти    
Уникальная ссылка на ячейку в формулах
 
#
23.03.2022 19:50:00
,это вариант протянуть и вырезать . к сожалению не подходит  
 
Перейти    
Уникальная ссылка на ячейку в формулах
 
#
22.03.2022 15:11:41
, могли бы в файле прописать , не понимаю синтаксис  
 
Перейти    
Уникальная ссылка на ячейку в формулах
 
#
22.03.2022 15:10:34
, Протянуть тривиальная задача , нет закономерности между стобликом А и В . Я специально сделал несколько примеров и разным цветом выделил пару что бы было видно  
 
Перейти    
Уникальная ссылка на ячейку в формулах
 
#
21.03.2022 19:09:22
Уважаемые форумчание , спасибо за терпение и понимание.
В вопросе одна формула предположил, что описание полное . Прикладываю файл.
в столбике
Формула установлена в столбике B, Искомое значение в столбике А. Так как нет закономерности расположения значений  в ячейках столбиков A и B , то приходиться ставить куда нужно в столбик В формулу (копи-пастом из другой ячейки), а  потом или через замену "наводить" на нужную ячейку столбика А  или кликать на ячейчку b  и перетаскивать в А вче ссылки.
Например В1->копипаст->В2 далее перенастройка ссылок с А2 на А3 и тд  
 
Перейти    
Уникальная ссылка на ячейку в формулах
 
#
21.03.2022 10:43:42
Цитата
написал:
Не совсем понятно почему не устраивает то, что аргумент конкретной функции должен быть указан для ее корректной работы.
Не устраивает кол-во повторений , потому что менять вручную (перетаскиванием ), если указано много значений не удобно . Нужно все эти 7 ячеек перенести куда нужно . Замена мене удобная чем перетаскивание, да и в принципе гуглил , если такое решение не сталкивался с такими запросами  
 
Перейти    
Уникальная ссылка на ячейку в формулах
 
#
21.03.2022 10:39:26
,
Спасибо  у меня 2019 эксель этой функции еще нет , более ранними версиями можно заменить ?  
 
Перейти    
Уникальная ссылка на ячейку в формулах
 
#
21.03.2022 02:42:29
Добрый день.
Кто сталкивался, помогите пожалуйста решить задачу или правильно задать запрос для поиска

Возможно ли в длинных формулах не повторять по многу раз ссылку на одну и туже ячейку? Например как в примере ниже А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
 
#
06.12.2021 17:56:19
Здравствуйте.
Нужно сделать вкладку на панели управления outlook, в которой будут присваиваться письму нужные теги , файл сохраняться на сервере в указанном месте , теги сохраняться в файле эексель ( в виде реестра)

Если что то подобное делали и сразу знаете, как делать и сколько будет стоить, прошу в лс озвучить стоимость и условия  
Изменено: SSL - 06.12.2021 18:46:33
 
Перейти    
VBA удаление пустых строк после объединения ячеек
 
#
16.09.2021 13:27:50
artemkau88, Да верно то что нужно , спасибо
 
Перейти    
VBA удаление пустых строк после объединения ячеек
 
#
29.08.2021 00:07:46
New, спасибо. Не доголался к чему жто
Попробую. Хотя тогда не понимаю если не использовать обьеденение строк, строка целиком удаляется при таком написании как сейчас.
     If .Rows(i).Text = "" Then .Rows(i).Delete

Я пологаю значит что то не так пишу в строках
With selection
Тут где то ошибка.
Согласны?

Ps пишу с телефона, в формат кода не получается перевести. Извините
Изменено: SSL - 29.08.2021 00:15:24
 
Перейти    
VBA удаление пустых строк после объединения ячеек
 
#
28.08.2021 01:56:06
New, спасибо

artemkau88, а эти статьи точно должны помочь в решении? Потому как информация знакома эта, нотне улавливаю что я не так сделал пропустил
 
Перейти    
VBA удаление пустых строк после объединения ячеек
 
#
27.08.2021 18:25:22
Здравствуйте Скажите пожалуйста что не так в макросе .
Выделяю диапазон, объединяю ячейки,  удаляю пустые ячейки со сдвигом вверх по столбику , хотя, как я понимаю, должна удаляться вся строчка . Почему удаляется не строчка, а только ячейки? Мне нужно удалить именно строку, пустую строку , в которой ранее было значение
Код
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
 
Перейти    
Сохранение результатов поиска "найти"
 
#
16.09.2020 19:47:03
Добрый день .
Скажите пожалуйста как можно решить задачу.
Функцией поиск  "найти все в книге" в большой книге ищу определенное выражение, оно часть текста в ячейке .
Нужно  вывести значения всех найденных ячеек в список на отдельный лист

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

Заранее спасибо тем кто сможет помочь  
 
Перейти    
Страницы: 1 2 След.
Наверх