Модераторы: mihanik
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> VBA в excel, цикл перебирающий ячейки 
:(
    Опции темы
Гость_Greg
Дата 15.3.2005, 19:09 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered

Сделал цикл перебирающий ячейки ...

когда запускаю модуль excel визуально повторяет движения цикла ... смотрится фигово...

не подскажете как это можно подлечить??? плз...
  Вверх
Akina
Дата 15.3.2005, 19:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

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


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
Staruha
Дата 15.3.2005, 20:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1292
Регистрация: 1.2.2004
Где: Казань

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


--------------------
Возмездие настигнет
PM MAIL   Вверх
Jureth
Дата 16.3.2005, 06:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 74
Регистрация: 23.11.2004
Где: где-то в Западной Сибири

Репутация: 1
Всего: 3
Если в коде есть Selection - убери их.

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

Это сообщение отредактировал(а) Jureth - 16.3.2005, 06:51
PM   Вверх
~FoX~
Дата 16.3.2005, 09:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


НЕ рыжий!!!
****


Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 1
Всего: 68
Код

  Application.ScreenUpdating = False 'Запрещает показ


Код

  Application.ScreenUpdating = true 'Разрешает показ

А вообще яснее надо мысли излогать.


--------------------
user posted image
…множественность никогда не следует полагать без необходимости…
PM MAIL WWW ICQ Jabber   Вверх
GSP
Дата 16.3.2005, 15:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 1
Регистрация: 16.3.2005

Репутация: нет
Всего: нет
Большое пасибо... вроде решил проблемку! smile
PM MAIL   Вверх
Staruha
Дата 16.3.2005, 21:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1292
Регистрация: 1.2.2004
Где: Казань

Репутация: 13
Всего: 27

Код

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



--------------------
Возмездие настигнет
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Программирование, связанное с MS Office"
mihanik staruha

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами


  • Несанкционированная реклама на форуме запрещена
  • Пожалуйста, давайте своим темам осмысленный, информативный заголовок. Вопль "Помогите!" таковым не является.
  • Чем полнее и яснее Вы изложите проблему, тем быстрее мы её решим.
  • Оставляйте свои записи в "Книге отзывов о работе администрации"
  • А вот тут лежит FAQ нашего подраздела

Если Вам понравилась атмосфера форума, заходите к нам чаще!
С уважением mihanik и staruha.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Программирование, связанное с MS Office | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0529 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.