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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 19 След.
открыть pdf файл и проверить заполнены ли определенные данные в нем, какие программы могут это сделать?
 
Михаил Л файл удалось открыть, но данные подтягивает криво, постараюсь сам разобраться почему так происходит.  Большое спасибо за помощь.
Ввод цифр в EXCEL 365
 
Добрый день, посмотрите похожую тему, может что то с настройками компьютера

https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=message&FID=1&TID=64704
Из вертикальных колонок составить горизонтально все возможные комбинации, формула, макрос, PQ
 
Добрый день.

Есть вертикально 3 колонки  по 4  значения в каждой колонке, скажите пожалуйста как использую каждую колонку только один раз составить все возможные комбинации и расположив потом их рядом горизонтально.  При составлении можно двигаться только вниз и влево и вправо по прямой, крестом нельзя двигаться. (B1=B2 или С2, а вот C3) не может быть.
открыть pdf файл и проверить заполнены ли определенные данные в нем, какие программы могут это сделать?
 
сделал на одном примере:
Код
let
    Источник = Pdf.Tables(File.Contents("C:\2024\Февраль\ДТ 3018922\10317120_030224_3018922_reg.pdf"), [Implementation="1.3"]),
    Table001 = Источник{[Id="Table001"]}[Data],
    #"Повышенные заголовки" = Table.PromoteHeaders(Table001, [PromoteAllScalars=true]),
    #"Измененный тип" = Table.TransformColumnTypes(#"Повышенные заголовки",{{"Column1", type text}, {"ДЕКЛАРАЦИЯ НА ТОВАРЫ", type text}, {"Column3", type text}, {"Column4", type text}, {"Column5", type text}, {"Column6", type number}, {"Column7", type text}, {"Column8", type text}, {"Column9", type text}, {"Column10", type text}, {"Column11", type text}, {"A", type text}, {"Column13", type text}, {"Column14", Int64.Type}, {"Column15", type text}, {"Column16", type text}, {"Column17", type text}, {"Column18", type text}, {"Column19", type text}, {"Column20", type text}, {"Column21", Int64.Type}}),
    #"Удаленные столбцы" = Table.RemoveColumns(#"Измененный тип",{"Column1", "ДЕКЛАРАЦИЯ НА ТОВАРЫ", "Column3", "Column4", "Column5", "Column6", "Column7", "Column8", "Column9", "Column10", "Column13", "Column14", "Column15", "Column16", "Column17", "Column18", "Column19", "Column20", "Column21"}),
    #"Удаленные дубликаты" = Table.Distinct(#"Удаленные столбцы"),
    #"Удалены пустые строки" = Table.SelectRows(#"Удаленные дубликаты", each not List.IsEmpty(List.RemoveMatchingItems(Record.FieldValues(_), {"", null}))),
    #"Удаленные нижние строки" = Table.RemoveLastN(#"Удалены пустые строки",10),
    #"Удаленные нижние строки1" = Table.RemoveLastN(#"Удаленные нижние строки",10),
    #"Удаленные нижние строки2" = Table.RemoveLastN(#"Удаленные нижние строки1",10),
    #"Повышенные заголовки1" = Table.PromoteHeaders(#"Удаленные нижние строки2", [PromoteAllScalars=true]),
    #"Измененный тип1" = Table.TransformColumnTypes(#"Повышенные заголовки1",{{"Column1", type text}, {"10317120/030224/3018922", type text}}),
    #"Удаленные верхние строки" = Table.Skip(#"Измененный тип1",2),
    #"Переименованные столбцы" = Table.RenameColumns(#"Удаленные верхние строки",{{"Column1", "9 графа"}})
in
    #"Переименованные столбцы"


все работает как надо, но глупый вопрос, как теперь сделать так чтобы открыть много файлов и чтобы все заполнилось как в этом примере?
открыть pdf файл и проверить заполнены ли определенные данные в нем, какие программы могут это сделать?
 
Юрий М
Тема в курилке, так как это больше похоже на конкретную работу, к сожалению финансово сейчас нет возможности создать тему там.

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

nilske
Спасибо пойду читать, так как нашел вариант только через python, но это очень сложно для меня, может Ваш совет будет не много легче.
открыть pdf файл и проверить заполнены ли определенные данные в нем, какие программы могут это сделать?
 
Добрый день.

Поступила такая задача, найти таможенную декларацию в которой  графа 9 Лицо, ответственное за финансовое урегулирование № пустая, у меня есть excel файл где есть все номера ДТ, и на каждый номер есть гиперссылка на pdf документ.

Идеальное решение, макрос, который открывает каждый файл, распознает первую страницу и смотрит пустая эта графа или нет, и записывает данные на против каждого номера ДТ.

Альтернативное решение, открыть каждый файл  сделать принтскрин страницы и сохранить все потом в одну папку, чтобы легче было потом искать.

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

во вложении пример как выглядит заполненная графа, а как нет которую нужно найти.
Как выгрузить из Power BI в Эксель
 
Счастливчик  нужно сохранить файл, я использую SharePoint и после сохранения открыть через браузер эту страницу, и там уже появятся три точки, которые показы выше, или поступить проще...
Преобразование данных -настройка источника данных и смотрите где находится основа для Вашей базы.
получить все возможные варианты из начальных данных, а потом удалить из полученных вариантов начальные данные, Комбинаторика, перестановка значений (pq)
 
AlienSx
Большое спасибо, открыл что то новое для себя. Все получилось.
Как выгрузить из Power BI в Эксель
 
Нажимаете на три точки и экспортируете данные
получить все возможные варианты из начальных данных, а потом удалить из полученных вариантов начальные данные, Комбинаторика, перестановка значений (pq)
 
AlienSx
Скажите пожалуйста куда нужно вставить этот код?
ячейки с зада :), и такое бывает
 
Вот это пример, теперь сразу все стало понятно  :)
получить все возможные варианты из начальных данных, а потом удалить из полученных вариантов начальные данные, Комбинаторика, перестановка значений (pq)
 
Добрый день.

Во вложении файл куда вносятся данные: ИЩЕМ (ячейка А3 по С8(, потом через PQ из ВСЕ 27 ВАРИАНТОВ(ячейка с F3 по Н29) идет поиск всех возможных комбинаций, которые записывается в ВСЕ ВАРИАНТЫ (ячейка с O3 по Q29), нужно сделать еще одну систему ВСЕ ВАРИАНТЫ  МИНУС ИЩЕМ (ячейка S3 по U29) ,  чтобы из всех вариантов удались потом то что было в ищем.

Во вложении пример:
ИЩЕМ
1 1 X
2 X X
X 2 X
1 X X
1 X X
2 X 2
ВСЕ ВАРИАНТЫ
X X 1
X X 2
X 1 X
X 1 1
X 2 X
X 2 2
1 X X
1 X 1
1 1 X
2 X X
2 X 2
2 2 X
ВСЕ ВАРИАНТЫ  МИНУС ИЩЕМ (вот это должно получаться автоматически, при изменении данных в ИЩЕМ)
X X 1
X X 2
X 1 X
X 1 1
X 2 2
1 X 1
2 2 X
Макрос скрытия листов при закрытии книги, ошибка при повторном действии макроса
 
Код
Sub 
Dim i&, c As New Collection
  For i = 1 To ThisWorkbook.Sheets.Count
    If ThisWorkbook.Sheets(i).Visible = xlSheetVisible Then
      c.Add i
    Else
      ThisWorkbook.Sheets(i).Visible = xlSheetVisible
    End If
  Next
  If c.Count = ThisWorkbook.Sheets.Count Then
    MsgBox "в книге нет скрытых листов - невозможно скрыть все листы"
    Exit Sub
  End If
  For i = 1 To c.Count
    ThisWorkbook.Sheets(c(i)).Visible = xlSheetVeryHidden
  Next
End Sub

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

Marat M

Код
=СЧЁТЕСЛИ(A9:AH12;"+")


A9:AH12 - диапазон ячеек где считать плюсы
Группировка, фильтр и сортировка, Закрывается файл при сортировке строк в группе
 
Добрый день, приложите файл чтобы люди смогли Вам помочь.
Макрос для печати четных и нечетных страниц с разными полями
 
как то так
Код
Sub Print_Odd_Even()
Dim Totalpages As Long
Dim StartPage As Long
Dim Page As Integer
StartPage = 1 ' Задайте 1 = для Нечетных или 2 - для Четных
' Или используйте диалог для ввода
'StartPage = InputBox("Ввведите 1 для печати нечетных страниц, 2 - для четных")
Totalpages = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
For Page = StartPage To Totalpages Step 2
ActiveSheet.PrintOut from:=Page, To:=Page
Next
End Sub
Изменено: DJMC - 31.01.2024 12:58:39
вывод формулой первое отфильтрованное значение
 
Макрос
Код
Private Sub worksheet_calculate()
  [a1] = Range(Cells(5, 4), Cells(Rows.Count, 4)).SpecialCells(xlCellTypeVisible).Cells(1)
End Sub


подробнее в похожей теме. https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=message&FID=1&TID=101029&MID=835045#message835045
найти наибольшее значения, формула, правила
 
АlехМ
Да все верно, большое спасибо за помощь
найти наибольшее значения, формула, правила
 
АlехМ
Да все верно, можно теперь сделать так чтобы выводились не самые большие значения, а как выше советовал R091n в таком виде на примере столбца А:

2-21 где 2 это то что встречалось больше всего, а 21 это число раз, что в целом можно и не выводить даже.
12-4   где 12 это то что встречалось больше всего(значение 1 и значение 2 встречались одинаково по 4 раза), а 4 это число раз, что в целом можно и не выводить даже.
найти наибольшее значения, формула, правила
 
R091n
Первая часть задачи решена, спасибо. Теперь осталось найти что было чаще всего после последней строки, строчки идут снизу вверх, последняя строка всегда под номером 4 будет
найти наибольшее значения, формула, правила
 
АlехМ

A5=1
A7=1
A16=2
A21=2
A26=1
A40=2
A41=X
A47=2
A49=1
A50=X
найти наибольшее значения, формула, правила
 
АlехМ
читается снизу вверх,
строка A4=X B4=X C4=X D4=1

То есть на основе столбца A после Х были...

1
1
1
2
2
1
2
X
2
1
X
найти наибольшее значения, формула, правила
 
в 4 строке указаны последние значения, нужно найти значения которые были после них чаще всего.
найти наибольшее значения, формула, правила
 
Добрый день, есть столбец с данными в виде 1, X, 2 нужно найти сначала какое значение встречается чаще всего во всей строке, и какое значение встречается чаще всего после последнего значения, если какие то значения имеют одинаковые показатели то записать оба значения, 1Х,12,Х2, ну и если вдруг три значения то также внести 1Х2. пример во вложении.

в первом столбце:
чаще всего встречалось:
1-21 раз
Х-11 раз
2-16 раз
записать тут 1

после Х в первом столбце такие показатели
1-4
Х-2
2-4

записать тут 12
Задача, обратная расчету нарастающего итога в ексель, как из отчетов с нарастающим итогом вычислить данные за каждый период?
 
Добрый день, можно маленький пример файла?
Ссылки фотографий под число, Есть большое количество ссылок нужно их вставить в определенную ячейку с числом.
 
Добрый день, Ваш файл пустой, проверьте еще раз его.
Как сделать автоматический запуск макроса при запуске Excel
 
Создайте новую книгу, вставьте код, приведенный ниже, в модуль книи и сохраните книгу как .xla / .xlam (зависит от версии Office):

Код

Option Explicit
 
Dim WithEvents xlApp As Excel.Application
 
Private Sub xlApp_WorkbookOpen(ByVal Wb As Workbook)
    If Wb.Name Like "treasury outstandings*.xls*" Then
        Call MyMacro(Wb)
    End If
End Sub
 
Private Sub MyMacro(wbk As Workbook)
    MsgBox wbk.Name
End Sub
Как открыть гиперссылку?
 
Добрый день, покажите что не получается, у меня нажимаю на ссылку и сразу открывается в браузере все.
Оптимальная комбинация чисел для получения определенной суммы по условию, VBA
 
Возможно Вам поможет похожая тема про рюкзак и файл решения

https://view.officeapps.live.com/op/view.aspx?src=http%3A%2F%2Fwww.excelworld.ru%2F_fr%2F187%2FRucksack.xlsm&wdOrigin=BROWSELINK
Подсчет данных по определенному периоду дат
 
Добрый день, без примера тяжело помочь, вот файл подходит?
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 19 След.
Наверх