在更改事件之前捕获多个单元格值

时间:2016-06-30 13:36:38

标签: excel vba

我在单元格(“F3:N3”)上有多个值,这些值根据用户输入(“E18”)而变化。我在更改前捕获值时遇到问题。我希望捕获发生在细胞上(“V8:AD8”) 以下是代码..

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = Range("E18").Address Then

    Application.EnableEvents = False

    Dim sOldValue As String, sNewValue As String
    sNewValue = Target.Value

    Application.Undo

    Dim rOld As Range
     rOld = Range("F3:N3").Value

    Target.Value = sNewValue

    Range("V8:AD8").Value = rOld.Value

    Application.EnableEvents = True

  End If

End Sub

0 个答案:

没有答案