[已解决]运行时错误 ' 13':类型不匹配

各位，公司的前辈留下一个表格，运行某项功能时出现 【运行时错误 ' 13':类型不匹配】，我刚接触EXCEL VBA编程，实在是搞不定，还求各位指教，谢谢！代码如下（黄色部分文字为出错的地方）：

1. Function read_lastendtime()
   
2.   For i = 9 To Cells(9, 1).CurrentRegion.Rows.Count
   
3.     hc = ""
   
4.     shipname = trim_(Cells(i, 1), hc)
   
5.     If InStr(hc, "V") > 0 Then
   
6.     hc = Val(Right(hc, 2))
   
7.     line_ = 6
   
8.     lastday = ""
   
9.     Do While Sheets("外贸结算").Cells(line_, 1) <> shipname And Sheets("外贸结算").Cells(line_, 1) <> "": line_ = line_ + 1: Loop
   
10.     Do While Sheets("外贸结算").Cells(line_, 1) = shipname And Sheets("外贸结算").Cells(line_, 1) <> ""
    
11.        If lastday < Sheets("外贸结算").Cells(line_, 8) Then lastday = Sheets("外贸结算").Cells(line_, 8): line_lastday = line_
    
12.        line_ = line_ + 1
    
13.     Loop
    
14. <b><font color="#ff8c00">    bugetday = DateValue(Year(Now) & "-" & Cells(1, "R") & "-1 0:00")</font></b>
    
15.     If Now() - bugetday > 300 Then
    
16.       bugetday = DateValue(Year(Now) + 1 & "-" & Cells(1, "R") & "-1 0:00")
    
17.     End If
    
18.     If lastday <> "" And Val(Right(Sheets("外贸结算").Cells(line_lastday, 4), 2)) + 1 = Val(Replace(hc, "V", "")) Then Cells(i, "N") = bugetday - DateValue(lastday)
    
19.     End If
    
20.   Next
    
21. End Function

复制代码

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2014-10-31 16:21

Cells(1, "R"),看看过个单元格里是什么。

跳转到最佳答案楼层

16行出错

hwc2ycy

Cells(1, "R"),看看过个单元格里是什么。

hwc2ycy 发表于 2014-10-31 16:21
Cells(1, "R"),看看过个单元格里是什么。

搞清楚了，谢谢！原本R列里的数据不知为何被移到了T，把R改成T就好了

hwc2ycy

QQ_4C607E 发表于 2014-11-3 12:45
搞清楚了，谢谢！原本R列里的数据不知为何被移到了T，把R改成T就好了

不错，加油。