CDate类型不匹配

Question

我是VBA的新手。我想比较timeNow和meetingEnds，我将离开复合单元格。但我得到一个类型不匹配错误。 :-(

Sub Modul1()
    timeNow = CDate(Time)

    Dim rowCount As Integer
    Dim cell As String

    For rowCount = 1 To ActiveSheet.UsedRange.Rows.Count Step 2
        cell = "C" & rowCount
        meetingEnds = CDate(['cell'])

        If timeNow > meetingEnds Then
            Rows(rowCount).Hidden = True
            Rows(rowCount + 1).Hidden = True
        End If
    Next rowCount
End Sub

有没有办法用

来实现我想要的东西

meetingEnds = CDate(['cell'])

非常感谢你。

Answer 1

变化：

meetingEnds = CDate(['cell'])

到

meetingEnds = CDate(ActiveSheet.Range(cell))

原因是，您将Cell存储为字符串 - C1，C3，C5等。任何此类引用都应作为参数包含或传递给Range()方法。