变量等于带有声明变量的公式

Question

对不起，如果标题令人困惑，不知道如何措辞。基本上我想编写一个公式，该公式从用户指定的单元格（myDate）和起始单元格的地址（FirstCell）中获取日期并基于此：

1. 设置一个范围 (myArea)，该范围从指定的单元格开始，延伸到等于我们选择的日期 (numDays) 的月份和年份的天数的单元格。
2. 计算该范围内没有空白内部的单元格（工作表中没有条件格式）并返回该数字。

例如，假设我的日期是 2022 年 1 月 4 日，2022 年 4 月有 5 天，但我的表格有 6 列。我想根据这个特定月份的长度定义一个范围，以便没有空白内部的单元格数量等于 1 而不是 2。我希望这可以在不同月份重现。

第 2 点已完成并适用于简单的用户指定范围，第 1 点给我带来了麻烦，因为我不希望它返回工作表中的任何内容。具体问题是设置 numDays 但可能还有其他我没有发现的错误 - 基本上我试图将 excel 函数解决方案移植到 VBA 中，但我很确定我的语法错误和/或这是不可行。在这里找不到任何可以回答我的问题的东西，当我尝试使用它返回 #VALUE 的函数时！在电子表格中。

Function SPECIALDAYS (FirstCell as Range, myDate as Date)
   Dim myCell as Range
   Dim myArea as Range
   Dim numDays as Integer

   numDays = Application.Evaluate("Day(Eomonth(" & myDate & ",0))")
   Set myArea = Range(FirstCell, FirstCell.Offset(0, numDays-1))
   
   For Each myCell In myArea
      If myCell.Interior.ColorIndex <> -4142 Then
         SPECIALDAYS=SPECIALDAYS+1
      End If
   Next myCell
End Function

Answer 1

不要使用Evaluate 和公式，而是使用带有WorksheetFunctions 的纯VBA 解决方案：

numDays = Day(Application.WorksheetFunction.EoMonth(Date, 0))

见WorksheetFunction.EoMonth method。