如何根据另一个单元格的值向单元格分配值?

时间:2019-06-14 16:00:44

标签: excel vba

enter image description here我希望根据L列中的值来设置M列中的值,并将其与K列中的值进行比较。任何帮助都很好

我尝试采用Offset方法,但没有任何反应

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 :(得分:0)

这将起作用:

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