|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
18.03.2010, 14:04 | #1 |
Пользователь
Регистрация: 28.08.2009
Сообщений: 34
|
ProgressBar
Добрый день! Будьту так любезны помогите Знаю что сейчас начнёте тыкать носом в поиск и всё прочее, но никак не получается приделать ProgressBar для этого макроса Не подскажите как можно приделать?
Или как вариант, как запукать ProgressBar во время выполнения каких либо пересчётов формул и выполнения любых макросов (чёто кажется что это не возможно). Private Sub Worksheet_Change(ByVal Target As Range) ' If Target.Count > 1 Then Exit Sub Dim i As Integer Dim cell As Range For Each cell In Target For i = 1 To 15 If cell = Sheets("периодика").Cells(i, 1) Then cell.Clear Exit For End If Next i Next cell End Sub P.S. Отдельная благодарность Dophin за код |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
ProgressBar | mish@ | Общие вопросы Delphi | 2 | 27.05.2009 16:56 |
ProgressBar | Simon..14 | Общие вопросы C/C++ | 10 | 24.01.2009 14:56 |
ProgressBar | Makarov | Компоненты Delphi | 3 | 04.02.2008 22:42 |
ProgressBar | Rahim1993 | Общие вопросы Delphi | 10 | 20.01.2008 21:28 |