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

Вход

Регистрация

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

 

= Мир MS Excel/Как сделать цикл? - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как сделать цикл? (Иное)
Как сделать цикл?
turistka Дата: Среда, 30.10.2013, 01:00 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 11
Репутация: 0 ±
Замечаний: 40% ±

Excel 2010
Мне нужно в форме сделать так, чтобы при нажатии на картинку она появлялась и исчезала, появлялась и исчезала, т.е. цикл. Такое возможно?
Подскажите код, если такое возможно.

Nastya

Сообщение отредактировал turistka - Среда, 30.10.2013, 01:00
 
Ответить
СообщениеМне нужно в форме сделать так, чтобы при нажатии на картинку она появлялась и исчезала, появлялась и исчезала, т.е. цикл. Такое возможно?
Подскажите код, если такое возможно.
Автор - turistka
Дата добавления - 30.10.2013 в 01:00
RAN Дата: Среда, 30.10.2013, 01:19 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
"Я вам не скажу за всю Одессу..."
Цитата turistka, 30.10.2013 в 01:00, в сообщении № 1
Такое возможно?

Однозначно ДА.
Цитата turistka, 30.10.2013 в 01:00, в сообщении № 1
Подскажите код,

А вот тут вероятность получения вами положительного ответа, в общей концепции заданного вопроса, неудержимо стремиться к "- бесконечности".

Быть или не быть, вот в чем загвоздка!

Сообщение отредактировал RAN - Среда, 30.10.2013, 01:21
 
Ответить
Сообщение"Я вам не скажу за всю Одессу..."
Цитата turistka, 30.10.2013 в 01:00, в сообщении № 1
Такое возможно?

Однозначно ДА.
Цитата turistka, 30.10.2013 в 01:00, в сообщении № 1
Подскажите код,

А вот тут вероятность получения вами положительного ответа, в общей концепции заданного вопроса, неудержимо стремиться к "- бесконечности".
Автор - RAN
Дата добавления - 30.10.2013 в 01:19
doober Дата: Среда, 30.10.2013, 01:20 | Сообщение № 3
Группа: Друзья
Ранг: Ветеран
Сообщений: 983
Репутация: 340 ±
Замечаний: 0% ±

Excel 2010
Цитата
"Я вам не скажу за всю Одессу..."

Она уже здесь
Нашел в чуланчике,возможно поможет
К сообщению приложен файл: 0577973.xls (59.5 Kb)



Сообщение отредактировал doober - Среда, 30.10.2013, 01:21
 
Ответить
Сообщение
Цитата
"Я вам не скажу за всю Одессу..."

Она уже здесь
Нашел в чуланчике,возможно поможет
Автор - doober
Дата добавления - 30.10.2013 в 01:20
SkyPro Дата: Среда, 30.10.2013, 01:29 | Сообщение № 4
Группа: Друзья
Ранг: Старожил
Сообщений: 1206
Репутация: 255 ±
Замечаний: 0% ±

2010
[vba]
Код
Sub imgshw()
UserForm1.Image1.Visible = True
Application.OnTime Now + TimeValue("00:00:01"), "imghd"
End Sub

Sub imghd()
UserForm1.Image1.Visible = False
Application.OnTime Now + TimeValue("00:00:01"), "imgshw"
End Sub
[/vba]

Направление "копать".
Код будет работать в цикле (как и заказывали). Как отменить - думайте сами )
К сообщению приложен файл: img.xlsm (14.6 Kb)

skypro1111@gmail.com
 
Ответить
Сообщение[vba]
Код
Sub imgshw()
UserForm1.Image1.Visible = True
Application.OnTime Now + TimeValue("00:00:01"), "imghd"
End Sub

Sub imghd()
UserForm1.Image1.Visible = False
Application.OnTime Now + TimeValue("00:00:01"), "imgshw"
End Sub
[/vba]

Направление "копать".
Код будет работать в цикле (как и заказывали). Как отменить - думайте сами )
Автор - SkyPro
Дата добавления - 30.10.2013 в 01:29
turistka Дата: Среда, 30.10.2013, 01:36 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 11
Репутация: 0 ±
Замечаний: 40% ±

Excel 2010
SkyPro, Спасибо! )

Nastya
 
Ответить
СообщениеSkyPro, Спасибо! )
Автор - turistka
Дата добавления - 30.10.2013 в 01:36
Alex_ST Дата: Среда, 30.10.2013, 10:28 | Сообщение № 6
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3214
Репутация: 615 ±
Замечаний: 0% ±

2003
Может быть и уже поздно советовать, но можно сделать, например, так:
В стандартном модуле прописать:
[vba]
Код
Option Explicit
Public bVisible As Boolean

Sub UserForm1_Show()
    UserForm1.Show
End Sub

Sub Img1_Show()
    UserForm1.Image1.Visible = True
    If bVisible Then Exit Sub
    Application.OnTime Now + TimeValue("00:00:01"), "Img1_Hide"
End Sub

Sub Img1_Hide()
    UserForm1.Image1.Visible = False
    Application.OnTime Now + TimeValue("00:00:01"), "Img1_Show"
End Sub
[/vba]
А в модуле формы:
[vba]
Код
Option Explicit
Private Sub Image1_Click()
    bVisible = Not (bVisible)
    Call Img1_Show
End Sub
[/vba]

Файл выложить не могу - с работы собаки-сисадмины VBA на вход/выход коцают в файлах.


С уважением,
Алексей
MS Excel 2003 - the best!!!
 
Ответить
СообщениеМожет быть и уже поздно советовать, но можно сделать, например, так:
В стандартном модуле прописать:
[vba]
Код
Option Explicit
Public bVisible As Boolean

Sub UserForm1_Show()
    UserForm1.Show
End Sub

Sub Img1_Show()
    UserForm1.Image1.Visible = True
    If bVisible Then Exit Sub
    Application.OnTime Now + TimeValue("00:00:01"), "Img1_Hide"
End Sub

Sub Img1_Hide()
    UserForm1.Image1.Visible = False
    Application.OnTime Now + TimeValue("00:00:01"), "Img1_Show"
End Sub
[/vba]
А в модуле формы:
[vba]
Код
Option Explicit
Private Sub Image1_Click()
    bVisible = Not (bVisible)
    Call Img1_Show
End Sub
[/vba]

Файл выложить не могу - с работы собаки-сисадмины VBA на вход/выход коцают в файлах.
Автор - Alex_ST
Дата добавления - 30.10.2013 в 10:28
SkyPro Дата: Среда, 30.10.2013, 11:15 | Сообщение № 7
Группа: Друзья
Ранг: Старожил
Сообщений: 1206
Репутация: 255 ±
Замечаний: 0% ±

2010
Цитата Alex_ST, 30.10.2013 в 10:28, в сообщении № 6
VBA на вход/выход коцают в файлах.

И архивация с паролем не помогают?

skypro1111@gmail.com
 
Ответить
Сообщение
Цитата Alex_ST, 30.10.2013 в 10:28, в сообщении № 6
VBA на вход/выход коцают в файлах.

И архивация с паролем не помогают?
Автор - SkyPro
Дата добавления - 30.10.2013 в 11:15
Hugo Дата: Среда, 30.10.2013, 12:24 | Сообщение № 8
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3706
Репутация: 792 ±
Замечаний: 0% ±

365
"собаки-сисадмины" :)
А "архивация с паролем" я бы на месте собак вообще откусывал. И лаял :)

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD
 
Ответить
Сообщение"собаки-сисадмины" :)
А "архивация с паролем" я бы на месте собак вообще откусывал. И лаял :)
Автор - Hugo
Дата добавления - 30.10.2013 в 12:24
AndreTM Дата: Среда, 30.10.2013, 15:36 | Сообщение № 9
Группа: Друзья
Ранг: Старожил
Сообщений: 1762
Репутация: 501 ±
Замечаний: 0% ±

2003 & 2010
[offtop]Офф.[/offtop]

Skype: andre.tm.007
Donate: Qiwi: 9517375010
 
Ответить
Сообщение[offtop]Офф.[/offtop]
Автор - AndreTM
Дата добавления - 30.10.2013 в 15:36
Alex_ST Дата: Среда, 30.10.2013, 19:32 | Сообщение № 10
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3214
Репутация: 615 ±
Замечаний: 0% ±

2003
Цитата SkyPro, 30.10.2013 в 11:15, в сообщении № 7
И архивация с паролем не помогают?

Цитата Hugo, 30.10.2013 в 12:24, в сообщении № 8
А "архивация с паролем" я бы на месте собак вообще откусывал.


С уважением,
Алексей
MS Excel 2003 - the best!!!

Сообщение отредактировал Alex_ST - Среда, 30.10.2013, 19:33
 
Ответить
Сообщение
Цитата SkyPro, 30.10.2013 в 11:15, в сообщении № 7
И архивация с паролем не помогают?

Цитата Hugo, 30.10.2013 в 12:24, в сообщении № 8
А "архивация с паролем" я бы на месте собак вообще откусывал.
Автор - Alex_ST
Дата добавления - 30.10.2013 в 19:32
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как сделать цикл? (Иное)
  • Страница 1 из 1
  • 1
Поиск:

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