Мой первый макрос

[valerij]

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

лучше, т.к. позволяет изменять в контролируемом диапазоне несколько данных одновременно (копировать - вставить, или очистить).

САС !
Подкупает малый объем, отсутствие циклов.
Вообще удивлен, что в литературе, что на форумах, отсутствием темы ввода данных с клавы, где описание оператора "Input"?
Тот что я знаю, ВБА не принял? О метках, вообще, слова не встречал?
Вот пример, движения курсора, с вывода кода, нажатой клавиши.
VBA его принял, но это QBASIC, родитель, ......????
1 : D$ = INKEY$
IF D$ = "" THEN 1
IF D$ = CHR$(27) THEN END
IF LEN(D$) = 2 THEN D = ASC(RIGHT$(D$, 1)) ELSE 2
2 : PRINT D$;
GOTO 1

[SAS888]

Потому, что в VBA функция Input (number, [#]filenumber) - используется для работы с файлами. Считывает одну компоненту файла.
А функция InputBox (prompt[, title] [, default] [, xpos] [, ypos] [, helpfile, context]) - выводит окно с запросом на ввод значения с клавиатуры. Параметры такие же, как и у функции MsgBox.
P.S. Для уменьшения объема вопросов, пользуйтесь VBA Help (в VBE это "F1").

[valerij]

САС!
Спасибо, все работает, НО:
Я вообще теперь не знаю, какой и применять?
Да, там копировать, стирать, мона только две строчки, не совсем хорошо
А так мона все:

If Not Intersect(Target, Range("D3:D1477")) Is Nothing Then
        With Range(Target.Address)
            .Offset(, 2) = "=(RC[-4]+RC[-2])*RC[-1]" 'Это F = (D+B) * E
            .Offset(, 2).Value = .Offset(, 2).Value
        End With
    End If
If Not Intersect(Target, Range("B3:B1477")) Is Nothing Then
        With Range(Target.Address)
           .Offset(, 4) = "=(RC[-4]+RC[-2])*RC[-1]" 'Это F = (D+B) * E
           .Offset(, 4).Value = .Offset(, 4).Value
        End With
    End If

Без формул, я смотрю, не обойтись, как сложить(в Вашем решении):
F38 = СУММ(F3:F37) ?

САС, Ваше мнение 1, 2 или 3 макрос??
Забыл, к вашему решению + цикл, но почему формула "=SUM(R[-35]C:R[-1]C)", охватывает столбец "I" ? Я намеренно, обхожу его("B3:H37", "J3:K37"), а то он там, все № накладных слаживает!

For iCount& = 0 To 30
                If Not Intersect(Target, .Cells) Is Nothing Then
                  With Sh.Range("E38:H38", "J38:K38").Offset(iCount& * 48)
                        .Value = "=SUM(R[-35]C:R[-1]C)"
                            ' .Value = .Value
                  End With
                End If
  Next

[SAS888]

1) Попробуйте разные варианты (макросы, формулы). Как Вам больше подходит, так и лучше.
2) Строка кода

Range("E38:H38", "J38:K38")

будет ссылаться на диапазон "E38:K38" (см. Help, св-ва Range). Чтобы исключить ячейку столбца "I", можно, например, использовать

Union([E38:H38], [J38:K38])

[valerij]

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

Как Вам больше подходит, так и лучше.

Как это определить? Как замерить, скорость макросов, а потом сравнить?

2) Чтобы исключить ячейку столбца "I", можно, например, использовать

Union([E38:H38], [J38:K38])

У мея не получилось, ни как:
Range([E38:H38], [J38:K38])
Range(Union([E38:H38], [J38:K38]))
Я не понимаю по английски, а то как в Help-е, так проще разделить диапазоны

[SAS888]

1) Метод Union можно применять только на активном листе.
Для любого листа можно так:

Sh.Range("E38:H38, J38:K38")

Обратите внимание на расстановку кавычек.
2) Время выполнения макроса можно замерить, например, так:

Sub TimeMacro()
    iTimer! = Timer
    
    'Здесь должен быть код Вашей программы.
    
    MsgBox "Время выполнения макроса составило " & _
    Timer - iTimer! & " сек.", vbExclamation, ""
    
End Sub

[valerij]

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

1) Метод Union можно применять только на активном листе.
Время выполнения макроса можно замерить

SAS!!
Спасибо, пошел делать уроки!

[valerij]

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

Реализовать требуемые Вами формулы, при изменении ячеек любого из диапазонов с помощью метода Offset можно так:

If Not Intersect(Target, Range("D3:D1477")) Is Nothing Then
        With Range(Target.Address)
            .Offset(, 2) = (.Offset + .Offset(, -2)) * .Offset(, 1)  'Это F = (D+B) * E
           fSum = fSum + .Offset(, 2)
            .Offset(, 4) = (.Offset + .Offset(, -2)) * .Offset(, 3)     'Это H = (D+B) * G
        End With
    End If

SAS!
А почему нет накоплений в fSum ?

[SAS888]

А где цикл? Приведенный фрагмент кода присвоит переменной fSum значение ячейки Range(Target.Address).Offset(, 2) плюс то, что перед этим содержала переменная fSum.

[valerij]

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

А где цикл? Приведенный фрагмент кода присвоит переменной fSum значение ячейки Range(Target.Address).Offset(, 2) плюс то, что перед этим содержала переменная fSum.

Первый ввод в Д3=100, fSum = 204
Второй ввод в Д4 =100, а fSum = 139, а не 204+139 ?