執行階段錯誤'91':

本帖最後由 hugh0620 於 2011-12-29 11:49 編輯

小弟在撰寫完程式碼後~ 執行發生了執行階段錯誤'91': 的問題
已經有搜索過以前的文章~ 但是還是無法克服~
http://forum.twbts.com/viewthrea ... F9%BB%7E&page=1
文章中Hsieh大大說的部份~ 有檢查過~ 都有設定~
請大大們指導一下~
因為有些程式是照這樣的方式寫~ 執行時~ 有時沒有問題~ 有時又會出現錯誤訊息~

補提供一個範例~ 讓大大們進營測試

範例.rar (55.27 KB)

樓主熱帖

學習才能提升自己

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

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

2^#

發表於 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

複製代碼

TOP

hugh0620

　暱稱: VBA向前衝

高中生 Rank: 3 Rank: 3

帖子: 559
主題: 58
精華: 0
積分: 626
點名: 0
作業系統: win8
軟體版本: office2013
閱讀權限: 50
性別: 男
來自: TW
註冊時間: 2010-11-22
最後登錄: 2024-6-14

3^#

發表於 2011-12-29 15:45 | 只看該作者

回復 2# GBKEE

Dear G大大~
很感謝你的解答~
但~ 小弟還是有一些問題~ 想向您請教~
因為也資料格式(日期.常數.字串)會造成程式執行時產生錯誤~
所以~ 小弟在儲存格的日期格式上~ 其實有用date的方式讓相關的欄位都是用date的函數加以整合~
就是會發生錯誤~
看大大的解答是將日期轉成字串~ 再去查詢~
是否直接用日期查詢會有問題嘛??
還是以後遇到日期格式~ 先轉成字串~ 再去查詢比較沒問題??

學習才能提升自己

TOP

GBKEE