Обработчик события изменения в ячейке в Excel

[DiemonStar]

""

одна кавычка лишняя

[Hugo121]

Private Sub Worksheet_Activate()
    Dim a(), i&, ii&    'объявляем переменные
    Cells.Clear    'очистка
    a = Sheets("Лист заказа").UsedRange.Columns(1).Resize(, 5).Value    'заполняем массив из первых колонок , расширяем + 5 колонок

    ReDim b(1 To UBound(a), 1 To 2)    'объявляем массив по размеру a() в высоту, шириной 2 столбца

    For i = 1 To UBound(a)    'цикл с одного по количество элементов первого массива

        If Len(a(i, 1)) Then    'если есть значение (т.е. значение имеет длину) - откидываем пустые

            If IsNumeric(a(i, 1)) Then    ' проверка на числовое значение - откидываем нечисла

                If a(i, 1) > 0 Then    'проверяем на ноль - откидываем нули

'...

[a2].Resize(ii, 2) = b 'заполняем лист из массива - расширяем с A2 вниз на значение ii, вправо на 2 столбца

"Offset(1)" - это сдвиг на одну строку вниз. В данном случае всей полученной ресайзом области.

[Казанский]

       If Len(a(i, 1)) Then
            If IsNumeric(a(i, 1)) Then

можно заменить на

       If VarType(a(i, 1)) = vbDouble Then

При этом, конечно, потеряются числа, записанные как текст. Но зачем записывать числа как текст?

[TorLink]

Ага, он ругается если нет заполненных ячеек, то вылетает на строчке [a2].Resize(ii, 2) = b
сделал по аналогии:

If Len(b(1, 1)) Then
          [a2].Resize(ii, 2) = b
    End If

Норм?

[TorLink]

Сообщение от DiemonStar

одна кавычка лишняя

Просто копировал из 1С, яж как строку передаю в модуль.

[TorLink]

Сообщение от Казанский

Но зачем записывать числа как текст?

Ну так а если формат ячейки текст?

Ещё вопрос, а как поменять Листы местами?? Я программно добавляю лист, переименовываю их, а потом нужно поменять местами по порядку.

[TorLink]

Сообщение от Hugo121

[CODE]Private Sub Worksheet_Activate()
"Offset(1)" - это сдвиг на одну строку вниз. В данном случае всей полученной ресайзом области.

Всё равно не понятно, на что он ругается.

.Resize(.Rows.Count - 1).Offset(1).Clear

вылетает на этой строчке

Private Sub Worksheet_Deactivate()
   With Sheets("Сумма заказа").UsedRange
    .Resize(.Rows.Count - 1).Offset(1).Clear
    End With
End Sub

Пока сделал просто Cells.Clear, но надо исправить наверное)

[Hugo121]

"вылетает на строчке [a2].Resize(ii, 2) = b"
Да, это забыл.
Там нужно сперва проверить значение ii:


If ii > 0 Then [a2].Resize(ii, 2) = b

А что за If Len(b(1, 1)) Then ?



"ругается.
.Resize(.Rows.Count - 1).Offset(1).Clear
вылетает на этой строчке"

Ну только если
Sheets("Сумма заказа").UsedRange.Rows.Count < 2.
Т.е. если там только шапка. Да, это проблемка... Нужно сперва посчитать это UsedRange.Rows.Count - если 1, то ничего не чистим.

[TorLink]

Сообщение от Hugo121

"вылетает на строчке [a2].Resize(ii, 2) = b"
Да, это забыл.
Там нужно сперва проверить значение ii:

If ii > 0 Then [a2].Resize(ii, 2) = b

А что за If Len(b(1, 1)) Then ?

"ругается.
.Resize(.Rows.Count - 1).Offset(1).Clear
вылетает на этой строчке"

Ну только если
Sheets("Сумма заказа").UsedRange.Rows.Count < 2.
Т.е. если там только шапка. Да, это проблемка... Нужно сперва посчитать это UsedRange.Rows.Count - если 1, то ничего не чистим.

Ругалось видимо на b

If Len(b(1, 1)) Then

Это я так проверил, что b заполнено, после этого всё заработало...

Private Sub Worksheet_Deactivate()
If Sheets("Сумма заказа").UsedRange.Rows.Count >1 Then   
   With Sheets("Сумма заказа").UsedRange
    .Resize(.Rows.Count - 1).Offset(1).Clear
    End With
End If
End Sub

так?

Ещё можете прояснить, как воспринимается параметр ".Rows.Count - 1" ? без объекта перед точкой? Это стандатный синтаксис VBA?

И не ответили) :
"Ещё вопрос, а как поменять Листы местами?? Я программно добавляю лист, переименовываю их, а потом нужно поменять местами по порядку."