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

[SAS888]

1) Условие в операторе If проверяется всегда. Тогда как в Select Case - по порядку, до первого True. Что гораздо быстрее. Да и запись короче.
2) Если необходимо, чтобы вызываемая процедура не изменяла переменные, полученные как аргументы, то нужно, чтобы аргументы передавались по значению, а не по ссылке. Для этого служит ключевое слово ByVal, добавляемое перед аргументом. Тогда вызываемая процедура будет управлять копией переданных данных, а не самими данными.

А Target - это адрес ячейки (диапазона), возвращаемый событием (в нашем случае - Worksheet_Change(ByVal Target As Range))

[valerij]

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

2) Если необходимо, чтобы вызываемая процедура не изменяла переменные, полученные как аргументы, то нужно, чтобы аргументы передавались по значению, а не по ссылке. Для этого служит ключевое слово ByVal, добавляемое перед аргументом. Тогда вызываемая процедура будет управлять копией переданных данных, а не самими данными.
А Target - это адрес ячейки (диапазона), возвращаемый событием (в нашем случае - Worksheet_Change(ByVal Target As Range))

SAS
Кое чего понял, но при написании макроса и этой строки, навряд ли человек использовал такую цитату.
Я хочу понять, как это говорится. Примерно так:
Если производится действия в диапазоне "......", то применить макрос с именм "....."
Вот Вы, пишите макрос, какие слова, Вы бы произнесли, прежде чем вставить эту строчку?(В Ваших м-сах, то же есть ~ такие строки)
If Not Intersect(Target, Sh.Range("B3:K1489")) Is Nothing Then Macro_Change Sh

[SAS888]

Если производится действия в диапазоне "......",

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

[valerij]

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

здесь ни при чем. ...

Ну SAS!!
Я уже не знаю как и сказать!! Ну пример:
a = Range("H1")
b = Range("B1")
Мы говорим, присвоить ~a и b, значение яч. .....
Теперь нам надо узнать какая из них больше числа 31
Мы автоматом говорим
Если "а" больше 31 то присвоить а=0
А тут чего сказать надо:
If Not Intersect(Target, Sh.Range("B3:K1489")) Is Nothing Then Macro_Change Sh
и дальше
If Not Intersect(Target, .Cells) Is Nothing Then

САС, это я пытаюсь переделать макрос в книге, где формулы, заменяются значениями и тут стал, перед этим If Not Intersect

[SAS888]

А я уже не знаю,что Вам не понятно.
Вот, например, для нашего случая, где Target - это одна ячейка, можно сказать так: если Target принадлежит диапазону Sh.Range("B3:K1489"), то выполнить то, что после Then.
При чем здесь сравнение a и b?

[valerij]

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

если Target принадлежит диапазону Sh.Range("B3:K1489"), то выполнить то, что после Then.

Теперь все стало на свое место.
САС, давайте продолжим, еще один вопросик, вот фрагмент
If Not Intersect(Target, Range("D3:D24")) Is Nothing Then
a = Target.Address
MsgBox a
b = Cell("a")
MsgBox b
End If
End Sub

Почему так ошибка?
Вроде все логично, в диапазоне "D3:D24" вводим чило, "а" -адрес ячейки, вставляем адрес в ячейку, должны получить, вводимое число.
Вроде удобно, не надо создавать цикл для диапазона "D3:D24"

[VictorM]

попробуйте так

'''
MsgBox a
b = Range(a)
MsgBox b
'''

а ошибка из-за того, что строку b = Cell("a") следовало бы написать так b = Cells(a)
но и в этом случае Вы получили бы ошибку №13 - "несоответствие типов", т.к.

Address - Адрес ячейки, в виде абсолютной ссылки (по умолчанию), т.е. $A$1
Cells - Возвращает ячейку, соответствующую конкретному адресу. Принимает один аргумент (номер ячейки), или два аргумента (номер строки и номер столбца)

[valerij]

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

попробуйте так

Да так я знаю, я не пойму почему, если мы просто в ячейку, любую, вставим "= $A$1", то все работает, а так
b = Cell("a")
или так
b = Cell(a)
ошибка, наверное, здесь нет такого соответствия.

[VictorM]

1.ошибка синтаксиса Cell - Cells
2.ошибка несоответствие типов