Excel：If语句使用时间

Question

我正在尝试在excel中进行设置，如果时间是下午6点（18:00），则N20（N20是网络查询，并且值在随机间隔内增加/减少）会将单元格内容/值复制到O20

Answer 1

您实际上可能希望使用workbook_open事件在指定的时间运行一个子项来管理传输。

在ThisWorkbook代码窗格中：

Option Explicit
Private Sub Workbook_Open()

    Application.OnTime TimeValue("18:00:00"), "Module1.GetValueAtSixPm"

End Sub

在标准模块1中放入：

Public Sub GetValueAtSixPm()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("Sheet2")   ' <== Change as required
    With ws
        .Range("O20") = .Range("N20")
    End With
End Sub