VBA里的MONTH可引用单元格吗

hanyu286613818

1. Sub 取值()
   
2. Dim x As Integer
   
3. Dim imsg As String
   
4. For x = 1 To 11
   
5. If Month(Cells(x, 3)) = Month(Now()) Then
   
6. imsg = imsg & Cells(x, 2) & Cells(x, 3) & Cells(x, 4) & Cells(x, 5) & Chr(9)
   
7. imsg = imsg & Chr(10)
   
8. MsgBox "本月生日的有" & imsg
   
9. End If
   
10. Next x
    
11. End Sub

复制代码

上面的代码运行错误，请问怎么解决啊！

zez

请问，表中C列的数据是什么格式？

余余1982

1. Sub 取值()
   
2. Dim x As Integer
   
3. Dim imsg As String
   
4. For x = 2 To 11
   
5. If Month(Cells(x, 3)) = Month(Now()) Then
   
6. imsg = imsg & Cells(x, 2) & Cells(x, 3) & Cells(x, 4) & Cells(x, 5) & Chr(9)
   
7. imsg = imsg & Chr(10)
   
8. End If
   
9. Next x
   
10. MsgBox "本月生日的有" & Chr(10) & imsg
    
11. End Sub

复制代码

for x= 2 to 11
或者FOR X=2 TO [C65536].END(3).ROW
怀疑C1单元格为文本（标题栏），不是一个日期，所以发生错误。

余余1982

1. Sub 取值()
   
2. Dim x As Integer
   
3. Dim imsg As String
   
4. For x = 1 To 11
   
5. If IsDate(Cells(x, 3)) = True Then
   
6. If Month(Cells(x, 3)) = Month(Now()) Then
   
7. imsg = imsg & Cells(x, 2) & Cells(x, 3) & Cells(x, 4) & Cells(x, 5) & Chr(9)
   
8. imsg = imsg & Chr(10)
   
9. End If
   
10. End If
    
11. Next x
    
12. MsgBox "本月生日的有" & Chr(10) & imsg
    
13. End Sub

复制代码

或者加一个判断是否为日期！