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

Страницы: 1
При выполнении макроса с заблокированной ОС возникает проблема с буфером обмена
 
#
21.02.2023 15:09:56
В итоге кто- то знает ответ?
 
Перейти    
При выполнении макроса с заблокированной ОС возникает проблема с буфером обмена
 
#
30.01.2023 08:19:55
Цитата
Юрий М написал:
Андрей,  переформулируйте и предложите новое название темы, из которого будет понятна задача/проблема - модераторы поменяют.

вот так:

При выполнении макроса с заблокированной ОС возникает проблема с буфером обмена


Плюс еще добавлю: Если я предварительно зайду удалённо на данный рабочий стол и потом выйду из него, то макрос будет работать при заблокированной ОС. Но если блокирую ОС сидя у ноутбука, то не работает.
 
Перейти    
При выполнении макроса с заблокированной ОС возникает проблема с буфером обмена
 
#
27.01.2023 13:49:12
Добрый день!

Вопрос касается выполнения макроса, который копирует таблицу и отправляет её в телеграм при заблокированной операционной системе(ОС). При разблокированной ОС всё работает как надо.

Ранее макрос работал без проблем, однако после НГ, что- то изменилось и при блокировке ОС, при выполнении макроса стала вылезать ошибка (RUN TIME ERROR 1004) c описаниями:
https://radikal.host/i/JeCeUg
до этого тоже была 1004 ошибка но с описанием меверный метод Range.....
Когда разблокирую ОС и нажму Debug в окошке - подсвечивает CopyPicture:


Код
Function Range_to_Picture(rng)
    Dim sName As String, wsTmpSh As Worksheet
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    With rng
    .CopyPicture                    ' ВОТ ЭТУ СТРОКУ ПОДСВЕЧИВАЕТ
        Set wsTmpSh = ThisWorkbook.Sheets.Add
        sName = ActiveWorkbook.FullName & "_" & ActiveSheet.Name & "_Range"
        With wsTmpSh.ChartObjects.Add(0, 0, .Width, .Height).Chart
            .ChartArea.Border.LineStyle = 0
            .Parent.Select
            .Paste
            .Export Filename:=sName & ".gif", FilterName:="GIF"
            .Parent.Delete
        End With
    End With
    wsTmpSh.Delete
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True

    Range_to_Picture = sName & ".gif"

End Function


Нашел похожую проблему:https://translated.turbopages.org/proxy_u....xceldev

Но не совсем понимаю, что надо сделать.

Кто- то еще сталкивался с данной проблемой?
WIN10
Office 2019
Изменено: Юрий М - 30.01.2023 08:27:10
 
Перейти    
VBA:выделение динамического диапазона с формулами
 
#
29.08.2022 16:21:56
Дмитрий, мы не совсем друг друга поняли=)
Этот код:

Код
Set rF = Range("C:C").Find("*", , xlValues, xlWhole, , xlPrevious)

Выдаёт только последнее значение в этом столбце(Например, С8), а должно получиться последняя ячейка этой таблицы(J8).

Даже если я указываю:

Код
Set rF = Range("C3:J8").Find("*", , xlValues, xlWhole, , xlPrevious)

То ячейка выводится последняя заполненная "E8":


Грубо говоря, если у нас таблица C3:J15 , то при заполненности таблицы до ячейки С8 дожен быть результат: С3:J8
 
Перейти    
VBA:выделение динамического диапазона с формулами
 
#
29.08.2022 10:31:03
Цитата
написал:
Андрей, я здесь ответил на Ваш комментарий:  Как определить последнюю ячейку на листе через VBA?
В статье уже все давно есть - обратите внимание на МЕТОД 4 - при помощи Find.
Дмитрий, спасибо!

А есть способ как-то ограничить зону действия этого кода?
То есть если у меня таблица, например начинается не с A1, а с C3.(в столбце A при этом тоже есть данные, но они не нужны). Плюс есть еще какие-то таблицы справа и слева от нужной таблицы.  
Изменено: Андрей - 29.08.2022 10:37:20
 
Перейти    
VBA:выделение динамического диапазона с формулами
 
#
29.08.2022 10:19:53
Добрый день!

Помогите советом.
У меня есть таблица с данными(формулами).

Размер таблицы каждый раз должен быть разным, исходя из заполненности. Использую CurrentRegion для формирования нужного размера таблицы и уперся в то, что если по результатам выполнения формулы(например из- за ошибки) подставляется "" , то CurrentRegion всё равно считает это данными и добавляет эту строку в диапазон.

Во вложении выделил желтым ячейку с формулой.

Подскажите, как можно обойти эту проблему.
Вот код:
Код
Sub Test1()
 
MsgBox Range("A1").CurrentRegion.Address

End Sub

Заранее спасибо!
Изменено: Андрей - 29.08.2022 10:22:37
 
Перейти    
Как сделать отправку в Telegram из макроса VBA Excel, Telegram из макроса VBA Excel
 
#
04.05.2022 13:22:10
Всем, привет!

А у меня вопрос по текстовой части: возможно как-либо отправить помимо текста(кириллического) еще и символы(снежинки например(те, которые вставляются через вставить символ))/смайлики?
 
Перейти    
Импорт данных о погоде
 
#
27.04.2022 16:33:36
Добрый всем день!

Прошу подсказать как возможно подгрузить данные из источников о погоде(с обновлением данных при открытии файла). Смысл в том чтобы были данные о погоде на следующий рабочий день в виде таблицы:

Пробовал получить данные из https://api.openweathermap.org , но там как-то непонятно выгружаются данные в PQ.

Можно сделать выгрузку данных из условно яндекс погоды, но
1. не ясно как сделать привязку к дате(следующий рабочий день);
2. есть вероятность, что данные о погоде на странице яндекса переместятся в другое место и придётся всё переделывать.

Смотрел тут: https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=read&FID=8&TID=24191 - но не понял как получить доступ к XML.


Дайте, пожалуйста,  совет как быть.

UPD.

В общем покопался и нашел решение:

Выгружается всё более менее корректно. Скрин прикрепил.

Теперь возникла проблема с функцией =РАБДНИ: Она не учитывает рабочие субботы/воскресенья. И как автоматизировать это пока не понимаю.
Всё, что указано тут: https://www.planetaexcel.ru/techniques/6/13289/ работает. Спасибо Николаю!  Но что делать с рабочими выходными пока не знаю.

Может кто знает уже решение?
 
Перейти    
Страницы: 1
Наверх