Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A2:J2")) Is Nothing Then
UserForm1.Show 0
UserForm1.Repaint
On Error Resume Next
ActiveSheet.ShowAllData
Range("A1").CurrentRegion.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("A1:J2")
End If
Unload UserForm1
End Sub
При вводе данных в диапазон В2;J2 срабатываетавто фильтр и запускается UserForm1 но запустить GIF файл не могу, при одновременной работе макроса фильтра. Подскажите где я ошибся. Огромную благодарность приношу всем трудящимся.) Из за ограничения по размеру не могу сбросить файл который буде запускать UserForm на длительное время.
Тоже самое что и было запускаться UserForm1 но не сам GIF файл в UserForm_е при работе фильтра, или запускается но фильтр не работает. Или это не реально?
Нужно чтобы вовремя фильтрации данных появлялся UserForm1 с активным (работающим) GIF файлом, и закрывался UserForm1 сразу после окончания фильтрации. Такой себе ProgressBar выполняет GIF файл PB-#1.gif.Запуск и закрытие UserForm1 работает вовремя фильтрации данных но сам GIF файл PB-#1.gif в UserForm1 не запускается.
Именно так. Отобразить планирую GIF файл на UserForm1. Из за ограничения по размеру не могу сбросить файл который буде запускать UserForm1 на длительное время вовремя фильтрации. В подлиннике сам файл большой, и процесс фильтрации с отображением UserForm 1 занимает длительное время. По єтому поводу планировал во время фильтрации на UserForm 1 запустить GIF файл, и было бы это вместо ProgressBar.
Смысла не понимаю.5 секунд будете наблюдать свой любимый gif
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A2:J2")) Is Nothing Then
UserForm1.Show 0
UserForm1.Repaint
Starts = Timer
Do While Timer < Starts + 5
DoEvents
Loop
On Error Resume Next
ActiveSheet.ShowAllData
Range("A1").CurrentRegion.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("A1:J2")
End If
Unload UserForm1
End Sub