将 if then 命令输入到将遍历列的 vba 宏中

Question

我正在尝试创建一个宏来查看某一行中单元格的小时值，根据我的 if、then、else 标准对它们进行排序，并基于此生成一个循环我的列的结果。

因此，如果小时为 = 11，则结果为“午餐”。

我对 VBA 很陌生，但这是我目前所掌握的：

Sub Time_Sorter()

Dim i As Long
Dim result As String

For i = 1 To Rows.count            
    If Hour("J" & i) <= 15 And Hour("J" & i) >= 11 Then
        result = "Lunch"    
    ElseIf Hour("J" & i) <= 16 And Hour("J" & i) >= 17 Then
        result = "Pre-Dinner"    
    ElseIf Hour("J" & i) <= 18 And Hour("J" & i) >= 21 Then
        result = "Dinner"    
    ElseIf Hour("J" & i) <= 22 And Hour("J" & i) >= 23 Then
        result = "Late Night"
    Else
        result = "Other"    
    End If       
Next i

End Sub

我不断收到消息

运行时错误“13”：类型不匹配

而且我不确定如何解决它。

任何见解将不胜感激！

Answer 1

我认为您正在寻找类似下面的代码。

我用构造的 Select Case 替换了您的多个 ElseIfs。

代码

Sub Time_Sorter()

Dim i As Long
Dim result As String

' loop from the first row until last row with data in column ""j"
For i = 1 To Cells(Rows.Count, "J").End(xlUp).Row
    Select Case Hour(Range("J" & i).Value)
        Case 11 To 15
            result = "Lunch"
        Case 16 To 17
            result = "Pre-Dinner"
        Case 18 To 21
            result = "Dinner"
        Case 22 To 23
            result = "Late Night"
        Case Else
            result = "Other"
    End Select
Next i

End Sub