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

[Hugo121]

Если высылать клиенту - то с макросами могут быть проблемы. Не всюду они разрешены политикой фирмы.
Всё же тут думаю нужно делать формулами - на 1000 строк ещё реально сделать.
Но в формулах я пас.
Если Вы хотите получить решение, а не беседу на тему - думаю пора Вам показать файл. Что есть и что нужно получить.

[TorLink]

Во вложении, xls не кушает, положил в рар.
Шаблон примерный... ещё буду корректировать... лишнюю инфу удалил... там где большая ячейка во второй колонке будет картинка.
Что нужно получить описал выше.
Не представляю как это сделать формулами если нужно событие... еслиб количество строк было одинаковым на обоих страницах, другое дела а так...
Если у клиентов будут проблемы с макросами думаю это их проблемы... да и вряд ли.. т.к. это в основном магазины а не крупные компании с политикой безопасности...

[Hugo121]

Например так - код в модуль листа "Сумма заказа":

Private Sub Worksheet_Activate()
    Dim a(), i&, ii&
    Cells.Clear
    a = Sheets("Лист заказа").UsedRange.Columns(1).Resize(, 5).Value
    ReDim b(1 To UBound(a), 1 To 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
                    ii = ii + 1
                    b(ii, 1) = a(i, 1)
                    b(ii, 2) = a(i, 1) * a(i, 5)
                End If
            End If
        End If
    Next
    [a1].Resize(ii, 2) = b
End Sub

Проставляет количества и суммы - так нагляднее для проверки работы. Потом можно количества убрать - думаю в коде всё понятно, что где происходит

Можно для скорости очистку листа вынести на другое событие (это если данных тысячи):

Private Sub Worksheet_Deactivate()
    Cells.Clear
End Sub

[Djeki]

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

    a = Sheets("Лист заказа").UsedRange.Columns(1).Resize(, 5).Value

Как перевести на человеческий язык эту строку кода :
Копируем в переменную: с такого то листа, пользовательский диапазон (UsedRange) , начиная с первого столбца UsedRange , количество столбцов = 5 ??
Правильно я понимаю ??
Спасибо за ответ..

[Hugo121]

a = Sheets("Лист заказа").UsedRange.Columns(1).Resize(, 5).Value

берём в массив a() данные использованной области листа "Лист заказа" от первого столбца этой области и на 5 столбцов правее (возможный мусор правее нам совершенно не нужен).
Для проверки можно на "Лист заказа" выполнить такой код:

Sheets("Лист заказа").UsedRange.Columns(1).Resize(, 5).select

[EducatedFool]

Как перевести на человеческий язык эту строку кода

1) берем лист с именем «Лист заказа»
2) на этом листе берем все используемые ячейки
3) из этих заполненных ячеек берем 1-й столбец
4) расширяем этот первый столбец вправо до 5 столбцов
5) считываем значения массива ячеек, и помещаем в переменную a

опоздал с ответом)

[Hugo121]

Зато красиво ответил

[Djeki]

Разобрался . Спасибо всем ответившим..

[TorLink]

Кул, вроде пашет. Спс.
Ещё вопрос, я так понял с каждым нажатием лист очищается(Cells.Clear), а как сделать статичкую шапку чтобы верхняя строчка не удалялась, или просто каждый раз добавлять её программно? Нормально настроить отображение шапки по ширине и стилю возможно?

[Hugo121]

Шапку можно не трогать так:

Sub test()
ActiveSheet.UsedRange.Offset(1).Clear
End Sub

Так область очистки сдвигается на строку вниз.
Если лист будет заполнен полностью - будет ошибка. Обойдём:

Sub test2()
With ActiveSheet.UsedRange
.Resize(.Rows.Count - 1).Offset(1).Clear
End With
End Sub

Ну а внешний вид проще заранее настроить вручную.
Но можно и кодом - запишите рекордером настройку вручную - получите код