執行階段錯誤'91':

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

1^# 跳轉到 »

發表於 2011-12-29 15:24 | 顯示全部帖子

回復 1# hugh0620

Private Sub CommandButton1_Click()
Dim st1 As String, ed1 As String '宣告為字串
Dim B As Range, C As Range, a As Integer, i As Integer
a = Sheet3.Range("D65536").End(xlUp).Row '***Sheet4 D欄沒資料 A永遠是1
For i = 3 To A '*** A=1 不會執行迴圈
'月份1
If Sheet3.Range("AD" & i) = "" Then
GoTo 1
Else
If Sheet3.Range("AE" & i) = "" Then
st1 = Sheet3.Range("Z" & i) '傳回字串
ed1 = Sheet3.Range("AA" & i) '傳回字串
Else
st1 = Sheet3.Range("Z" & i) '傳回字串
ed1 = Sheet3.Range("AJ" & i) '傳回字串
End If
Set B = Sheet4.Columns("E").Find(st1, LookIn:=xlValues) 'LookIn:=xlValues 內容為字串
Set C = Sheet4.Columns("E").Find(ed1, LookIn:=xlValues)
If Not B Is Nothing And Not C Is Nothing Then 'B , C 皆須為Range(有找到)
Sheet3.Range("AS" & i) = Application.Sum(Sheet4.Range(B.Offset(, 1), C.Offset(, 1)))
End If
End If
1
Next
End Sub

複製代碼

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2011-12-29 17:10 | 顯示全部帖子

回復 3# hugh0620
工作表上日期的搜尋,與儲存格的格式設定有關.
你的行事曆 E欄格式是自訂為文字, 修改為日期格式 *2001/3/14 ,你的程式就可用了 .

靜思自在 : 站在半路，比走到目標更辛苦。