Как это понять If Not Intersect

[valerij]

Как это выразить по русски?

If Not Intersect(Target, Sh.Range("B3:K1489")) Is Nothing Then Macro_Change Sh

[VictorM]

Если дословно, где-то так:
If Not Intersect - если не пересекается (не встречается)
(Target, Sh.Range("B3:K1489")) изменяемая ячейка в диапазоне
Is Nothing Then Macro_Change Sh - делать нечего, запускаем макрос

[valerij]

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

Если дословно, где-то так:
If Not Intersect - если не пересекается (не встречается)
(Target, Sh.Range("B3:K1489")) изменяемая ячейка в диапазоне
Is Nothing Then Macro_Change Sh - делать нечего, запускаем макрос

Да перевод, через переводчика, я знаю, только здесь он не катит.
Если не пересекается, кто, с чем, как, не пересекается для чего?
Меняю диапазон В3:В4 по барабану!(нет, не по барабану)
Может так мона сказать:
Если производится действия в диапазоне "......", то применить макрос с именм "....."

[VictorM]

здесь Target - ячейка, в которой произошло изменение

[IgorGO]

If Not Intersect(Target, Sh.Range("B3:K1489")) Is Nothing Then Macro_Change Sh

По приведенному фрагменту трудно сказать кто здесь изменяется, а кто нет, в свободном переводе здесь написано если у Target и Sh.Range("B3:K1489") нет общих ячеек необходимо выполнить макрос Macro_Change, параметром которому передается Sh.

[SAS888]

Как раз наоборот.
Дословно: "If Intersect(rang1, rang2) Is Nothing Then..." - это означает, что если нет общих ячеек (не пересекаются) у диапазонов rng1 и rng2, то выполнить то, что после Then. А в приведенном примере стоит "If Not Intersect...". Т.е. если пересечение диапазонов "НЕ НИЧЕГО" (есть общие ячейки), то выполнить Then...

[valerij]

SAS!!
Ни чего не понял.
Так в оригинале:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Excel.Range)
Select Case Sh.Index
Case 1 To 13
If Not Intersect(Target, Sh.Range("B3:K1489")) Is Nothing Then 'Macro_Change Sh

Это варажение "If Not Intersect...." очень часто встречаю, а смысла не пойму, почему, красным, и в первой строке объявляется?
Раньше, когда не применялся "'Macro_Change Sh", все равно это выражение было, но без синего.

Как это все, звучит в алгоритме?

[IgorGO]

с SAS888 трудно спорить. Особенно если я не прав. Пытался завести всех в заблуждение. У меня одно оправдание - это без злого умысла. Невнимательность...

[SAS888]

valerij. Смысл выражений If Intersect(rang1, rang2) Is Nothing Then... и If Not Intersect(rang1, rang2) Is Nothing Then... достаточно доходчиво объяснен в посте №6. Трудности понимания у Вас, похоже, в конструкции If...Then...
Так вот: возможно два варианта (не считая варианты с ElseIf и Else).
1) Если при выполнении условия требуется выполнить всего один оператор (действие), то все записываем в одну строку. Например:
If A >B Then Exit Sub ' (End If не требуется)
2) Если при выполнении условия требуется выполнить несколько операторов (действий), то конструкция такова:
If A > B Then
'Первое действие
...
...
'Последнее действие
End If

[valerij]

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

Трудности понимания у Вас, похоже, в конструкции If...Then...

SAS
Нет, эту конструкцию, я понимаю, беда в том, что, та, конструкция, отличается от If...Then, какие то пересечение, к чему?
Я меняю тот диапазон на "Е3:Е1489" и все работает, меняю на "B3:В4", то же все работает, кроме 'Macro_Change Sh, но если я в ручную поставлю в "Е3" значение, все работает.
Какой смысл в такой замысловатой записи, почему не If...Then
Почему, зачем этот Target в первой строке(ByVal Target)?