Как присвоить значение ячейке в зависимости от значения из другой ячейки? - PullRequest
0 голосов
/ 14 июня 2019

enter image description here Я хочу, чтобы значение из столбца M было установлено в зависимости от значения из столбца L и сравнения его со значением из столбца K. Любая помощь будет отличной

Я пытался использовать метод смещения, но ничего не происходит

If Intersect(Target, Columns("L")) Is Nothing Then Exit Sub
    For Each cl1 In Intersect(Target, Columns("L")) 


        If cl1 <= cl1.Offset(0, -1).Value Then

            cl1.Offset(0, 1).Value = cl1.Offset(0, -2).Value * cl1 * Sheet1.Range("M7").Value

        Else

            cl.Offset(0, 1).Value = "Text"

        End If
    Next

1 Ответ

0 голосов
/ 14 июня 2019

Это будет работать:

Private Sub Worksheet_Change(ByVal Target As Range)


If Target.Column = 12 Then

    For Each cl1 In Intersect(Target, Columns("L"))


        If cl1.Value <= cl1.Offset(0, -1).Value Then

            cl1.Offset(0, 1).Value = cl1.Offset(0, -2).Value * cl1.Value * Range("M7").Value

        Else

            cl1.Offset(0, 1).Value = "Text"

        End If
    Next

End If


End Sub

Убедитесь, что ваш код вставлен в лист, с которым вы работаете.


Like This

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...