Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Амплитуда мигания текста и остановка по времени. - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Амплитуда мигания текста и остановка по времени. (Макросы/Sub)
Амплитуда мигания текста и остановка по времени.
Сергей13 Дата: Понедельник, 19.07.2021, 18:33 | Сообщение № 1
Группа: Проверенные
Ранг: Обитатель
Сообщений: 344
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Здравствуйте!
Ребята, пытаюсь задать таймером мигание текста в фигуре, с амплитудой в 1 сек, и автоматической остановкой мигания через 5 сек, но на деле выходит разовое мигание за 5 сек. Подскажите где что исправить или добавить в тестовом файле.
К сообщению приложен файл: time.xlsm (16.9 Kb)
 
Ответить
СообщениеЗдравствуйте!
Ребята, пытаюсь задать таймером мигание текста в фигуре, с амплитудой в 1 сек, и автоматической остановкой мигания через 5 сек, но на деле выходит разовое мигание за 5 сек. Подскажите где что исправить или добавить в тестовом файле.
Автор - Сергей13
Дата добавления - 19.07.2021 в 18:33
doober Дата: Понедельник, 19.07.2021, 18:52 | Сообщение № 2
Группа: Друзья
Ранг: Ветеран
Сообщений: 947
Репутация: 323 ±
Замечаний: 0% ±

Excel 2010
Здравствуйте.
Как смог, так и исправил :D
К сообщению приложен файл: 6493654.xlsm (17.2 Kb)

 
Ответить
СообщениеЗдравствуйте.
Как смог, так и исправил :D
Автор - doober
Дата добавления - 19.07.2021 в 18:52
Сергей13 Дата: Понедельник, 19.07.2021, 21:39 | Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 344
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
doober, А возможно задать просто количество миганий, например четыре мигания и все, то есть не впихивать количество миганий в промежуток времени.
 
Ответить
Сообщениеdoober, А возможно задать просто количество миганий, например четыре мигания и все, то есть не впихивать количество миганий в промежуток времени.
Автор - Сергей13
Дата добавления - 19.07.2021 в 21:39
Pelena Дата: Понедельник, 19.07.2021, 22:12 | Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 19174
Репутация: 4413 ±
Замечаний: ±

Excel 365 & Mac Excel
Цитата Сергей13, 19.07.2021 в 21:39, в сообщении № 3 ()
задать просто количество миганий
просто циклом не вариант?
[vba]
Код
Sub StartFlashing()
    For i = 1 To 5
        Application.Wait Time:=Now + TimeValue("00:00:1")
        Sheets("Лист1").Shapes("Прямоугольник 1").TextFrame.Characters.Text = ""
        Application.Wait Time:=Now + TimeValue("00:00:1")
        Sheets("Лист1").Shapes("Прямоугольник 1").TextFrame.Characters.Text = "Тест"
    Next i
End Sub
[/vba]

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
Сообщение
Цитата Сергей13, 19.07.2021 в 21:39, в сообщении № 3 ()
задать просто количество миганий
просто циклом не вариант?
[vba]
Код
Sub StartFlashing()
    For i = 1 To 5
        Application.Wait Time:=Now + TimeValue("00:00:1")
        Sheets("Лист1").Shapes("Прямоугольник 1").TextFrame.Characters.Text = ""
        Application.Wait Time:=Now + TimeValue("00:00:1")
        Sheets("Лист1").Shapes("Прямоугольник 1").TextFrame.Characters.Text = "Тест"
    Next i
End Sub
[/vba]
Автор - Pelena
Дата добавления - 19.07.2021 в 22:12
Сергей13 Дата: Понедельник, 19.07.2021, 23:25 | Сообщение № 5
Группа: Проверенные
Ранг: Обитатель
Сообщений: 344
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Pelena, Благодарю!
То что и надо, не знал как это реализовать.
Спасибо всем!
 
Ответить
СообщениеPelena, Благодарю!
То что и надо, не знал как это реализовать.
Спасибо всем!
Автор - Сергей13
Дата добавления - 19.07.2021 в 23:25
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Амплитуда мигания текста и остановка по времени. (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!