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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 30 След.
Как сделать проигрывание gif на листе эксель бесконечным
 
#
14.04.2025 16:37:52
Цитата
visors16 написал:
Вот видео. https://dropmefiles.com/y27en
На видео покажите не как вы мышкой в ручную двигаете, а как выполняете рекомендации и запускаете макрос мой или ZVI.
Рекомендации:
Цитата
ZVI написал:
Макросы должны быть разрешены.
После скачивания книгу нужно разблокировать или поместить в надежные расположения.

Цитата
ZVI написал:
Попробуйте вручную запустить  StartTimer.
 
Перейти    
Как перенести данные из ячейки в другую книгу
 
#
14.04.2025 15:09:45
nikuss9, Здравствуйте.
Основные варианты для реализации вашей потребности:
1. Общий файл в облаке (к примеру OneDrive/Google Drive/SharePoint/Yandex Disk).
2. Режим совместного редактирования.
3. Power Query (для внешних данных).
4. Макросы (VBA).
5. Microsoft Power Automate.
 
Перейти    
Как сделать проигрывание gif на листе эксель бесконечным
 
#
14.04.2025 14:40:18
У меня тоже бесконечно работает gif, как на моём варианте, таки и на варианте ZVI. Ничего не останавливается.
 
Перейти    
Как сделать проигрывание gif на листе эксель бесконечным
 
#
14.04.2025 12:16:26
Цитата
visors16 написал:
Я же ссылку на файлообменник скинул:
У меня не скачивается файл по данной ссылке.
Цитата
visors16 написал:
Скопировал - в итоге гиф засыпает через 30 секунд.
Нужно не только скопировать, но и запустить код. Выполнено условие, чтобы лист Excel на котором Gif, был активным?
Изменено: asesja - 14.04.2025 12:16:40
 
Перейти    
Как сделать проигрывание gif на листе эксель бесконечным
 
#
14.04.2025 11:37:00
Цитата
visors16 написал:
вот файл-пример:
У меня не скачивается файл пример.

Вариант.: Скопировать в обычный модуль и запустить код. Когда лист Excel активный, анимация не должна засыпать. При необходимости выполнение нужно остановить.
Код
Private Declare PtrSafe Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Sub РаботаГИФ()
    Const MOUSEEVENTF_MOVE = &H1
    mouse_event MOUSEEVENTF_MOVE, 1, 0, 0, 0
    mouse_event MOUSEEVENTF_MOVE, -1, 0, 0, 0
    DoEvents
    Application.OnTime Now + TimeValue("00:00:15"), "РаботаГИФ" 
End Sub
Изменено: asesja - 14.04.2025 11:42:36
 
Перейти    
Как сделать проигрывание gif на листе эксель бесконечным
 
#
13.04.2025 23:11:58
Цитата
visors16 написал:
Выдает ошибку
Выделяет строку:
gif.DrawingObject.Update ' Обновляем GIF
Файла примера нет. Посмотреть, что вы там делаете, не представляется возможным.
Изменено: asesja - 13.04.2025 23:14:08
 
Перейти    
Добавление описания/примечания (выпадающий список) на картинке, Как сделать чтобы при наведении на картинку появлялся список/описание
 
#
13.04.2025 09:41:15
kot2012, приветствую.
Есть ещё такой вариант.
Преимущества:
1. Не используется событие "Worksheet_SelectionChange" (минимальна вероятность сброса Undo).
2. Работает при наведении мышкой.
3. При необходимости, изменение данных можно назначить на любое действие/событие (кнопка, клик по картинке, и ит.д.).
4. При изменении масштаба листа текс остается читаемым.
 
Перейти    
Обращение к листу из файла надстройки, Как выполнить действия с диапазонами на листах в файле надстройки
 
#
10.04.2025 22:02:51
Здравствуйте.
Попробуйте не использовать в коде:

Код
WBADN.IsAddin = False 
WBADN.IsAddin = True

Необязательно делать книгу видимой.

Изменено: asesja - 10.04.2025 22:08:57
 
Перейти    
Как сделать проигрывание gif на листе эксель бесконечным
 
#
10.04.2025 09:26:11
Цитата
visors16 написал:
а как понять "Имя_вашего_GIF" ?
Имя, по которому к нему можно обратится (в данном случае в программном коде)
Цитата
visors16 написал:
Их у меня штук 50 и они постоянно заменяются на новые.
Это новое обстоятельство и о нём ранее не упоминалось. Пройдитесь циклом по всем именам. Вы давно в VBA и думаю найдете как это сделать.
Цитата
visors16 написал:
Application.Wait (Now + TimeValue("0:00:01")) ' Пауза 1 сек (можно уменьшить)
Это тоже непонятно.
Это пауза в выполнении кода. Вы пытались поиграть этим значением?
Для более гибкой паузы можно использовать Sleep из Windows API.
Цитата
visors16 написал:
Я же написал выше, что гиф - реагируют только на движение мыши и больше ни на что.
Вы пытались разобраться и запустить код, хотя бы для одного gif?
 
Перейти    
Как сделать проигрывание gif на листе эксель бесконечным
 
#
09.04.2025 21:45:50
Цитата
visors16 написал:
Как сделать так, чтобы оно проигрывалось бесконечно ?
Попробуйте так.
Код
Sub ПовторГиф()
    Dim gif As Shape
    Set gif = ActiveSheet.Shapes("Имя_вашего_GIF") ' Замените на имя вашего объекта
    Do
        gif.DrawingObject.Update ' Обновляем GIF
        DoEvents
        Application.Wait (Now + TimeValue("0:00:01")) ' Пауза 1 сек (можно уменьшить)
    Loop
End Sub
 
Перейти    
считать сумму цифр без учета букв, необходимо посчитать сумму чисел без букв
 
#
08.04.2025 22:24:02
Цитата
zagish написал:
подскажи, пожалуйста, как добавить  
Если нужно, что-бы формула работала только в определённом файле, то скопируй модуль из моего примера в свой файл.
Если нужно, что бы работала в любом Excel файле на компьютере, то скопируй его в Личную книгу или лучше в Надстройку (создать если нет).
Как добавить - можно просто перетащить.
Изменено: asesja - 08.04.2025 22:29:32
 
Перейти    
считать сумму цифр без учета букв, необходимо посчитать сумму чисел без букв
 
#
07.04.2025 11:25:48
Цитата
zagish написал:
желтым отмечена ячейка где должно быть сумма чисел с буквой "С"
Всё считает. UDF то нужно было куда-нибудь добавить (в саму книгу или надстройку или персональную книгу).
Изменено: asesja - 07.04.2025 11:44:54
 
Перейти    
Избавиться от появления фоновых процессов Excel
 
#
05.04.2025 23:33:30
Ваш вопрос действительно сложный, потому что проблема лежит на стыке нескольких факторов, и универсального "чистого" решения, увы, нет.. Excel иногда зависает в фоне из-за макросов, надстроек (SAP, 1C) или внешних интеграций, а новый запуск сбрасывает настройки, так как система пытается "прицепиться" к зависшему процессу.
Что можно сделать:
1. Принудительный новый запуск
Используйте параметр /x в ярлыке: excel.exe /x – это запустит Excel, игнорируя зависшие процессы.
2. Отключить DDE (если не нужна интеграция с Outlook/другими программами)
Через реестр удалить /dde из команд открытия .xlsx-файлов.
3. Автоматический сброс зависших процессов
Ваш VBS-скрипт – нормальное решение, если ручной сброс надоел.
4. Локальные исправления
Если проблема в конкретных надстройках (SAP, Power Query) – отключать их по умолчанию.
Проверить, не виноваты ли обновления Office/Windows.
На мой взгляд лучше всего работает комбинация /x + скрипт для сброса. Полностью избавиться от проблемы вряд ли получится – это глюк Excel, который Microsoft не чинит годами.

На форуме много умных, разбирающихся людей, возможно кто-нибудь ещё предложит варианты решения проблемы.  
Изменено: asesja - 05.04.2025 23:40:23
 
Перейти    
считать сумму цифр без учета букв, необходимо посчитать сумму чисел без букв
 
#
05.04.2025 23:05:38
Цитата
zagish написал:
asesja , твой вариант работает. Но в некоторых таблицах выдает ошибку. В чем может быть проблема?
Я не вижу твои таблицы, чтобы посмотреть в чем может быть проблема.
Изменено: asesja - 05.04.2025 23:05:51
 
Перейти    
считать сумму цифр без учета букв, необходимо посчитать сумму чисел без букв
 
#
05.04.2025 00:42:51
Здравствуйте, ещё такой вариант.
См. вложение.
 
Перейти    
Избавиться от появления фоновых процессов Excel
 
#
04.04.2025 23:56:38

Здравствуйте.

Вариантов зависания Excel в фоне на самом деле может быть очень много, вот самые распространённые:

Незавершённые операции или ошибки при закрытии

Excel может оставаться в процессах, если:

- Произошла ошибка при сохранении файла.

- Зависла какая-то надстройка (например, Power Query, Power Pivot, VBA-макросы).

- Было прервано обновление связей с внешними источниками данных.

- Произошёл конфликт с COM-аддонами или другими интеграциями (например, с 1С, SAP и т. д.).

- Старые версии Excel (особенно в сочетании с некоторыми программами) могут зависать из-за некорректного завершения DDE-запросов.

Повреждение временных файлов или настроек

Иногда повреждённые Excel.xlb (панель инструментов), *.xlb (настройки), *.xlk (резервные копии), %temp%\~$* (временные файлы автосохранения) могут приводить к зависанию.

Конфликты с другими программами

- Антивирусы (особенно те, что сканируют файлы в реальном времени),

- VPN-клиенты,

- Облачные хранилища (OneDrive, Dropbox),

- Драйверы принтеров/виртуальных PDF-принтеров могут блокировать файлы Excel и мешать его нормальному завершению.

Проблемы с профилем пользователя

Если профиль Windows повреждён, Excel может некорректно завершать работу.

В общем, чтобы решить данную проблему нужно конкретно «поймать» ситуацию, после которой остается незавершенный процесс и далее уже принимать какие-либо меры.

Изменено: asesja - 04.04.2025 23:57:27
 
Перейти    
Автоматическая разбивка списка номенклатуры на блоки по критерию величины, Автоматическое распределение списка номенклатуры из "Общей сводной" в другую вкладку с разбивкой на блоки в зависимости от величины материала
 
#
04.04.2025 11:33:08
Arifmetika, приветствую.
Ещё такой вариант. См. вложение.

Изменено: asesja - 04.04.2025 11:38:54
 
Перейти    
Макрос для таблицы со сложным заголовком, Не смогла создать макрос через мастера - работает не корректно именно с шапкой таблицы
 
#
01.04.2025 11:39:56
Цитата
ita170 написал:
спасибо вам за "толчок"))) заработало!
Замечательно, что разобрались и всё получилось! 👍
 
Перейти    
Макрос для таблицы со сложным заголовком, Не смогла создать макрос через мастера - работает не корректно именно с шапкой таблицы
 
#
31.03.2025 09:25:21
Возле компа буду только вечером. Может кто ещё с форума посмотрит и подскажет. Добавьте несколько таблиц разных, чтобы понимать алгоритм по которому их обрабатывать, или сами поэкспериментируйте с кодом.
 
Перейти    
Макрос для таблицы со сложным заголовком, Не смогла создать макрос через мастера - работает не корректно именно с шапкой таблицы
 
#
31.03.2025 09:10:33
Я не вижу вашу другую таблицу. Вы уверены, что у вас в ячейках данные как числа? Может числа как текст в ячейках?  Тогда нужно допилить макрос.
 
Перейти    
Макрос для таблицы со сложным заголовком, Не смогла создать макрос через мастера - работает не корректно именно с шапкой таблицы
 
#
30.03.2025 23:31:19
Цитата
ita170 написал:
А можно добавить полное суммирование в столбцах - залиты синим, лист "Обработанная"?
См. вложение V2
Изменено: asesja - 30.03.2025 23:31:33
 
Перейти    
Макрос для таблицы со сложным заголовком, Не смогла создать макрос через мастера - работает не корректно именно с шапкой таблицы
 
#
30.03.2025 19:54:48
ita170, Добрый вечер.
См. вложение.
 
Перейти    
Как скопировать значение без правил условного форматирования.
 
#
30.03.2025 19:23:32
FrOleg80, здравствуйте.
См. вложение.
 
Перейти    
Достать одно число из диапазона
 
#
29.03.2025 21:21:25
mark5545, Приветствую.
Попробуйте такой вариант. Результат будет в столбце V.
См. вложение.
 
Перейти    
Изменяется размер примечаний, Со временем меняется размер выводимого на экран примечания
 
#
27.03.2025 21:32:02
Здравствуйте.
Причин может быть несколько.
Предположу, что изменения размера и смещение может быть связано с редактированием (изменением) данных таблицы. Это удаление и добавление строк столбцов, изменение их высоты и ширены.
Изменение масштаба листа или разрешения экрана может сбивать позиционирование.
Ошибки рендеринга, нестабильность версии Excel и т.д.

Попробуйте зафиксировать примечания. Закрепите положение: во вкладке "Свойства" выберите "Перемещать и изменять объект вместе с ячейками" или подходящее вам свойство.
Данные действия можно проделать макросом для всех примечаний, если их много, включая изменение размера.
 
Перейти    
Выключение макроса кнопкой с формы, Необходимо с помощью кнопки из формы выключить / остановить макрос из которого вызвалась форма
 
#
27.03.2025 14:49:34
Цитата
azx написал:
я не понимаю как выйти из первоначальной процедуры?
Команда End (завершит выполнение кода)
или Exit Sub (выход из действующей процедуры).
На всякий случай:
Unload UserForm1 - полностью выгружает форму.
UserForm1.Hide - скрывает форму.

И ещё))
Вы на форуме по Excel прикладываете в качестве примера и пояснений графическую картинку (блок-схему) вместо самого файла Excel в котором что-то не получается. Пусть даже не исходный файл с данными, а приблизительно сделанный пример с вашим кодом VBA и формой.
С нормальным примером, уже давно бы было нужное решение.
Изменено: asesja - 27.03.2025 15:12:58
 
Перейти    
Выключение макроса кнопкой с формы, Необходимо с помощью кнопки из формы выключить / остановить макрос из которого вызвалась форма
 
#
26.03.2025 20:44:58
azx, добрый вечер.
Создаем две процедуры. В первой при запуске проверяется условие, если ИСТИНА, то запускаем Форму, если ЛОЖЬ, то продолжаем выполнение кода без формы.
Теперь к форме:
Цитата
azx написал:
Если выбрали "да", то выполняется одна часть кода
При нажатии "ДА", конечно непонятно, какая одна часть кода должна выполняться, но пусть она будет во второй процедуре.
При нажатии "НЕТ" закрываете форму и выходите из первоначальной процедуры.
Изменено: asesja - 26.03.2025 20:51:59
 
Перейти    
заменить цифры после последней точки
 
#
26.03.2025 17:12:56
Цитата
вася папкин написал:
можете выложить макрос в посте, а не в файле
Код
Sub Макрос1()
    For Each c In [A1:A12]
        c.Value = Left(c.Value, InStrRev(c.Value, ".")) & "XXX"
    Next
End Sub
 
Перейти    
заменить цифры после последней точки
 
#
26.03.2025 16:53:23
См.вложение:
 
Перейти    
МакросДляИгры
 
#
25.03.2025 23:28:57
KULIBLIN, Приветствую.
Написал в личные сообщения.
В работе.
Выполнено, рассчитались.
Изменено: asesja - 26.03.2025 21:58:54
 
Перейти    
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 30 След.
Наверх