1

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

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 " & c &, "dddd") 但我无法获得正确的格式,

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

4

1 回答 1

1

我设法从这里找到您可以设置单元格的格式。我将原始帖子中提到的行更改为：

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

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

谢谢回答

于 2013-09-02T19:26:39.260 回答