Question

新手VBA用户在这里。我认为这可能是一个非常容易回答的问题，但我无法在任何其他网站上找到解决方案，所以如果是这样的话就道歉。

我正在编写一段非常短的代码，将最新的工作日插入到一个尚未存在的列中，然后移动到下一列并运行相同的进程。代码如下。注意我已经通过删除else条件简化了这一点。我想将lastbusinessday变量的日期格式设置为"dd/mm/yyyy" - 此时它包括hh/mm/ss，导致if函数无法正常工作。

我如何声明此变量的条件？

Sub Dateextend4()
    Dim lastbusinessday As Date

    If Weekday(Now()) = 2 Then
        lastbusinessday = (Now() - 3)
    Else
        lastbusinessday = (Now() - 1)
    End If

    Sheets("pb CDS").Select
    Range("b13").Select
    Selection.End(xlDown).Select

    If ActiveCell.Offset(0, 0).Value < lastbusinessday Then
        ActiveCell.Offset(1, 0) = format(lastbusinessday, "mm / dd / yyyy")
    Else
    End If
End Sub

由于

Answer 1

试试这个

If Weekday(Date()) = 2 Then
    lastbusinessday = (Date() - 3)
Else
    lastbusinessday = (Date() - 1)
End If

Format(lastbusinessday, "dd/MM/yyyy")

VBA - 将日期格式设置为变量

1 个答案: