123456
返回列表 上一主題 發帖

[發問] 出現RUN-TIME ERROR '9': SUBSCRIPT OUT OF RANGE,請問哪裡出現問題？

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
31# 跳轉到 »
發表於 2013-1-7 13:40 | 只看該作者
回復 30# 198188
你試著把裡面所宣告釋放記憶體的 Set FRng = Nothing 的語法拿掉，
然後在最後 End Sub 之上一行再行加上 Set FRng = Nothing 試試。

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
32#
發表於 2013-1-7 16:40 | 只看該作者
回復 30# 198188
參考這裡 http://www.excelforum.com/excel-programming-vba-macros/686948-code-execution-has-been-interrupted.html

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
33#
發表於 2013-1-7 17:50 | 只看該作者
回復 30# 198188
About the VBA Code Cleaner

TOP

198188

帖子
438 
主題
67 
精華
0 
積分
531 
點名
30  
作業系統
win7 
軟體版本
office 2010 
閱讀權限
50 
性別
男 
註冊時間
2012-10-30 
最後登錄
2024-11-19 
34#
發表於 2013-1-9 21:51 | 只看該作者
回復 32# GBKEE


    還是不明白為什麼會這樣，但是我重新啟動電腦後，就沒有問題了

TOP

198188

帖子
438 
主題
67 
精華
0 
積分
531 
點名
30  
作業系統
win7 
軟體版本
office 2010 
閱讀權限
50 
性別
男 
註冊時間
2012-10-30 
最後登錄
2024-11-19 
35#
發表於 2013-1-10 00:44 | 只看該作者
回復 29# Hsieh


    請問要check一個儲存格內的日期是星期幾，可以用vba嗎？

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
36#
發表於 2013-1-10 16:20 | 只看該作者
本帖最後由 stillfish00 於 2013-1-10 16:23 編輯

回復 35# 198188

if WeekdayName(Weekday("2013/1/10")) = "星期一"
或
if Weekday("2013/1/10") = vbMonday

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
37#
發表於 2013-1-10 17:17 | 只看該作者
回復 34# 198188
這狀況我也不知道!

回復 35# 198188
  1. Sub Ex()
  2. Dim The_day As Variant
  3. The_day = #1/1/2013#
  4. MsgBox Format(The_day, "aaa")
  5. The_day = Date '系統日期: 今日
  6. MsgBox Format(The_day, "aaa")
  7. End Sub
複製代碼

TOP

198188

帖子
438 
主題
67 
精華
0 
積分
531 
點名
30  
作業系統
win7 
軟體版本
office 2010 
閱讀權限
50 
性別
男 
註冊時間
2012-10-30 
最後登錄
2024-11-19 
38#
發表於 2013-1-11 10:19 | 只看該作者
  1.     The_day = Worksheets("Request").Range("F" & i).Value - 2
  2.   If The_day = "星期六" Or The_day = "星期日" Then .Range("H" & i).Value = .Range("F" & i).Value Else .Range("H" & i).Value = .Range("F" & i).Value - 2
複製代碼
回復 37# GBKEE




我這個程式應該無問題，但是Worksheets("Request").Range("F" & i).Value 經常出現是數值，不是日期，如果讓電腦自動辨認這個儲存格是日期。我儲存格的日期格式是11/1

TOP

198188

帖子
438 
主題
67 
精華
0 
積分
531 
點名
30  
作業系統
win7 
軟體版本
office 2010 
閱讀權限
50 
性別
男 
註冊時間
2012-10-30 
最後登錄
2024-11-19 
39#
發表於 2013-1-11 10:48 | 只看該作者
回復  GBKEE




我這個程式應該無問題，但是Worksheets("Request").Range("F" & i).Value 經常出現是 ...
198188 發表於 2013-1-11 10:19


我第一個data base 原本是04-Jan-13
然後我轉1/4在第二個data base
之後讀取第二個data base，就變成附件圖片，數值，而這個程式卻不懂得辨認成日期

TOP

198188

帖子
438 
主題
67 
精華
0 
積分
531 
點名
30  
作業系統
win7 
軟體版本
office 2010 
閱讀權限
50 
性別
男 
註冊時間
2012-10-30 
最後登錄
2024-11-19 
40#
發表於 2013-1-11 13:39 | 只看該作者
回復 19# kimbal

請問可否幫我看一下下面的link哪裡出現問題
    http://forum.twbts.com/viewthrea ... amp;page=4#pid49510

TOP

        靜思自在 : 【時間成就一切】時間可以造就人格，可以成就事業，也可以儲積功德。
123456
返回列表 上一主題