0

我正在使用 Excel 2010 VBA，我正在创建一个基本的时间线。这是创建一些列标题的代码片段，以“D-MMM”的形式，基于开始日期和跳过周末。

   i = 0
' Add column headers based on the day of the week. Skip working on Saturday and Sunday; do not show weekends
Do
    ' D-MMM format = "[$-409]d-mmm;@"
    ActiveCell.Value = Format(DateAdd("d", i, dteLowestStartDate), "[$-409]d-mmm;@")
    ActiveCell.Interior.Color = RGB(153, 204, 255)

    ' IF it's a weekend do not print those days in the column
    If Format(ActiveCell.Value, "dddd") = "Friday" Then
        ' Skip Saturday, Sunday
        i = i + 3
      Else
        ' Weekday
        i = i + 1
    End If
    ActiveCell.Offset(0, 1).Select
'End processing more column headers once the start date + index(i) is a few days greater then end date
Loop Until DateAdd("d", i, dteLowestStartDate) > DateAdd("d", 3, dteHighestStartDate)

代码正确执行并显示列标题。我遇到的问题是，当 1 月 1 日到来时，它会保留当前年份（今天是 2011 年），但我预计会是 2012 年。

作为测试，我删除了该FORMAT(... ", "[$-409]d-mmm;@")部分，因此它只是读取DateAdd("d", i, dteLowestStartDate)重新运行，并且它在 1 月 1 日正确地增加了年份，但是随后我使用的使用该Application.Match函数的代码失败了。

知道如何DateAdd使用 dd-mmm 格式正确增加列标题（顶行中的文本，跨越多列）吗？或者我应该考虑改变我的Application.Match()，这样它就不会返回错误 2042？

这是匹配失败的地方：

colStartDate = Application.Match(CLng(dteStartDate), Range(colLetter & "1:XFD1"), 0)
4

1 回答 1

0

看起来如果我只是将我的FORMAT()功能更改为Format(DateAdd("d", i, dteLowestStartDate), "Short Date")它可以正常工作。

于 2011-12-02T15:49:32.173 回答