选择刷新按钮时，自动使用日期填充单元格

Question

当选择了刷新按钮时，我需要能够在单元格中放置时间和日期标记。我在线尝试过一些东西，似乎没什么用。这是我目前正在使用的，它只是粘贴一些关于嵌入命令按钮1

的代码

Private Sub CommandButton1_Click()
    ' AutoRefresh all the Tables and Charts
    ActiveWorkbook.RefreshAll

    If CommandButton1.Select Then
        Range("F8").Value = Format(Date, "dd-mmmm-yyyy") & " " & Format(Now, "h:mm:ss AM/PM")
    End If
End Sub

Answer 1

在那里使用If语句似乎是多余的。您已经单击了刷新，因此您可能希望执行该行。取出If行和End If行以及if是否有效。