Excel，VBA在列中查找日期

Question

我在excel中有这样的日历：

我想做什么。我想写一个宏，在标记单元格后按下按钮，宏获取字符串（此处为：user1），然后返回1列以获取时间并上去获取日期（在本例中为3）。但 我已经有了user1和date，但我无法获得日期

这是一个代码

Dim cell As Object
Dim client As String
Dim date As Date
Dim hour As Date
Dim rowc As Long
Dim colc As Long
    For Each cell In Selection
       client = cell.Value
       colc = ActiveCell.Column
       rowc = ActiveCell.Row
    Next cell

    hour = Cells(rowc, colc - 1).Value
Cells(4, 17).Value = hour 'works to this point

    t = rowc
    colc = colc-1 
    For i = t To 0

    If IsDate(Cells(i, colc).Value) = True Then

     date= Cells(i, colc).Value

    Else
    rowc = rowc - 1
    End If
    Next i



 'Cells(3, 17).Value = date
 Cells(5, 17).Value = client

行说明：colc = colc-1 - 每个日期（31,1,2 ......）它是一个合并在一起的2个单元格。如果user1单元格地址是f.e. 8,14所以3-11-2016细胞柱不是8但是7。

有什么建议吗？

编辑：

似乎这个循环甚至不循环。当我将false更改为false时，msgbox没有出现。

Answer 1

For循环不起作用。如果t = 10，并且您有For i = t To 0，则循环将不会迭代一次，因为10＆gt; 0.据我了解你的要求，你想让i去吸毒。尝试使用Do While循环：

i = t
Do while i > 0
    If IsDate(Cells(i, colc).Value) = True Then
        date= Cells(i, colc).Value
    Else
        rowc = rowc - 1
    End If
    i = i - 1
Loop