Question

我希望有人可以帮助我实现一种简单的方法，在不同的单元格中的特定时间自动复制和粘贴。

这是我第一次使用Case而我不确定这是否是实现目标的最佳方式。基本上我想从一个工作表中复制并使用一个按钮粘贴到另一个工作表。这很简单，但我只希望该按钮在指定时间运行四种不同变体之一。到目前为止，我有以下内容：

Private Sub Button_Click()
   Dim ws As Worksheet
   Dim rng As Range

   Refresh.All

   DoEvents

   Set ws = ActiveSheet
   Set rng = Application.Range("Display!B80")

   Select Case rng.Time(Now)

       Case #5:00:00 AM# To #8:55:00 AM#:
            Call Module1

        Case #8:55:01 AM# To #11:25:00 AM#:
            Call Module1

        Case #12:00:00 AM# To #2:55:00 PM#:
            Call Module1

        Case #2:55:01 PM# To #6:00:00 PM#:
            Call Module1

    End Select
End Sub

＆＃34;显示B80＆＃34！; =（当前时间 -INT（当前时间））* 24由HH格式化：MM：SS

Module1包含一个名为Quarter1（）

的Sub

包含一系列由以下内容组成的行：

Range("B16")
Worksheets("Main").Range("D2").Copy
Worksheets("Display").Range("B16").PasteSpecial xlPasteValues
Range("B16")

这种复制和粘贴可以根据需要使用，我只是无法点击按钮运行而没有错误。是我尝试甚至可能还是我的方法？

VBA - 1在指定时间调用特定子的按钮

0 个答案: