在 concat 函数的末尾添加格式化日期答案

【问题标题】：Adding a formatted date on to the end of a concat function在 concat 函数的末尾添加格式化日期
【发布时间】：2015-05-07 12:34:19
【问题描述】：

我目前正在寻找以 DD/MM 格式将更新日期添加到当前由现有宏生成的文本字符串的末尾。

Sub Nomediatidy()

 Dim w1 As Worksheet
 Dim w2 As Worksheet
    Dim result As Range
    Dim FirstRow As Integer


    Set w1 = Worksheets("Sheet1")
    Set w2 = Worksheets("Master List")

    FirstRow = 0

    With w1.Range("F:F")
        Set result = .Find(What:="No Media", LookIn:=xlValues, LookAt:=xlPart)

        If Not result Is Nothing Then
            FirstRow = result.Row
            Do
                w1.Range("H" & result.Row) = w1.Range("F" & result.Row) + " Available - PAM/Edit to Advise " & w1.Range("H" & result.Row)
                Set result = .FindNext(result)
            Loop While Not result Is Nothing And result.Row <> FirstRow
        End If
    End With

    Set w1 = Nothing
    Set result = Nothing


Application.ScreenUpdating = True

End Sub

在显示“可用 - PAM/编辑以提供建议”的行上，我想添加今天的日期。但是，我一生都无法弄清楚如何在没有调试器引发某种错误的情况下将其放入其中。我可能只是想多了，但任何建议都将不胜感激

【问题讨论】：

我一辈子都无法弄清楚如何在调试器不引发某种错误的情况下将其放入其中。在编程中，“没有调试器引发某种错误”翻译为“我在这一行上得到一个运行时错误，在另一行上出现另一个运行时错误，等等”。请您添加此部分以供我们帮助？
添加& Format$(Now, "dd/mm")。

标签： excel vba date format concat

【解决方案1】：

改变 w1.Range("H" & result.Row) = w1.Range("F" & result.Row) + " Available - PAM/Edit to Advise " & w1.Range("H" & result.Row)

致w1.Range("H" & result.Row) = w1.Range("F" & result.Row) & " Available - PAM/Edit to Advise " & w1.Range("H" & result.Row) & " " & format(now, "DD/MM")

这将在您到目前为止所拥有的内容的末尾添加一个空格，然后在其后添加来自 now 函数的当前日期，该函数从系统时钟获取日期和时间。然后将其格式化为只有“DD/MM”

【讨论】：