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

Страницы: 1 2 3 След.
Inquire/Power Query для сравнения листов книг
 
#
10.04.2024 17:58:03
Добрый вечер!
Подскажите, пожалуйста, в каком направлении двигаться.
Есть 2 файла, которых есть лист с 45 столбцами и тысячами строк.
Стоит задача эти два файла (точнее, 2 листа из разных книг) сравнить между собой и выявить только расхождения в конкретных ячейках.
Пробовал для этой цели использовать Power Query. Мощный инструмент, ничего плохого сказать не могу. Но тут проблема - в качестве эксперимента изменил только одно значение в ячейке, он мне эту строку выдал ожидаемо, но не видно, где было различие. То есть, здесь придется просматривать все 45 столбцов на различие одного листа с другим. Огромным плюсом является то, что одинаковые строки могут по-разному располагаться на листах и PQ понимает то, что это одинаковые строки и мне их не выгружает.
Пробовал Inquire. Здесь все очень наглядно видно, где и что различается. Как раз этого не хватает в PQ. Но тут другая проблема - одни и те же строки, которые по-разному расположены, надстройка выдает за расхождение. Снова не то...
Может, есть инструмент, который объединил бы плюсы PQ и Inquire?
Во вложении 2 файла, которые пробовал сравнить в Inquire. Содержимое файлов одинаково, но выдается в различия.
Подскажите, пожалуйста, как быть?
 
Перейти    
При запуске Excel выдается ошибка "Не удается открыть файл", Ошибка при запуске Excel
 
#
03.03.2023 22:47:54
Добрый вечер!
При запуске Excel (Пуск --> Excel) выдается сообщение об ошибке: "Не удается открыть файл <Имя файла>, так как формат или расширение этого файла являются недопустимыми. убедитесь, что файл не поврежден и расширение его имени соответствует его формату."
Такое же сообщение выводится, когда пытаюсь открыть любой другой файл.
Пробовал восстанавливать microsoft office (2016) - не помогло.
Подскажите, пожалуйста, как можно устранить эту ошибку?
 
Перейти    
Добавление в макрос разделения таблицы шапки в каждый файл, Добавление в макрос разделения таблицы шапки в каждый файл
 
#
24.12.2022 21:06:04
gling, огромное Вам спасибо!
 
Перейти    
Добавление в макрос разделения таблицы шапки в каждый файл, Добавление в макрос разделения таблицы шапки в каждый файл
 
#
24.12.2022 20:12:44
Доброго времени суток!
Нашел по ссылке очень нужный мне макрос https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=read&FID=8&TID=25707
Но очень хотелось бы, чтобы в создаваемых файлах еще была и шапка таблицы (она всегда в первой строке делимого листа)
Помогите, пожалуйста, с решением данной проблемы
Изменено: LeoNeon - 24.12.2022 20:13:03
 
Перейти    
Переделать Function для диапазона в Sub
 
#
17.02.2022 13:56:27
МатросНаЗебре, Jack Famous!
Огромное Вам спасибо! Все получилось!
 
Перейти    
Переделать Function для диапазона в Sub
 
#
17.02.2022 13:44:38
Добрый день, Jack Famous!
Спасибо, но почему-то не сработало...
Посмотрите, пожалуйста, пример
Изменено: LeoNeon - 17.02.2022 13:44:52
 
Перейти    
Переделать Function для диапазона в Sub
 
#
17.02.2022 13:19:48
Добрый день, уважаемые форумчане!
Проблема не новая, но не смог найти решение под свои нужды
Есть выгрузка из 1С. На экране вижу лидирующие нули, но в содержимом ячеек их нет.
Нашел функцию, которая помогает решить проблему, но мне бы хотелось выделить на листе диапазон с данными, в которых нужно проставить реальные нули и запустить Sub, а не Functuon
Помогите, пожалуйста, с решением проблемы.
Заранее огромное спасибо!
Тема с функцией здесь: Сохранение лидирующих нулей
Сама функция:
Код
Function kaktext(r As Range) As String
kaktext = r.Text
End Function

Заранее огромное Спасибо!
 
Перейти    
СОХРАНИТЬ нули в начале кодов
 
#
17.02.2022 12:40:23
Добрый день, уважаемые форумчане!
Подскажите, пожалуйста, а как переделать так, чтобы Function работала как Sub?
Хотелось бы выделить на листе диапазон с данными и запустить Sub
Заранее огромное спасибо!
Код
Function kaktext(r As Range) As String
kaktext = r.Text
End Function
 
Перейти    
Скрыть листы в Excel так, чтобы они отображались, когда переходишь к ним по гиперссылке SHAPE
 
#
28.12.2021 14:37:42
МатросНаЗебре, огромное спасибо!
 
Перейти    
Скрыть листы в Excel так, чтобы они отображались, когда переходишь к ним по гиперссылке SHAPE
 
#
28.12.2021 12:05:01
МатросНаЗебре, подскажите, а нет ли более короткого пути? Дело в том, что в оригинальном файле на листе с автофигурами более 100 автофигур с ссылками.
 
Перейти    
Скрыть листы в Excel так, чтобы они отображались, когда переходишь к ним по гиперссылке SHAPE
 
#
28.12.2021 11:23:34
Здравствуйте, МатросНаЗебре!
Спасибо за отзыв, но не понимаю, как Ваш код добавить к коду первого поста
Помогите, пожалуйста
 
Перейти    
Скрыть листы в Excel так, чтобы они отображались, когда переходишь к ним по гиперссылке SHAPE
 
#
28.12.2021 10:39:03
Здравствуйте!
Уважаемые форумчане, помогите, пожалуйста, со следующим вопросом.
Есть файл с несколькими листами. На главной странице сделаны гиперссылки на каждый лист. Гиперссылки прописаны в объектах рисования (автофигуры). На каждом листе есть гиперссылка на главную страницу.    
Хотелось бы перемещаться по листам только по гиперссылкам, а все листы, кроме активного, были бы скрыты.
Очень похожая тема здесь: https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=read&FID=8&TID=29560
Но там нет автофигур (Shape)
Результат темы выше:
Код
Private Sub Workbook_SheetFollowHyperlink(ByVal sh As Object, ByVal Target As Hyperlink)  
If Target.Address <> "" Then Exit Sub 'внешняя гиперссылка  
Range(Target.SubAddress).Parent.Visible = xlSheetVisible: sh.Visible = xlSheetHidden  
End Sub
 
Перейти    
Создание сводной таблицы при наличии объединенных ячеек, Сводная таблица если в исходной есть объединненые ячейки
 
#
25.07.2020 13:15:56
Андрей VG, БМВ спасибо за советы. Как и думал, без переделки исходной таблицы не обойтись. Буду изучать  редизайн таблиц и Power Query
 
Перейти    
Создание сводной таблицы при наличии объединенных ячеек, Сводная таблица если в исходной есть объединненые ячейки
 
#
25.07.2020 10:59:10
Добрый день!
Есть исходная таблица с объединенными ячейками и одинаковыми наименованиями столбцов (во вложении).
Необходимо построить сводную таблицу.
Я хотел бы узнать, есть ли какой-то способ построения сводной таблицы, при этом не переделывая исходную таблицу?
Буду рад любому ответу, спасибо!
 
Перейти    
Месяц в названии файла с маленькой буквы
 
#
16.05.2020 11:52:37
Mershik, огромное Вам спасибо!

А что означает [$-ru-RU-x-nomlower]? Вроде как работает и без этого... Excel2010.
 
Перейти    
Месяц в названии файла с маленькой буквы
 
#
16.05.2020 11:44:36
Добрый день.
Пишу макрос, который при сохранении файла в имя файла добавляет месяц и год.
Хочу добиться, чтобы месяц в имени файла прописывался с маленькой буквы, но не получается - первая буква месяца всё равно прописная.
Код такой:
Код
ActiveWorkbook.SaveAs Filename:=p & "\" & "Отчет за " & Format(DateSerial(Year(Now), Month(Now) - 1, 1), "[$-ru-RU-x-nomlower]mmmm yyyy;@") & "" & ".xlsx", FileFormat:=xlOpenXMLWorkbook
Подскажите, пожалуйста, где я ошибаюсь?
 
Перейти    
Ускорить код по применению параметров страницы ко всем листам книги
 
#
13.05.2020 21:26:56
sokol92, спасибо! Ваш совет помог!
 
Перейти    
Ускорить код по применению параметров страницы ко всем листам книги
 
#
13.05.2020 01:17:23
Сначала сгруппировал листы, затем применил параметры.
Но дело в том, что почему-то не задаются сквозные строки.
Подскажите, пожалуйста, что не так в коде?
Код
Sub листы()
Dim s()
k = Sheets.Count
ReDim s(5 To k)
 
For i = 5 To k
s(i) = i
Next
Sheets(s).Select

Application.PrintCommunication = False
    With ActiveSheet.PageSetup
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1000
        .Orientation = xlLandscape
        .LeftMargin = Application.InchesToPoints(0.196850393700787)
        .RightMargin = Application.InchesToPoints(0.196850393700787)
        .TopMargin = Application.InchesToPoints(0.196850393700787)
        .BottomMargin = Application.InchesToPoints(0.196850393700787)
        .HeaderMargin = Application.InchesToPoints(0)
        .FooterMargin = Application.InchesToPoints(0)
        .CenterHorizontally = True
        .PrintTitleRows = "$5:$7"
    End With

Application.PrintCommunication = True
Sheets("Лист1").Select
End Sub
 
Перейти    
Ускорить код по применению параметров страницы ко всем листам книги
 
#
12.05.2020 23:54:20
Kuzmich, gling спасибо за подсказки!
 
Перейти    
Ускорить код по применению параметров страницы ко всем листам книги
 
#
12.05.2020 23:30:51
Здравствуйте, уважаемые форумчане!
Перебираю циклом каждый лист в книге и задаю параметры страницы.
В книге порядка 300 листов. Когда применяю макрос, Excel зависает в связи с переполнением памяти.
Подскажите, пожалуйста, как можно ускорить макрос?
Код
Sub Параметры()
For Each xWorksheet In ActiveWorkbook.Worksheets
    With xWorksheet.PageSetup
        .FitToPagesWide = 1
        .Orientation = xlLandscape
        .LeftMargin = Application.InchesToPoints(0.196850393700787)
        .RightMargin = Application.InchesToPoints(0.196850393700787)
        .TopMargin = Application.InchesToPoints(0.196850393700787)
        .BottomMargin = Application.InchesToPoints(0.196850393700787)
        .HeaderMargin = Application.InchesToPoints(0)
        .FooterMargin = Application.InchesToPoints(0)
        .CenterHorizontally = True
        .PrintTitleRows = "$5:$7"
    End With
Next xWorksheet
End Sub
Изменено: Leojse - 12.05.2020 23:39:11
 
Перейти    
Переменная в FormulaLocal
 
#
11.05.2019 16:06:04
Sanja, подскажите, пожалуйста, еще.
А как сделать, чтобы жестко не привязываться к имени книги1?
Пробовал что-то типа:
Код
Данные1 = ThisWorkbook.Worksheets("Лист1")
но не получается
 
Перейти    
Переменная в FormulaLocal
 
#
11.05.2019 15:36:11
Sanja, большое спасибо!
 
Перейти    
Переменная в FormulaLocal
 
#
11.05.2019 13:22:38
Добрый день, уважаемые форумчане!

Пытаюсь выполнить расчеты в первой книге, использовав данные из второй книги с помощью FormulaLocal.
Сама формула выглядит так:
Код
=СУММЕСЛИ('[Книга1.xlsb]Лист1'!$I$2:$I$4492;N6;'[Книга1.xlsb]Лист1'!$Y$2:$Y$4492)
Думал объявить переменные следующим образом и использовать уже в FormulaLocal:
Код
Set Данные1 = Книга1.Лист1
Но не могу понять, записать эту переменную в FormulaLocal.
Если просто заменить [Книга1.xlsb]Лист1 на Данные1, то Excel повторно просит открыть книгу:
Код
=СУММЕСЛИ('Данные1'!$I$2:$I$4492;N6;'Данные1'!$Y$2:$Y$4492)
Подскажите, пожалуйста, как можно решить проблему?
Изменено: Leojse - 11.05.2019 13:41:08
 
Перейти    
Удаление кнопки при сохранении листа в новый файл
 
#
08.05.2019 20:28:30
sokol92, огромное Вам спасибо!
 
Перейти    
Удаление кнопки при сохранении листа в новый файл
 
#
08.05.2019 19:43:58
Добрый вечер, уважаемые форумчане!
Понимаю, что тема поднималась много раз, но сам никак не могу исправить код.
Помогите, пожалуйста, разобраться в следующем.
Выполняю некоторые действия в книге, затем сохраняю определенный лист с кнопкой в новую книгу. Все работает отлично, но в новую книгу копируется и лист, и кнопка.
Вот фрагмент кода, который выполняет сохранение:
Код
p = ActiveWorkbook.Path
    Sheets("Лист для сохранения").Copy
     ActiveWorkbook.SaveAs Filename:=p & "\" & Format(Now(), "mm/yyyy") & " " & "Лист для сохранения.xlsx", FileFormat:=xlOpenXMLWorkbook
     Sheets(1).Activate
     ActiveSheet.Shapes.Range(Array("Button 1")).Delete
Именно в таком варианте кнопка удаляется, но новая книга остается открытой и при закрытии Excel спрашивает о ее сохранении.
Если в конец кода добавить:
Код
ActiveWindow.Close
То книга сохраняется, закрывается, но кнопка в ней не удаляется.
Помогите, пожалуйста, как поправить код, чтобы новая книга сохранялась, закрывалась, и чтобы в ней не было кнопки.
Изменено: Leojse - 08.05.2019 21:23:43
 
Перейти    
Добавить в существующие формулы слагаемое
 
#
14.04.2019 15:37:15
БМВ, Все_просто , еще раз хочу выразить Вам благодарность за решение проблемы!
 
Перейти    
Добавить в существующие формулы слагаемое
 
#
14.04.2019 14:57:16
БМВ, большое спасибо за решение!
 
Перейти    
Добавить в существующие формулы слагаемое
 
#
14.04.2019 11:55:23
Добрый день, уважаемые форумчане!
Подскажите, пожалуйста, как быть в такой ситуации.
Есть файл, в котором занесены данные и результирующий столбец (Итог). В столбце "Итог" прописаны разные формулы.
Необходимо к существующим формулам добавить еще одно слагаемое (дополнительные данные).
Но, из-за того, что формулы в столбце "Итог" различны, невозможно добавить в формулу это дополнительное слагаемое, а потом растянуть формулу.
Подскажите, пожалуйста, возможно ли как-то в существующие формулы добавить еще одно слагаемое?
Формул очень много и заходить в каждую ячейку, вручную добавляя дополнительные данные, просто невозможно.
 
Перейти    
Изменение формата ячеек после применения фильтра, Изменить формат ячеек после фильтра
 
#
08.03.2019 11:13:40
Решил немного по-другому:
Код
Sub Макрос1()

    With Sheets("Лист1")
        .Range("A1:B1").AutoFilter Field:=1, Criteria1:="Яблоко"
        .Columns("B:B").SpecialCells(xlCellTypeVisible).NumberFormat = "General"
    End With
Sheets("Лист1").AutoFilterMode = False
        Worksheets("Лист1").Columns("B:B").Value = Worksheets("Лист1").Columns("B:B").Value
End Sub
И форматы поменял, и числа в нужных ячейках стали числами.
 
Перейти    
Изменение формата ячеек после применения фильтра, Изменить формат ячеек после фильтра
 
#
08.03.2019 11:00:16
Пытливый, спасибо за помощь!
 
Перейти    
Страницы: 1 2 3 След.
Наверх