Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / ошибка кода - некорректное завершение - не понимаю в чем дело / 23 сообщений из 23, страница 1 из 1
14.10.2010, 07:49
    #36898452
Nomad87
Nomad87
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ошибка кода - некорректное завершение - не понимаю в чем дело
Sub del()
Dim i As Double
i = 1
Do While (ActiveWorkbook.ActiveSheet.Range("G" & i).Value) <> "конец"
If (ActiveWorkbook.ActiveSheet.Range("G" & i).Value = "") Then
ActiveWorkbook.ActiveSheet.Rows(i).Delete Shift:=xlUp
Else: i = i + 1
End If
Loop
MsgBox ("ALLLL")
End Sub


хочу удалять пустые ячейки в столбце ... вылазит ошибка о некорректном завершении, если дебажить то работает дальше нормально и не вылетает ...но только в режиме дебага, если запускать норм скрипт то опять начинает вылетать...подскажите пожалуйста
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.10.2010, 08:02
    #36898462
sergeyvg
sergeyvg
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ошибка кода - некорректное завершение - не понимаю в чем дело
можно попробовать так подправить код
Код: plaintext
1.
2.
3.
ActiveWorkbook.ActiveSheet.Rows(i).Delete Shift:=xlUp
DoEvents
Else: i = i +  1
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.10.2010, 08:23
    #36898472
ПЕНСИОНЕРКА
ПЕНСИОНЕРКА
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ошибка кода - некорректное завершение - не понимаю в чем дело
Nomad87,

или удаляй с хвоста

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Sub del()
Dim i As Double
i =  999 
Do While i> 0 
If (ActiveWorkbook.ActiveSheet.Range("G" & i).Value = "") Then
ActiveWorkbook.ActiveSheet.Rows(i).Delete Shift:=xlUp

End If
 i = i -  1 

Loop
MsgBox ("ALLLL")
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.10.2010, 10:17
    #36898630
Nomad87
Nomad87
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ошибка кода - некорректное завершение - не понимаю в чем дело
это увы не помогает
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.10.2010, 10:41
    #36898700
ПЕНСИОНЕРКА
ПЕНСИОНЕРКА
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ошибка кода - некорректное завершение - не понимаю в чем дело
Nomad87,

дополнительно
-выделить лист
-формат,формат яч, выравнивание,объединение яч-снять галку

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
Sub mdel()
Dim i As Double
i =  999 
Application.ScreenUpdating = False

Do While i >  0 
If (ActiveWorkbook.ActiveSheet.Range("G" & i).Value = "") Then
ActiveWorkbook.ActiveSheet.Rows(i).Delete Shift:=xlUp

End If
Debug.Print i;
 i = i -  1 

Loop
Application.ScreenUpdating = True

MsgBox ("ALLLL")
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.10.2010, 10:46
    #36898715
Nomad87
Nomad87
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ошибка кода - некорректное завершение - не понимаю в чем дело
Code execution has been interrupted
ни больше ни меньше ... вроде все сделал что вы сказали
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.10.2010, 10:49
    #36898719
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ошибка кода - некорректное завершение - не понимаю в чем дело
Nomad87,

А можно файл с кодом и тестовыми данными - погонять?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.10.2010, 10:54
    #36898736
Nomad87
Nomad87
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ошибка кода - некорректное завершение - не понимаю в чем дело
вот текст который я использую

Sub del1()
Dim i As Double
i = 16000 - эта цифра моя
Do While i > 0
If (ActiveWorkbook.ActiveSheet.Range("G" & i).Value = "") Then
ActiveWorkbook.ActiveSheet.Rows(i).Delete Shift:=xlUp
DoEvents
Else: i = i - 1
End If
Loop
MsgBox ("ALLLL")
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.10.2010, 10:59
    #36898748
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ошибка кода - некорректное завершение - не понимаю в чем дело
а в чем смысл цикла?
ячейка G16000 всегда равна "", соответственно, цикл бесконечен.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.10.2010, 11:01
    #36898757
ПЕНСИОНЕРКА
ПЕНСИОНЕРКА
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ошибка кода - некорректное завершение - не понимаю в чем дело
Shocker.Pro,

если в вашем коде то после
ActiveWorkbook.ActiveSheet.Rows(i).Delete Shift:=xlUp
вставьте i=i-1
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.10.2010, 11:04
    #36898770
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ошибка кода - некорректное завершение - не понимаю в чем дело
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
 Sub del1()
Dim i As Double
i =  16000  ' эта цифра моя
Do While i >  0 
  If (ActiveWorkbook.ActiveSheet.Range("G" & i).Value = "") Then
    ActiveWorkbook.ActiveSheet.Rows(i).Delete Shift:=xlUp
    DoEvents
  End If
  i = i -  1 
Loop
MsgBox ("ALLLL")
End Sub
в таком виде не зацикливается, соответственно просто удаляет 16 тыс строк
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.10.2010, 11:05
    #36898772
ПЕНСИОНЕРКА
ПЕНСИОНЕРКА
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ошибка кода - некорректное завершение - не понимаю в чем дело
Shocker.Pro,

и doEvent не нужен

а в предлагаемой mdel забликировано обновление листа, что заметно ускоряет выполнение
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.10.2010, 11:08
    #36898784
ПЕНСИОНЕРКА
ПЕНСИОНЕРКА
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ошибка кода - некорректное завершение - не понимаю в чем дело
Shocker.Pro,

на моем примере удаляются строки с пустой ячейкой в столбце G -все корректно
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.10.2010, 11:08
    #36898786
Nomad87
Nomad87
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ошибка кода - некорректное завершение - не понимаю в чем дело
G16000 потому что у меня 16000 ячеек интервал с 16000 -я ячейка последняя заполненная.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.10.2010, 11:10
    #36898789
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ошибка кода - некорректное завершение - не понимаю в чем дело
ПЕНСИОНЕРКАна моем примере удаляются строки с пустой ячейкой в столбце G -все корректно
В примере автора столбец G пустой на всем протяжении
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.10.2010, 11:11
    #36898792
ПЕНСИОНЕРКА
ПЕНСИОНЕРКА
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ошибка кода - некорректное завершение - не понимаю в чем дело
Nomad87,

а что у вас в столбце G
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.10.2010, 11:15
    #36898813
ПЕНСИОНЕРКА
ПЕНСИОНЕРКА
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ошибка кода - некорректное завершение - не понимаю в чем дело
Nomad87,
тогда и условие другое

Код: plaintext
1.
2.
3.
4.
If (ActiveWorkbook.ActiveSheet.Range("A" & i).Value = "")  _
 and (ActiveWorkbook.ActiveSheet.Range("B" & i).Value = "") Then
   ActiveWorkbook.ActiveSheet.Rows(i).Delete Shift:=xlUp

End If
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.10.2010, 11:16
    #36898817
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ошибка кода - некорректное завершение - не понимаю в чем дело
Nomad87с 16000 -я ячейка последняя заполненная.
Вообще, при таком объеме данных для ускорения процесса лучше удалять не по одной строке, а сначала применить сортировку по столбцу G, удалить диапазон и вернуть сортировку обратно.

Ну если задача одноразовая - то неважно.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.10.2010, 11:21
    #36898836
ПЕНСИОНЕРКА
ПЕНСИОНЕРКА
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ошибка кода - некорректное завершение - не понимаю в чем дело
Shocker.Pro,

и в этом варианте секудда
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.10.2010, 11:24
    #36898844
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ошибка кода - некорректное завершение - не понимаю в чем дело
ПЕНСИОНЕРКАи в этом варианте секудда
это если удаляется 300 строк, как в тестовом файле
Если удаляться будет тыщ 10, времени займет заметно больше.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.10.2010, 11:27
    #36898850
Nomad87
Nomad87
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ошибка кода - некорректное завершение - не понимаю в чем дело
я понял свою ошибку .... это видимо просто заработался ... две суток подряд дали о себе знать
этож надо было не догадаться по поводу того что все решается простейшей сортировкой...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.10.2010, 11:31
    #36898866
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ошибка кода - некорректное завершение - не понимаю в чем дело
Nomad87,
А, ну то бишь, если задача одноразовая - макрос не нужен вообще
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.10.2010, 11:31
    #36898869
sergeyvg
sergeyvg
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ошибка кода - некорректное завершение - не понимаю в чем дело
можно кардинально попробовать, в одну строчку:)
Код: plaintext
1.
  Range("G1:G16000").SpecialCells(xlCellTypeBlanks).EntireRow.Delete Shift:=xlUp
но похоже проблема в самой книге зарыта, надо ее на пустой книге пересоздать, но не копированием листов, а только данных и форматов
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / ошибка кода - некорректное завершение - не понимаю в чем дело / 23 сообщений из 23, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]