vba - Excel VBA复制粘贴问题

Question

我正在使用 Excel VBA 复制粘贴。单元格 R7 具有公式 =Max ("C77:AD81") .

R7 = 月最大值

F7 = 迄今为止的最高值

Q7 = 实现 F7 的日期

我想要实现的是如果 R7 > F7 ，将 R7 值复制到 F7 并将 Q7 更改为 = 今天。

我所实现的只是将 R7 更改为 ("C77:AD81") 的最大值，而其余代码不起作用。我的代码如下。

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim rng As Range, r As Range, rv As Long


    If Not Intersect(Target, Range("R7")) Is Nothing Then
        Set rng = Intersect(Target, Range("R7"))
        For Each r In rng
            'Change Best Peak Flow and Date Achieved
            Select Case r.Value
            Case Is > ("F7")
            Case Range("R7").Select
            Case Range("R7").Copy
            Case Range("F7").Select
            Case Range("F7").Paste
            Case ("R7") = ("F7")
            Case Range("Q5").Select
            Range("Q5") = Today()
            Application.CutCopyMode = False
            End Select
        Next r
    End If

End Sub

Answer 1

我的建议是不要使用 .select。您可以在没有单个 .select 的情况下对所有内容进行编程。记录和分析宏是学习 VBA 的一个很好的起点，但有时它们太复杂了。我更喜欢简单的解决方案，所以试试这个:

Private Sub Worksheet_Change(ByVal Target As Range)

If Range("F7") <> Range("R7") Then
    Range("F7") = Range("R7")
    Range("Q5") = Date
End If
End Sub