☰

时间戳宏已切换到不同的时间源

tag-icon • tag-icon microsoft-excel vba
时间戳宏已切换到不同的时间源

我有一个时间戳宏，它给出运行时的当前日期和时间。我还有两个单元格显示股票交易所的日期和时间。我需要时间戳宏来返回这两个单元格中给出的当前日期和时间。我不知道如何在我当前的宏中更改它。以下是我目前拥有的。

Sub TimeStamp()
'
' TimeStamp Macro
'
' Keyboard Shortcut: Ctrl+Shift+T
'
    ActiveCell.FormulaR1C1 = "=NOW()"
    ActiveCell.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
End Sub

第一幅图像是我需要它返回的信息（L1 和 N1），目前它返回第二幅图像中的信息

在此处输入图片描述

在此处输入图片描述

尽我所能提供帮助，仍在学习 VBA。希望这是一个开始。

答案1

这是我最终使用的。效果很好。

' Following Inputs Exchange Date (L1) and Time (N1) into next available cell in column A
With ActiveSheet
    With .Cells(Rows.Count, "A").End(xlUp).Offset(1, 0)
        .Value = Application.Evaluate("CONCATENATE(L1,N1)")
        .WrapText = False
    End With
End With

相关内容