将格式的日期添加到Concat函数的末尾

Question

我目前正在寻找以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/edit建议"的行上，我想添加今天的日期。但是，如果我没有遇到某种错误，我就无法生存一生。我可能只是在思考它，但是任何建议都将不胜感激

Answer 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")

这将在您到目前为止的末尾添加一个空间，然后按照现在的函数的当前日期遵循它，该日期需要从系统时钟开始的日期和时间。然后格式化它仅为" dd/mm"