Версия для печати темы Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Программирование, связанное с MS Office > VBA в excel

Автор: Гость_Greg 15.3.2005, 19:09

Сделал цикл перебирающий ячейки ... когда запускаю модуль excel визуально повторяет движения цикла ... смотрится фигово... не подскажете как это можно подлечить??? плз...

Автор: Akina 15.3.2005, 19:25

Слишком мало информации, а все телепаты в отпуске... Подробнее. С кодом. И зарегистрись, что ли...

Автор: Staruha 15.3.2005, 20:54

В смысле в какой-то ячейке происходит перебор ,пока до последнего не дойдет? Или на листе постепенно появляются записи?

Автор: Jureth 16.3.2005, 06:46

Если в коде есть Selection - убери их. PS: Я не телепат и тоже хотел бы посмотреть на код.

Автор: ~FoX~ 16.3.2005, 09:24

Код   Application.ScreenUpdating = False 'Запрещает показ Код   Application.ScreenUpdating = true 'Разрешает показ А вообще яснее надо мысли излогать.

Автор: GSP 16.3.2005, 15:12

Большое пасибо... вроде решил проблемку!

Автор: Staruha 16.3.2005, 21:54

Код Private Sub Обновить_Click() Dim i As Integer 'попробуй так Application.ScreenUpdating = False 'запрещает показ For i = 4 To 30 Sheets("Расчеты").Select Range("M" & i).Formula = Finance1 Range("L" & i).Formula = Finance2 Range("N" & i).Formula = test1 If Finance1 = 0 And Finance2 = 0 And test1 = 0 Then     'присвоение ячейке значения  "Запись внесена"     Sheets("Расчеты").Select     Range("N" & i).Select                  ' здесь ошибка     ActiveCell.FormulaR1C1 = "Запись внесена"         'Удаление соответствующих клиентов из бд              Sheets("Состояние задолжности").Select     Rows(i).Select     Selection.Delete Shift:=xlUp End If Next i End Sub

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)