Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2013.06.16;
Скачать: CL | DM;

Вниз

удалить строки содержащие определенные ячейки   Найти похожие ветки 

 
123456789igor ©   (2012-11-10 00:15) [0]

Необходимо удалить строки содержащие определенные ячейки, допустим ячейку со словом "ололо"
Вот код(ищу с 6ой до конца)
z_:=Excel.WorkBooks[1].WorkSheets["Ñóì âûáðîñû"].UsedRange.Rows.Count;
for a_:=6 to z_ do
     begin
     if VarToStr(Excel.cells[a_,1]) = "ололо" then
     begin
     Excel.ActiveSheet.Rows[a_].Select;
     Excel.Selection.Delete;
     end
     else
     break;
     end;

компилется но ничего не происходит. Думаю с условием проблемы. Смотрел макрос
Sub Del_Itogo()
Dim iLastRow As Long
iLastRow = Cells(Rows.Count, 1).End(xlUp).Row
For i = iLastRow To 2 step -1
If Cells(i, 2) Like "*" & "ололо" & "*" Then Rows(i).Delete
Next
End Sub


 
kilkennycat ©   (2012-11-10 02:21) [1]

1. проверить, чему равно z_ (возможно, цикл даже одной итерации не выполняет)
2. проверить, выполняется ли условие if VarToStr(Excel.cells[a_,1]) = "ололо" (посмотреть, что выдает VarToStr(Excel.cells[a_,1]))



Страницы: 1 вся ветка

Текущий архив: 2013.06.16;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.007 c
15-1360355402
Юрий
2013-02-09 00:30
2013.06.16
С днем рождения ! 9 февраля 2013 суббота


15-1360701005
Юрий
2013-02-13 00:30
2013.06.16
С днем рождения ! 13 февраля 2013 среда


15-1360176424
alexdn
2013-02-06 22:47
2013.06.16
FireMonkey к VCL


15-1360440178
Dennis I. Komarov
2013-02-10 00:02
2013.06.16
не могу подобрать слово


15-1358964370
Mozart
2013-01-23 22:06
2013.06.16
Вырезать из множества jpg кусок