If-then / 为单元格引用中定义的日期范围选择案例答案

【问题标题】：If-then / Select Case for date range defined in cell referenceIf-then / 为单元格引用中定义的日期范围选择案例
【发布时间】：2012-06-19 10:25:54
【问题描述】：

对于新手问题，我深表歉意，但尚未在线找到解决方案。我正在尝试对 VBA 中的日期范围做一个简单的 if-then 语句。到目前为止我的代码（不工作）：

            LR = 52
            Set rngData = Range("D2:D" & LR)
            'define the data range to evaluate
            For Each rngCell In rngData
                Select Case rngCell.Value
                    Case Val(Range("'Some_dates'!O8").Value) To Val(Range("'Some_dates'!P8").Value): rngCell.Value = Range("'Some_dates'!N8").Value
                    Case Val(Range("'Some_dates'!O9").Value) To Val(Range("'Some_dates'!P9").Value): rngCell.Value = Range("'Some_dates'!N9").Value
                    Case Val(Range("'Some_dates'!O10").Value) To Val(Range("'Some_dates'!P10").Value): rngCell.Value = Range("'Some_dates'!N10").Value
                    Case Val(Range("'Some_dates'!O11").Value) To Val(Range("'Some_dates'!P11").Value): rngCell.Value = Range("'Some_dates'!N11").Value
                Case Else: rngCell.Value = "Outside date ranges"
                End Select
            Next rngCell

所有单元格的输出都是“Outside date range”，这意味着它为 rngData 中的所有单元格选择了“else”值，这是不正确的。

“Some_dates”工作表中的单元格 O8:P11 定义了四个日期范围（开始是 O 列，结束是 P 列）。这些日期可能看起来像数字或日期，具体取决于您格式化单元格的方式。 “Some_dates”工作表中的 N 列包含每个日期范围的标签。

感谢任何帮助！

【问题讨论】：

标签： vba excel select-case

【解决方案1】：

如果您要比较的所有内容都是日期，那么Val 就是问题所在。 Val(1/1/2012)，其中 2012 年 1 月 1 日是“真实”Excel 日期（或就此而言是假的）返回“1”。 Val 返回字符串的开头直到第一个非数字字符。所以，试试吧：

Case Range("'Some_dates'!O8").Value To Range("'Some_dates'!P8").Value: rngCell.Value = Range("'Some_dates'!N8").Value

当日期以 General 或 Number 格式存储时，您的代码应该可以工作，因为 Val 返回整个数字（字符串）。

【讨论】：