Страницы: 1
RSS
ProgressBar
 
Доброго времени суток!  
 
Столкнулся с такой, для меня нерешаемой, задачей.  
 
Есть определенный макрос, в котором добавляються ячейки, в них копируются данные из другого файла, после идет определенная проверка, тоесть происходит несколько действий. Теперь вопрос.  
 
Каким образом можно связать ProgressBar с такий макросом?!  
 
P.S. За основу взял примеры с ProgressBar из этой ссылки:  
http://msoffice.nm.ru/faq/macros/msforms4.htm#faq513  
Научился выводить форму ProgressBar только с одним действием...
 
Ув. ТолькоУчусь, неужели для того, что-бы помочь нужно каждый раз выпрашивать: Дайте пример с Вашей наработкой. Пусть данные будут на другом листе. Кому охота ВСЕ делать за Вас. И помните о правилах;-) 100кб.
Я сам - дурнее всякого примера! ...
 
Ув. KuklP, извините, исправился.  
 
P.S. спасибо, что откликнулись!
 
Вот, возможно так подойдет. Данных в Вашем файле нет. Поэтому подкидывал первый попавшийся свой. В общем смотрите.
Я сам - дурнее всякого примера! ...
 
Уп-с...  
Private Sub ProgressBar2()  
   iMax = Лист1.Range("A10:T22").Cells.Count  
   iProcent = Back.Width / iMax  
   a = 0  
   For Each cell In Лист1.Range("A10:T22").Cells  
       a = a + 1  
       Progress.Width = a * iProcent  
       DoEvents  
       If cell.Value = 0 Then cell.ClearContents  
   Next cell  
   Progress.Width = 0  
   Me.Hide  
   End Sub  
Вот так должно быть.
Я сам - дурнее всякого примера! ...
 

А чем не устраивает такой вариант прогресс-бара? <BR>http://www.programmersforum.ru/showpost.php?p=148631&postcount=2

 
KuklP, спасибо! Смотрю на зверя :)  
 
EducatedFool, Вам спасибо за пример!
 
KuklP, не совсем то, Ваш вариант только для 1-го действия. :(  
 
EducatedFool, а Ваш пример пока что для меня сильно сложный без подсказок. Буду изучать, но пока, что для меня легче весь макрос вставить в новую форму с надписью "Подождите, идет загрузка...".
 
А почему не используется специальная форма Microsoft ProgressBar Control?  
Мне кажется намного удобнее, чем вручную делать все.
 
Думаю, тема уже не актуальна:-)
Я сам - дурнее всякого примера! ...
 
Орленок Эд, спасибо Вам, очень интересный вариант!  
 
KuklP, актуальна  ;)
Страницы: 1
Читают тему
Наверх