Question

我有以下VBA代码生成日期列表，我想要的是打印出每个日期，以日期格式打印日期，即01/10/2002将是星期一：

Sub loopDates()
    Dim Stdt    As Date
    Dim Edt     As Date
    Dim n       As Date
    Dim c       As Long
    Stdt = Range("A1")
    Edt = Range("A2")
    For n = Stdt To Edt
            c = c + 1
            Range("C" & c) = n
            Range("B" & c).Formula = "=TEXT(C1,""dddd"")"
    Next n
End Sub

我想更改一行：

Range("B" & c).Formula = "=TEXT(C1,""dddd"")"

因此，每次循环迭代时，此示例中的C1都会发生变化，因此它会随着值c而变化，例如它看起来像= TEXT（C“＆amp; c＆amp;，”dddd“）但是我无法正确格式化，

有人可以提出解决这个问题的方法吗？

Answer 1

我设法从here找到你可以设置单元格的格式。我将原帖中提到的行更改为：

Range("B" & c) = Format(n, "dddd")

这将从C的列和索引中获取日期，并以正确的格式将日期打印到B的列和索引

感谢您的回答

VBA Excel从日期获取日期

1 个答案: