Задачу в excel не удалось решить, но нашлись умельцы специального софта https://disk.yandex.ru/d/Hp28ptvb0_aClA программа работает так как мне нужно, прошу прощение у Апострофф за потраченное время, готов компенсировать частично 500 рублей за внимание к моей проблеме.
Добрый день, нужна помощь в создании из excel текстового файла с данными внесенными в него.
Основная проблема в логике и в количестве полученных вариантов, обычно это 8-11 миллионов строк.
И так есть столбцы с данными: Из файла начальные данные, берутся данные из каждой колонки под цифрами 1-2-3 4-5-6 7-8-9 10-11-12 13-14-15 и получаются все возможные комбинации (всего 32 штуки) при условии принять это взять начальные данные из колонок выше, а при значении передать дальше нужно из все возможных 27 вариантов :
Цитата
X X X X X 1 X X 2 X 1 X X 1 1 X 1 2 X 2 X X 2 1 X 2 2 1 X X 1 X 1 1 X 2 1 1 1 1 1 X 1 1 2 1 2 X 1 2 1 1 2 2 2 X X 2 X 1 2 X 2 2 1 X 2 1 1 2 1 2 2 2 X 2 2 1 2 2 2
удалить то что идет выше, пример расчёта в файле - расчет, те значения что отмечены красным значением нужно получить и выгрузить в файл в формате данных сцепить все значения из колонки выше пример формата XX1XX1XX1XX1XX1 и сохранить все эти значения в текстовом формате, в примере выше должно получиться 10 075 500 строк.
Важное замечание, в начальных данных данные могут быть записан не только в формате 1-2-3, но и в любом другом порядке, например 5-1-14,которые равны условно 1-2-X и запись в текстовом файле должна быть в порядке от 1 до 15, то есть 2....1.....X стать.
Бюджет 2 000 рублей. Готов обсудить в телеграмме с исполнителем.
Есть вертикально 3 колонки по 4 значения в каждой колонке, скажите пожалуйста как использую каждую колонку только один раз составить все возможные комбинации и расположив потом их рядом горизонтально. При составлении можно двигаться только вниз и влево и вправо по прямой, крестом нельзя двигаться. (B1=B2 или С2, а вот C3) не может быть.
Юрий М Тема в курилке, так как это больше похоже на конкретную работу, к сожалению финансово сейчас нет возможности создать тему там.
В бесплатной ветке врядли кто то поможет со столь сложной и не ординарной задачей, так как файл исходник дать не могу, коммерческая информация, и там ведь самого excel не достаточно, нужны еще и pdf файлы.
nilske Спасибо пойду читать, так как нашел вариант только через python, но это очень сложно для меня, может Ваш совет будет не много легче.
Поступила такая задача, найти таможенную декларацию в которой графа 9 Лицо, ответственное за финансовое урегулирование № пустая, у меня есть excel файл где есть все номера ДТ, и на каждый номер есть гиперссылка на pdf документ.
Идеальное решение, макрос, который открывает каждый файл, распознает первую страницу и смотрит пустая эта графа или нет, и записывает данные на против каждого номера ДТ.
Альтернативное решение, открыть каждый файл сделать принтскрин страницы и сохранить все потом в одну папку, чтобы легче было потом искать.
Возможно есть какое то другое решение, файлов порядка 2 тыс и сидеть открывать руками каждый не очень хочется.
во вложении пример как выглядит заполненная графа, а как нет которую нужно найти.
Счастливчик нужно сохранить файл, я использую SharePoint и после сохранения открыть через браузер эту страницу, и там уже появятся три точки, которые показы выше, или поступить проще... Преобразование данных -настройка источника данных и смотрите где находится основа для Вашей базы.
получить все возможные варианты из начальных данных, а потом удалить из полученных вариантов начальные данные, Комбинаторика, перестановка значений (pq)
получить все возможные варианты из начальных данных, а потом удалить из полученных вариантов начальные данные, Комбинаторика, перестановка значений (pq)
получить все возможные варианты из начальных данных, а потом удалить из полученных вариантов начальные данные, Комбинаторика, перестановка значений (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 скрытие/отображение листов по признаку закрытый лист сделать открытым, и наоборот, но надо позаботиться о том, чтобы в любой момент хотя бы один лист был видимым
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
АlехМ Да все верно, можно теперь сделать так чтобы выводились не самые большие значения, а как выше советовал R091n в таком виде на примере столбца А:
2-21 где 2 это то что встречалось больше всего, а 21 это число раз, что в целом можно и не выводить даже. 12-4 где 12 это то что встречалось больше всего(значение 1 и значение 2 встречались одинаково по 4 раза), а 4 это число раз, что в целом можно и не выводить даже.
R091n Первая часть задачи решена, спасибо. Теперь осталось найти что было чаще всего после последней строки, строчки идут снизу вверх, последняя строка всегда под номером 4 будет
Добрый день, есть столбец с данными в виде 1, X, 2 нужно найти сначала какое значение встречается чаще всего во всей строке, и какое значение встречается чаще всего после последнего значения, если какие то значения имеют одинаковые показатели то записать оба значения, 1Х,12,Х2, ну и если вдруг три значения то также внести 1Х2. пример во вложении.
в первом столбце: чаще всего встречалось: 1-21 раз Х-11 раз 2-16 раз записать тут 1
после Х в первом столбце такие показатели 1-4 Х-2 2-4
Создайте новую книгу, вставьте код, приведенный ниже, в модуль книи и сохраните книгу как .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