обьект Target в событии Worksheet_Change

[_serj_]

Здравствуйте. Прошу вашего внимания.
Мне необходимо при изменении ячейки входящей в диапозон Ax:Dx програмно изменить ячейку Ex, где x номер одной сроки. Задачау я эту реализовал, но при изминеии ячейки идет пересчет всей книги, а книга с множеством ссылок и огромной структурой. Такая маленькая база массивом примерно 2500x45 на одном листе, и 7 листов ссылаются на этот массив. Одним словом куча вычислений. Почему присходит перерасчет. Как этого избежать. Надеюсь понятно написал. Заранее благодарю за ваше внимание. Спасибо

[Алексей++]

_serj_, код покажи, может где то рефреш делаешь

[_serj_]

Вот такой незамысловатый код получается:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value <> 0 Then Cells(Target.Row, 4).Value = "ОК"
End Sub
<!--Еще подскажите пожалуйста как в условии можно диапазон указать для этого объекта

[_serj_]

А еще если я вставляю диапазон из Буфера обмена выдает ошибку Type Mismatch, как справитсья с этой проблемой?

[HandKot]

Мне необходимо при изменении ячейки входящей в диапозон Ax:Dx програмно изменить ячейку Ex, где x номер одной сроки

Код:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim r As Range
    
    Set r = Range("$A:$D")  'устанавливаем диапозон для проверки столбцы  с A по D
        
    If Not (Intersect(r, Target) Is Nothing) Then
        Cells(Target.Row, 5).Value = "Ok"    'столбец Е имеет номер 5
    End If
End Sub

Почему присходит перерасчет. Как этого избежать

отключите автоматический перерасчет

[_serj_]

Огромнейшее вам спасибо, работает все как надо, как я и хотел. Перерасчет отключать не пришлось, работает быстро.

[_serj_]

Еще один вопрос. Каким способом можно проверить какой символ я вставляю в диапазон Ax:Dx, если Проверяю Target.Value то работает. Но мне необходимо вставлять скопированные такой же размерности диапазоны. Отладчик ругается на Target.Value сообщением Type Mismatch когда я вставляю диапазон из буфера

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim r As Range
  Set r = Range("$J:$N")
 
  If Target.Validation <> 1 Then
  If Not (Intersect(r, Target) Is Nothing) Then
    Cells(Target.Row, 15).Value = "ОК"
  End If
  End If
 
  If Target.Value = 1 Then
    If Not (Intersect(r, Target) Is Nothing) Then
    Cells(Target.Row, 15).Value = ""
  End If
  End If
End Sub

[HandKot]

Как Вам известно то ByVal Target As Range, у объекта типа Range нет св-ва Value поэтому и возникает ошибка
Если Вы вставляете несколько ячеек, то нужно просто пройтись по всем ячейкам range


а что Вы хотите сделать вот этим

Код:

If Target.Validation <> 1 Then
...
If Target.Value = 1 Then

?

[_serj_]

Вместо Validation стоит Value, синтаксическая ошибка.

[_serj_]

Ну вроде со всем разобрался. Спасибо всем огромное. Оправдали все ожидания

[HandKot]

позволю себе доработать код

Код:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim r As Range
    Dim c As Range
  
    'задаем диапозон отслеживания изменений
    Set r = Range("$J:$N")
  
    'если изменения произошлди в заданном диапозоне, то
    If Not (Intersect(r, Target) Is Nothing) Then
        'бежим по всем ячекам изменненого диапозона
        For Each c In Target.Cells
            If c.Value <> 1 Then
                Cells(c.Row, 15).Value = "Ok"
            Else
                Cells(c.Row, 15).Value = ""
            End If
        Next
    End If
End Sub

[_serj_]

Мои коды можно считать уродскими, я это понимаю. На VBA раньше программировать не приходилось, еще не притерся. А так код почти такой же получился, строчек на десять побольше ) Спасибо тебе HandKot