リフレッシュボタンが選択された日付でセルを自動入力する

Question

リフレッシュボタンが選択されているときにセルにタイムスタンプを配置できるようにする必要があります。私はいくつかのことをオンラインで試しましたが、何も動作していないようです。これは私が現在使用しているもので、埋め込みコマンドボタンについてのコードを貼り付けるだけです。

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行を取り出し、もしうまくいくならば。