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

Страницы: 1
Часть названия файла в ячейку, Странно работает формула
 
#
02.02.2023 22:35:35
Цитата
написал:
Цитата
в моих данных, эти знания можно получить
Сделайте пример с различными данными и не будет к вам вопросов
Так месяцы вроде на все земле универсальны) Вот оказывается моя формула универсальна, но поведение экселя при переключении файлов чет не очень хорошее :( Нашел ответ на форуме, буду пробовать)

p.s. Решение с экселем сработало) Всем спасибо за помощь!
Изменено: Jackjumper - 02.02.2023 22:46:30
 
Перейти    
Часть названия файла в ячейку, Странно работает формула
 
#
02.02.2023 22:33:01
Оказалось, что моя формула работает, но при переключении между файлами "имяфайла" берется активного окна (что для меня, конечно, невероятный шок), т.е. если открыто несколько файлов, то формула меняется в зависимости от активного файла. Более того, если первый файл называется кефир и в нем формула, второй яблоко, третий персик, четвертый банан - то если открывать их по очереди, а потом закрывать, то в этом порядке и будет меняться формула. Это помогла мне понять данная формула:
Цитата
написал:
=TRIM(LEFT(RIGHT(SUBSTITUTE(A1;" ";REPT(" ";99));198);99))
У нее такая же проблема, а еще она не работает, если в названии листа есть пробелы.
Цитата
написал:
=TEXT(DATE(;LOOKUP(999;SEARCH(" "&TEXT(DATE(;ROW(1:12);1);"[$-409]ММММ");A1);ROW(1:12));1);"[$-409]ММММ")
Тут я что-то вообще не понял, как должно работать :(
 
Перейти    
Часть названия файла в ячейку, Странно работает формула
 
#
02.02.2023 22:11:35
Цитата
написал:
Jackjumper,
что там есть в ваших данных знаете только вы
поэтому, можете самостоятельно решать свою задачу или ждите придут еще люди погадать, как это попытался сделать я))
удачи!
Все знают, что в моих данных, эти знания можно получить, прочитав: "Неизменно только слово Report, месяца меняются, годы меняюся, KF-01 тоже меняется" - если меняются месяца, то формула, очевидно, не подходит, но спасибо, за участие)
 
Перейти    
Часть названия файла в ячейку, Странно работает формула
 
#
02.02.2023 20:43:26
Цитата
написал:
для названия файла написанного в А1 формула
Код
    [URL=#]?[/URL]       1      =ПСТР(A1;14;ДЛСТР(A1)-20)  
  вернет название месяца из названия файла
Это сработает только если часть KF-01 неизменна, а она может быть SPB-01 например, но и -20 работает только для месяца с определенным количеством знаков. Смысл в поиске именно слова. Т.е. чтобы формула хотя бы понимала, что обрезать надо после "-01 " и до конца слова.
 
Перейти    
Часть названия файла в ячейку, Странно работает формула
 
#
02.02.2023 15:36:56
Есть файлы со следующими названиями:

Report KF-01 December 21.xlsx
Report KF-01 December 22.xlsx
Report KF-01 December 23.xlsx
...
Report KF-01 December 24.xlsx
Report KF-01 December 25.xlsx

Неизменно только слово Report, месяца меняются, годы меняюся, KF-01 тоже меняется

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

Написал вот такое чудо техники:
=ЛЕВСИМВ(ПРАВСИМВ(ЛЕВСИМВ(ПСТР(ЯЧЕЙКА("имяфайла");ПОИСК("[";ЯЧЕЙКА("имяфайла"))+1;ПОИСК(".xls";ЯЧЕЙКА("имяфайла"))-ПОИСК("[";ЯЧЕЙКА("имяфайла"))-1);100);ДЛСТР(ЛЕВСИМВ(ПСТР(ЯЧЕЙКА("имяфайла");ПОИСК("[";ЯЧЕЙКА("имяфайла"))+1;ПОИСК(".xls";ЯЧЕЙКА("имяфайла"))-ПОИСК("[";ЯЧЕЙКА("имяфайла"))-1);100))-НАЙТИ("1 ";ЛЕВСИМВ(ПСТР(ЯЧЕЙКА("имяфайла");ПОИСК("[";ЯЧЕЙКА("имяфайла"))+1;ПОИСК(".xls";ЯЧЕЙКА("имяфайла"))-ПОИСК("[";ЯЧЕЙКА("имяфайла"))-1);100))-1);ДЛСТР(ПРАВСИМВ(ЛЕВСИМВ(ПСТР(ЯЧЕЙКА("имяфайла");ПОИСК("[";ЯЧЕЙКА("имяфайла"))+1;ПОИСК(".xls";ЯЧЕЙКА("имяфайла"))-ПОИСК("[";ЯЧЕЙКА("имяфайла"))-1);100);ДЛСТР(ЛЕВСИМВ(ПСТР(ЯЧЕЙКА("имяфайла");ПОИСК("[";ЯЧЕЙКА("имяфайла"))+1;ПОИСК(".xls";ЯЧЕЙКА("имяфайла"))-ПОИСК("[";ЯЧЕЙКА("имяфайла"))-1);100))-НАЙТИ("1 ";ЛЕВСИМВ(ПСТР(ЯЧЕЙКА("имяфайла");ПОИСК("[";ЯЧЕЙКА("имяфайла"))+1;ПОИСК(".xls";ЯЧЕЙКА("имяфайла"))-ПОИСК("[";ЯЧЕЙКА("имяфайла"))-1);100))-1))-3)

Все хорошо, формула работает, но когда файл открывается, то формула не всегда срабатывает. Она показывает не следующий месяц, а не предыдущий, но если ее обновить, то она работает нормально. Как написать более стабильную формулу, которая будет дергать название месяца из файла?
 
Перейти    
Поиск и замена текста в нескольких файлах excel, Поиск и замена текста в нескольких файлах excel
 
#
21.12.2022 12:36:29
evgeniygeo, та же ошибка, что в предыдущем моем сообщении :(
 
Перейти    
Поиск и замена текста в нескольких файлах excel, Поиск и замена текста в нескольких файлах excel
 
#
20.12.2022 10:37:16
evgeniygeo, Да, разумеется вручную работает. Я специльно создал файл отдельный, поместил его в папку отличную от той, где лежит файл с макросом. При выполнении он должен запрашивать папку, где лежат файлы, а в этом случае мы не доходим до данного этапа.
 
Перейти    
Поиск и замена текста в нескольких файлах excel, Поиск и замена текста в нескольких файлах excel
 
#
20.12.2022 10:26:08
Цитата
написал:
Jackjumper,
не смотрел особо, но попробуйте так: (99% кода взято  здесь )
Код
    [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  28  29      Sub   Get_All_File_from_Folder()          Dim   sFolder   As   String  , sFiles   As   String          Dim   wb   As   Workbook          'диалог запроса выбора папки с файлами          With   Application.FileDialog(msoFileDialogFolderPicker)              If   .Show =   False   Then   Exit   Sub              sFolder = .SelectedItems(1)          End   With          sFolder = sFolder & IIf(Right(sFolder, 1) = Application.PathSeparator,   ""  , Application.PathSeparator)          'отключаем обновление экрана, чтобы наши действия не мелькали          Application.ScreenUpdating =   False          sFiles = Dir(sFolder &   "*.xls*"  )          Do   While   sFiles <>   ""              'открываем книгу              Set   wb = Application.Workbooks.Open(sFolder & sFiles)              'действия с файлом              Application.Calculation = xlCalculationManual              Cells.Replace What:=  "AF-KF Reports\Rockrolls\TTM\[Food Cost AF-01 2022 9 Summer"  , Replacement:= _              "Rockrolls\TTM\[Food Cost AF-01"  , LookAt:=xlPart, SearchOrder:=xlByRows, _              MatchCase:=  False  , SearchFormat:=  False  , ReplaceFormat:=  False  , _              FormulaVersion:=xlReplaceFormula2              Application.Calculation = xlCalculationAutomatic              'Закрываем книгу с сохранением изменений              wb.Close   True   'если поставить False - книга будет закрыта без сохранения              sFiles = Dir          Loop          'возвращаем ранее отключенное обновление экрана          Application.ScreenUpdating =   True    End   Sub  
 
Да, код оттуда, но то, что Вы прислали не работает, пишется ошибку:

Compile error: named argument not found, выделяет желтым первую строку, а курсором выделяет "FormulaVersion:="
 
Перейти    
Поиск и замена текста в нескольких файлах excel, Поиск и замена текста в нескольких файлах excel
 
#
20.12.2022 05:08:48
Есть папка с файлами (600 файлов), в каждом из них нужно заменить текст в формуле. В VBA вообще не шарю, после долгих поисков состряпал это:

Sub Get_All_File_from_Folder()
   Dim sFolder As String, sFiles As String
   Dim wb As Workbook
   With Application.FileDialog(msoFileDialogFolderPicker)
       If .Show = False Then Exit Sub
       sFolder = .SelectedItems(1)
   End With
   sFolder = sFolder & IIf(Right(sFolder, 1) = Application.PathSeparator, "", Application.PathSeparator)
       Application.ScreenUpdating = False
   sFiles = Dir(sFolder & "*.xlsx*")
   Do While sFiles <> ""
    With Selection.Find
       .ClearFormatting
       .Text = "AF-KF Reports\Rockrolls\TTM\[Food Cost AF-01 2022 9 Summer"
       .Replacement.ClearFormatting
       .Replacement.Text = "Rockrolls\TTM\[Food Cost AF-01"
       .Execute Replace:=wdReplaceAll, Forward:=True, _
       Wrap:=wdFindContinue
       End With
       sFiles = Dir
   Loop
   Application.ScreenUpdating = True
End Sub

Макрос выдает ошибку Run-time error '450':
Wrong number of agruments or invalid property assignment на строчке With Selection.Find (выделяет ее желтым)

Что не так?
 
Перейти    
Многоразовый "ВПР" на нескольких страницах при разных значениях, Нужно совместить набор функций без применения макросов
 
#
07.12.2020 15:15:25
Файл должен быть отдельным и ссылаться на тот, который я присал и решение хотелось бы в формулах, а не в pq, макросах и т.д.
 
Перейти    
Многоразовый "ВПР" на нескольких страницах при разных значениях, Нужно совместить набор функций без применения макросов
 
#
07.12.2020 00:01:08
Собственно в файле-то ничего нет пока. Прикрепил файл, из которого нужно брать инфу. Заполнено только 3 листа, в итоге их будет все 31
 
Перейти    
Многоразовый "ВПР" на нескольких страницах при разных значениях, Нужно совместить набор функций без применения макросов
 
#
06.12.2020 23:46:09
Есть файл, в котором 28,29,30,31 листов (в зависимости от месяца), каждый лист называется 01.01,02.01,03.01, т.е. датами текущего месяца. На некоторых листах содержатся в одном и том же столбце, но в разных строках записи типа: "Доставка. Иванов И.И.", "Доставка. Петров В.И.", "Доставка. Такси" - и т.д. т.е. неизменна часть со словом доставка, а всё остальное меняется, в столбце правее, выданная сумма. Ячейки периодически повторяются. Необходимо, чтобы в другом отдельном файле формула проверяла все листы из файла с листам/датами и искала слово "Доставка", выводя при этом полную строку "Доставка. Петров В.И." в которой это слово было упомянуто и так построчно, пока не перечислит всё. Правее второй столбец, в котором выводится сумма, стоящая справа от данного столбца.
=ИНДЕКС($B$2:$B$16;НАИМЕНЬШИЙ(ЕСЛИ($E$2=A2:A16;СТРОКА(B2:B16)-1;"");СТРОКА()-5)) (значения из примера) - данная формула позволяет искать и выводить нужные значения только для одного листа и только для конкретно заданного слова/ячейки. Также есть вот такая формула:
=ВПР(A2;ДВССЫЛ("'"&ИНДЕКС($E$2:$E$5;ПОИСКПОЗ(ИСТИНА;СЧЁТЕСЛИ(ДВССЫЛ("'"&$E$2:$E$5 &"'!A1:A50");A2)>0;0))&"'!A:B");2;0) - которая как раз позволяет искать по нескольким страницам, но во-первых, есть проблема с выводом этих листов из другого файла, а, во-вторых, это всё еще впр.
Изменено: Jackjumper - 07.12.2020 00:12:39
 
Перейти    
Английский язык на вывод, Значения выводятся на русском
 
#
22.02.2016 03:51:28
Вопрос решен=)
 
Перейти    
Английский язык на вывод, Значения выводятся на русском
 
#
22.02.2016 02:16:35
Там нет ответа=)
 
Перейти    
Английский язык на вывод, Значения выводятся на русском
 
#
22.02.2016 00:55:00
Формула: =TEXT(WEEKDAY(DATE($AG$1;MONTH($A$1&0);B3);1);"aaa"), где $A$1 - это буквенное значение месяца, например Февраль. B3 - числовая ячейка для определения числа месяца, $AG$1 - ссылка на год. Соотв. "ааа" - формат названия дня недели.

Всё бы ничего, но весь excel на английском, формулы на нем же, - везде основной английский, а excel, во-первых, не работает с month, если вместо февраля - february, а вместо дней недели на английском выводятся (если формулу месяца заменить на цифру) дни недели на русском. Как решить проблему с языком?
 
Перейти    
Страницы: 1
Наверх