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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 29 След.
Проверка наличия листов по списку, Проверка наличия листов по списку (перед копированием данных с этих листов)
 
Сергей Цымбалистый,
https://www.excel-vba.ru/chto-umeet-excel/kak-uznat-sushhestvuet-li-list-v-knige/
Вставка графика в powerpiont
 
Иван Иванов,
сначала расширьте диаграмму до нужного размера в excel, а уже после вставляйте ее в Power Point
Обновление запросов при защите книги
 
spacer,
в таком случае, просто не защищайте книгу, а только листы)
Вставка графика в powerpiont
 
Иван Иванов,
вставить график нужно с помощью: Главная -> Вставить -> Специальная вставка...-> Связать -> Ок
Если он не обновляется в автомате попробуйте щелкнуть на нем ПКМ и нажать "Обновить связь"
Обновление запросов при защите книги
 
spacer,
в таких случаях, вставляю кнопку на листе для обновления и пишу для нее макрос:
Код
Sub aaa()
    ActiveWorkbook.Unprotect Password:="1"
    ThisWorkbook.RefreshAll
    ActiveWorkbook.Protect Password:="1", Structure:=True, Windows:=False
End Sub

P.S. обновлять можно только один или определенные запросы.
Изменено: evgeniygeo - 28.09.2021 06:04:10
Парсинг курсов P2P Binance
 
Григорий Сперанский,
у меня даже сайт не открывает
Сохранить презентацию.pptx в PDF из Excel
 
Андрей VG,
мне было важно обновление по порядку, но Ваш вариант лучше, если нужно обновить просто все.

DjAlex77,
вариант от Андрей VG:
Код
Sub aaa()
   Dim pp As New PowerPoint.Application
    With pp.Presentations.Open("C:\тест.pptm")
        pp.ActivePresentation.UpdateLinks
    End With
End Sub
   
и мой вот так работает:
Код
Sub aaa()
   Dim pp As New PowerPoint.Application
    With pp.Presentations.Open("C:\тест.pptm")
        For Each sld In pp.ActivePresentation.Slides
            For Each sh In sld.Shapes
                If sh.Type = msoLinkedOLEObject Then
                    sh.LinkFormat.Update
                End If
            Next
        Next
    End With
End Sub
  
Изменено: evgeniygeo - 24.09.2021 11:45:40
Сохранить презентацию.pptx в PDF из Excel
 
Цитата
Андрей VG написал:  evgeniygeo , пожалуйста, поясните
предполагаю, что это адресовано не мне, т.к. не я ТС
Если все же мне, то у меня была совсем другая задача.
Сохранить презентацию.pptx в PDF из Excel
 
DjAlex77, как вариант, можно использовать вот этот макрос для обновления связей в Power Point.
Код
For Each sld In ActivePresentation.Slides
    For Each sh In sld.Shapes
        If sh.Type = msoLinkedOLEObject Then
            sh.LinkFormat.Update
        End If
    Next
Next
Макрос переноса и удаления информации из таблицы одного файла в другой файл
 
Emphyr,
для начала: ПРАВИЛА
Цитата
2.6. Один вопрос - одна тема. Не следует в открываемой теме обозначать и задавать сразу несколько вопросов.
Для объединения файлов в папке воспользуйтесь лучше Power Query: ТЫЦ
Данный вариант будет обновляемым, поэтому второй вопрос отпадет сам собой
Изменено: evgeniygeo - 23.09.2021 07:22:01
Дашборд в эксель
 
Ника Иванова,
вообще, дашборд лучше сделать в Power BI
А если нужен именно в excel, то советую: ТЫЦ, ТЫЦ
Изменено: evgeniygeo - 23.09.2021 07:17:09
VBA Печать pdf файлов с указанием кол-ва копий и принтера
 
БМВ,
да, но к сожалению путь к нему может быть разный + у кого-то есть 64версия.
Т.к. все равно нельзя указать количество копий, решил изменять принтер по умолчанию в начале и обратно ставить в конце кода, как показано в статье Дмитрия, но добавив вот этот кусок для смены принтера по умолчанию:
Код
    Shell "RUNDLL32 PRINTUI.DLL,PrintUIEntry /y /n """ & sNowPrinter & """"
Изменено: evgeniygeo - 17.09.2021 12:58:43
VBA Печать pdf файлов с указанием кол-ва копий и принтера
 
БМВ,
похоже что-то я делаю не так...не работает у меня, сразу выходить ошибка после вставки.
Может быть нужно что-то включить в Reference?
VBA Печать pdf файлов с указанием кол-ва копий и принтера
 
Добрый день Планетяне!
У меня есть лист в Excel, на котором есть пути к pdf файлам, которые мне необходимо распечатать, в определенном количестве и на принтере, который не стоит по умолчанию

Сейчас я это делаю так:
Код
Call apiShellExecute(Application.hwnd, "print", ПутьКФайлу, vbNullString, vbNullString, 0)
Но мне объяснили, что в данном варианте нельзя указать количество копий и принтер.
ShellExecute (print) как указать принтер не по умолчанию?
 
спасибо БМВ, за разъяснения
ShellExecute (print) как указать количество копий?
 
БМВ,
спасибо, за разъяснения
ShellExecute (print) как указать принтер не по умолчанию?
 
Привет Форумчане!
Подскажите пожалуйста, как можно выбрать принтер не по умолчанию в коде?
Код
Call apiShellExecute(Application.hwnd, "print", ПутьКФайлу, vbNullString, vbNullString, 0)
Сейчас приходится устанавливать цветной принтер по умолчанию , а после печатать, что очень не удобно.
ShellExecute (print) как указать количество копий?
 
Всем привет!  ;)
Подскажите пожалуйста, как можно указать количество копий? Или сработает только вариант с циклом?
Код
Call apiShellExecute(Application.hwnd, "print", ПутьКФайлу, vbNullString, vbNullString, 0)

Читал в справке и в статьях, но не смог найти ответа
Изменено: evgeniygeo - 17.09.2021 06:22:24
Копирование / Перенос с соседнего листа в первый со сравнением по первому столбцу
 
Михаил Иванченков,
просто вырезать
Код
Sub aaa()
For y = 3 To Cells.SpecialCells(xlLastCell).Row
    For n = 2 To Sheets("Разное").Cells.SpecialCells(xlLastCell).Row
        If Cells(y, 1) = Sheets("Разное").Cells(n, 1) Then
            Sheets("Разное").Range(Sheets("Разное").Cells(n, 1), Sheets("Разное").Cells(n, 14)).Cut Cells(y, 131)
        End If
    Next n
Next y
End Sub

Сравнение стоимости товаров в рамках одного периода и категории
 
PMO87,
вот то, что может Вам пригодиться: ТЫЦ
Скопировать цвет условного форматирования
 
DopplerEffect,
определить цвет ячейки можете вот так:
Код
ActiveCell.DisplayFormat.Interior.Color
Копирование / Перенос с соседнего листа в первый со сравнением по первому столбцу
 
Михаил Иванченков,
а может быть несколько совпадений? Зачем нам второй лист?
Можно макросом:
Код
Sub aaa()
For y = 3 To Cells.SpecialCells(xlLastCell).Row
    For n = 2 To Sheets("Разное").Cells.SpecialCells(xlLastCell).Row
        If Cells(y, 1) = Sheets("Разное").Cells(n, 1) Then
            For r = 1 To 14
            Cells(y, r + 130) = Sheets("Разное").Cells(n, r)
            Next r
        End If
    Next n
Next y
End Sub
Можно формулой:
Код
=ЕСЛИОШИБКА(ИНДЕКС(Разное!A$2:A$1000;ПОИСКПОЗ($A3;Разное!$A$2:$A$1000;0));"")
Изменено: evgeniygeo - 15.09.2021 08:16:06
Автоматическое добавление строк в таблицу, при появлении их в другой таблице
 
роман иванов,
можно сделать с помощью Power Query
Сайты по фрилансу Excel, Word, Outlook, VBA
 
PooHkrd,
спасибо)))
PQ разный формат даты
 
Андрей VG,
да уж...пошел изучать
Спасибо Вам!  :)  
PQ разный формат даты
 
Андрей VG,
супер, то, что нужно!  ;)
Только вот я опять забыл учесть один момент...могут быть пустые строчки  :sceptic:
На крайняк поменяю пусто на нереальную дату, а в конце обратно на пусто   :D  
Изменено: evgeniygeo - 10.09.2021 10:46:44
PQ разный формат даты
 
Андрей VG,
к сожалению, только по его содержимому, данных всегда довольно много, поэтому нарваться на ошибку, думаю, что не получиться
Если хоть одно значение имеет больше 12 в начале, то это RU-столбец, а если все меньше или равны 12 то EN

Или может быть преобразовать в RU, а если есть ошибки, то в EN
Изменено: evgeniygeo - 10.09.2021 09:54:14
PQ разный формат даты
 
Дмитрий(The_Prist) Щербаков,
все верно, в обновленном примере так и есть (например: в 1 - 08/28/2021, а в 2 - 28/08/2021)  :)

Цитата
Дмитрий(The_Prist) Щербаков написал:
PQ будет искать в первой позиции месяц, а во второй день
Андрей VG,
понимаю, пытаюсь исправиться  :)
в столбце могут быть либо RU, либо EN, вперемешку быть не могут
Изменено: evgeniygeo - 10.09.2021 09:32:29
PQ разный формат даты
 
Андрей VG,
прошу прощения, что ввел Вас в заблуждение, я указал некорректный формат для RU выгрузки.

Исправил в первом сообщении, но к сожалению Ваш вариант при таком раскладе работает только для EN.
Изменено: evgeniygeo - 10.09.2021 08:26:21
PQ разный формат даты
 
Мой вариант решения, но работает только для англ...
Код
= try (Table.TransformColumnTypes(#"Повышенные заголовки", {{"Дата", type date}}, "en-EN")) otherwise Table.TransformColumnTypes(#"Повышенные заголовки", {{"Дата", type date}}, "ru-RU")
Плохой вариант...
Изменено: evgeniygeo - 10.09.2021 06:32:10
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 29 След.
Наверх