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

[valerij]

Мой первый макрос, без всяких подсказок, независимый ввод данных в Н1 и В1, для всей книги.
Пожалуйста, Ваше мнение!
Какие ошибки я допустил, вообщем ......?

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Excel.Range)
With Application
    .ScreenUpdating = False
    .EnableEvents = False
        Range("H1").Select
a = ActiveCell.Value
        Range("B1").Select
b = ActiveCell.Value
        Sum = a + b
        Range("A1").Value = Sum
        Range("A1").Activate ' Не совсем понимаю этот пункт, без него тоже работает
        Range("H1").Select
    .EnableEvents = True
    .ScreenUpdating = True
    End With
End Sub

[valerij]

Мужики, ну че Вы молчите!
Самому прилежному ученику........, учителя, молчат!!

[SAS888]

Если я правильно понял, то нужно чтобы происходило суммирование ячеек "B1" и "H1", при изменении значения любой ячейки.
Можно чуть проще:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Excel.Range)

    Application.EnableEvents = False
    Range("A1") = Range("H1") + Range("B1")
    Application.EnableEvents = True
        
End Sub

Но зачем эту процедуру выполнять, если значения влияющих на результат ячеек не меняется? Рациональнее проводить какие-либо операции при изменении именно этих ячеек. Например, так:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Excel.Range)

    If Target.Address = Range("B1").Address Or Target.Address = Range("H1").Address Then _
    Range("A1") = Range("H1") + Range("B1")
        
End Sub

Отключение обработки событий не отключаем, т.к. не трогаем ячейки, вызывающие событие.
На будущее: По-возможности не используйте методы Select и Activate - это тормозит. А также при использовании переменных (констант) - присвойте тип этих переменных. Это тоже экономит и время и память.

[VictorM]

Range("A1").Activate ' Не совсем понимаю этот пункт, без него тоже работает

Ячейка А1.Активировать. В данном случае строка не нужна, если только не для того, чтобы специально обратить на ячейку внимание.
А для чего он предназначен, это макрос?
Что будет делать в "реальных условиях"?

[valerij]

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

Если я правильно понял, то нужно чтобы происходило суммирование ячеек "B1" и "H1", при изменении значения любой ячейки.

Так точно

Можно чуть проще:.

Понял!

Но зачем эту процедуру выполнять, если значения влияющих на результат ячеек не меняется?

В "B1" и "H1" значение меняется

А также при использовании переменных (констант) - присвойте тип этих переменных. Это тоже экономит и время и память.

Я думал, что Dim, используется только для массивов или это не ТО!

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

А для чего он предназначен, это макрос?.

Да, просто учусь.

[SAS888]

В "B1" и "H1" значение меняется

Про это я и говорю. Мой второй макрос выполняет сложение только тогда, когда меняется значение именно в одной из этих ячеек (а не других).

Я думал, что Dim, используется только для массивов

Как раз для массивов можно (но не нужно) не использовать описание, т.к. по умолчанию - тип Variant.

[valerij]

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

Про это я и говорю.

А про Dim?

[SAS888]

Посмотрите примеры различных макросов на нашем форуме и обратите внимание на описание типов. Думаю, все будет понятно.

Кстати, в нашем примере возможно возникновение ошибки при попытке сложения несовместимых типов значений. Это можно контролировать макросом.

[IgorGO]

Ошибка №1 - не стоило начинать писать макросы))

с точки зрение упростить немного строк, не меняя сути я бы сделал так:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Excel.Range)   
With Application   
    .ScreenUpdating = False   
    .EnableEvents = False   
        a = Range("H1").Value   
        b = Range("B1").Value   
        Sum = a + b   
        Range("A1").Value = Sum   
        'Range("A1").Activate ' Не совсем понимаю этот пункт, без него тоже работает   
        Range("H1").Select   
    .EnableEvents = True   
    .ScreenUpdating = True   
    End With   
End Sub

это чтобы не менять сути происходящего.

Activate действительно можно закоментировать, а то и выбросить совсем из кода. А последний Select, который Range("H1").Select, может есть смысл заменить на Target.Select?
Меня бы, как пользователя, могло озадачить почему курсор с отмеченой мною ячейки улетел на Н1, тем более, что запрещено обновление экрана, и все приведенные здесь манипуляции могли происходить вообще не в зоне видимости, но если в этом перемещении есть смысл, то конечно, после выполнения макроса, оставлять отмеченной Н1, а не Target.

на первую фразу можно не обращать внимания.

[valerij]

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

и обратите внимание на описание типов.

SAS888
Я имел ввиду "описание типов", Dim и As это разные вещи?