rdva » 16.01.2007 (Вт) 20:54
Sub Brand()
rwIndex = 7
With Worksheets("(1) Каталог НАШИ").Cells(rwIndex, "B")
Do While .Value > 0
If Range("C" & rwIndex & ":" & "I" & rwIndex) = 0 Then
MsgBox ("Brand!")
rwIndex = rwIndex + 1
End If
Loop
End With
End Sub
Genyaa » 16.01.2007 (Вт) 21:08
bi-lya » 17.01.2007 (Ср) 6:00
Чудовище под кроватью » 17.01.2007 (Ср) 7:32
'при таком цикле rwIndex будет меняться от 7 до номера строки
'последней НЕпустой ячейки столбца В
For rwIndex=7 To Worksheets(твой_лист).Range("B65535").End(xlUp).Row
...
Next rwIndex'при таком цикле rwIndex будет меняться от 7 до номера последней
'строки использованного на листе пространства.
For rwIndex=7 To Worksheets(твой_лист).UsedRange.Rows.Count
...
Next rwIndexIf Range("C" & rwIndex & ":" & "I" & rwIndex) = 0 Then
If Application.WorksheetFunction.Sum(Range(Cells(rwIndex,3),Cells(rwIndex,9))) = 0 Then, но тогда будет потеря по быстродействию из-за трех(!) операций конкатенации на каждом шаге.Range("C" & rwIndex & ":" & "I" & rwIndex)
If Application.WorksheetFunction.CountA(Range(Cells(rwIndex,3),Cells(rwIndex,9))) = 0 Then
Dim rwIndex As Long rdva » 17.01.2007 (Ср) 12:32
Чудовище под кроватью » 17.01.2007 (Ср) 13:04
).
bi-lya » 17.01.2007 (Ср) 14:01
Public Sub Nechto()
a = 1
With ActiveWorkbook.ActiveSheet
Do While IsEmpty(.Cells(a, 2)) = False
For b = 3 To 10
If IsEmpty(.Cells(a, b)) = False Then
Exit For
End If
If b = 10 Then Cells(a, 1).Value = .Cells(a, 2).Value
Next b
a = a + 1
Loop
End With
End Sub
Чудовище под кроватью » 17.01.2007 (Ср) 14:10
bi-lya писал(а):Может быть так?
.
Sub SmplFil()
'пишем в ячейку А7 формулу
Cells(7, 1).FormulaR1C1 = _
"=IF(AND(NOT(ISBLANK(RC[1])),COUNTA(RC[2]:RC[8])=0),RC[1],"""")"
'заполняем этой формулой все ячейки в столбце А в используемом диапазоне
Range(Cells(7, 1), Cells(Cells(7, 2).End(xlDown).Row, 1)).FillDown
End Sub bi-lya » 17.01.2007 (Ср) 14:20
Public Sub Nechto1()
a = 1
b = 3
With ActiveWorkbook.ActiveSheet
Do While IsEmpty(.Cells(a, 2).Value) = False
Do While IsEmpty(.Cells(a, b).Value) = True
b = b + 1
If b = 10 Then
.Cells(a, 1).Value = .Cells(a, 2).Value
Exit Do
End If
Loop
b = 3
a = a + 1
Loop
End With
End Sub
Чудовище под кроватью » 17.01.2007 (Ср) 14:36
bi-lya писал(а):Товарисч проверь, все работает и там и там!!! (Сделал ровно 1000 строк - обработка чуть меньше 1c (тоже замерил!!!)
А про велосипед полностью согласен!
bi-lya » 17.01.2007 (Ср) 14:43
- Код: Выделить всё
Sub SmplFil()
'пишем в ячейку А7 формулу
Cells(7, 1).FormulaR1C1 = _
"=IF(AND(NOT(ISBLANK(RC[1])),COUNTA(RC[2]:RC[8])=0),RC[1],"""")"
'заполняем этой формулой все ячейки в столбце А в используемом диапазоне
Range(Cells(7, 1), Cells(Cells(7, 2).End(xlDown).Row, 1)).FillDown
End Sub
- скрипт в два действия. Без циклов.
rdva » 17.01.2007 (Ср) 14:44
With Worksheets("mybook.xls")
.Cells(a, 1).Value = .Cells(a, 2).Value
End With
Чудовище под кроватью » 17.01.2007 (Ср) 14:51
bi-lya писал(а):Уважаемый, а на тысячу строк запускали? И с изменяемым диапазоном? Я угасаю
Чудовище под кроватью » 17.01.2007 (Ср) 14:58
rdva писал(а):Чудовище под кроватью
Как реализовать проверку
если в ячейке текст жирныйм шрифтом, то...
?
If Cells(1,1).font.bold Then bi-lya » 17.01.2007 (Ср) 14:59
Public Sub Nechto1()
a = 1
b = 3
With ActiveWorkbook.ActiveSheet
Do While IsEmpty(.Cells(a, 2).Value) = False
Do While IsEmpty(.Cells(a, b).Value) = True
b = b + 1
If b = 10 Then
.Cells(a, 1).Value = .Cells(a, 2).Value
Exit Do
End If
Loop
b = 3
a = a + 1
if a=65537 then exit do
Loop
End With
End Sub
bi-lya » 17.01.2007 (Ср) 15:27
.Cells(a, 1).Value = .Cells(a, 2).Value
If .Cells(a, 2).Font.Bold = True Then .Cells(a, 1).Value = .Cells(a, 2).Value
Чудовище под кроватью » 17.01.2007 (Ср) 15:41
bi-lya писал(а):Так а каким образом Вы его запускали на 65537 строк?
Вы меня и заставляете заниматься хренью нездоровой
вот Вам код с обработкой "Ошибки 65537"
Public Sub Nechto1()
a = 1
b = 3
With ActiveWorkbook.ActiveSheet
Do While IsEmpty(.Cells(a, 2).Value) = False
Do While IsEmpty(.Cells(a, b).Value) = True
b = b + 1
If b = 10 Then Exit Do
Loop
If b < 10 Then .Cells(a, 1).Value = .Cells(a, 2).Value
b = 3
a = a + 1
if a=65537 then exit do
Loop
End With
End Sub
Sub smpl()
Dim Cell As Range
Application.ScreenUpdating = False
For Each Cell In Range(Cells(7, 1), Cells(Cells(7, 2).End(xlDown).Row, 1))
With Cell
If Not (IsEmpty(.Offset(0, 1))) And WorksheetFunction.CountA _
(Range(.Offset(0, 2), .Offset(0, 
)) = 0 Then Cell = .Offset(0, 1)
End With
Next Cell
Application.ScreenUpdating = True
End SubВсе, флейм завязал
bi-lya » 17.01.2007 (Ср) 15:59
Чудовище под кроватью » 17.01.2007 (Ср) 16:08
KL » 17.01.2007 (Ср) 16:26
bi-lya писал(а):А Вы свой код на работоспособность проверяли? Он не решает поставленную задачу
1. Работает наоборот
2. Не выполняется условие автора вопроса "... (Пока не попадется пустая Bx ячейка)..."
И вообще - на кой тянуть все ячейки в столбце, если заполненных 10 штук? О какой тут можно говорить оптимизации? Здесь никакой ScreenUpdating не спасет...
bi-lya » 17.01.2007 (Ср) 17:10
Чудовище под кроватью » 17.01.2007 (Ср) 20:05
KL писал(а):Вы извините что я влезаю, но если заполненных ячеек 10 штук (ну или менее 16.384 штук) то по-моему:
2) усл. форматирование "Чудовища под кроватью" для 30000 строк - умеренное, но тоже извращение из-за его летучести (будет постоянно по делу и без дела пересчитывать дикое кол-во формул)
Application.Volatile3) самое быстрое решение - через SpecialCells, но есть ограничение в 8.192 несмежных области (т.е. без риска 16.383 ячейки)
4) самое оптимальное решение - Range.Find + цикл
Чудовище под кроватью » 17.01.2007 (Ср) 20:23
bi-lya писал(а):KL
Так же (заострю Ваше внимание) в моем коде при определенных условиях цикл прекращается.
KL » 17.01.2007 (Ср) 22:00
bi-lya писал(а):Что есть функция Find
К сож. нет времени писать код, но по-моему я здесь что-то подобное публиковал - попробуй поиск по Find и KL.bi-lya писал(а):Если можете, приведите ее код,
bi-lya писал(а):не думаю что в Ехселе проводится индексация и последующая работа только с задействованными ячейками.
да, но это лишь частный случай и при условии что в данных нет пробелов.bi-lya писал(а):Так же (заострю Ваше внимание) в моем коде при определенных условиях цикл прекращается.
этого само собойbi-lya писал(а):Может, все-таки не такой уж я извращенец?!
при условии что в данных нет пробелов и они начинаются с первой строки и нет других условий.bi-lya писал(а):По-моему, лишнего мой код не делает
KL » 17.01.2007 (Ср) 23:26
Чудовище под кроватью писал(а):Там нет условного форматирования. Макрос заполнит столбец А в используемом диапазоне формулами.
Чудовище под кроватью писал(а):Если напрягает пересчет
Чудовище под кроватью писал(а):3) самое быстрое решение - через SpecialCells, но есть ограничение в 8.192 несмежных области (т.е. без риска 16.383 ячейки)
4) самое оптимальное решение - Range.Find + цикл
Полный код процедуры в студию.
bi-lya » 18.01.2007 (Чт) 4:50
Чудовище под кроватью » 18.01.2007 (Чт) 7:03
bi-lya писал(а):Уважаемые, мне дико стыдно, но пока не могу сообразить, что задать в качестве What для метода Find
bi-lya » 18.01.2007 (Чт) 9:30
Чудовище под кроватью » 18.01.2007 (Чт) 10:17
bi-lya писал(а):В What я хочу зарядить ИЛИ является ли Range пустым диапазоном, ИЛИ есть ли в нем какие-либо данные (числовые, строковые - короче, любые).
If Not Range("A1:D20").Find(Empty, lookin:=xlValues) is Nothing Then KL » 18.01.2007 (Чт) 10:54
Чудовище под кроватью писал(а):Аналогично можно вместо Find использовать SpecialCells (дает диапазон всех ячеек определенного типа) с параметром xlTypeBlanks.
Но зачем использовать методы? Определить ближайшую пустую ячейку можно просто обратившись к свойству .End объекта Range.
Сейчас этот форум просматривают: Google-бот и гости: 80