返回列表 上一主題 發帖

[發問] 出現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 
1# 跳轉到 »
發表於 2012-12-17 21:04 | 顯示全部帖子
回復 1# 198188
  1. if left([A1]，1）= 2 then
  2.     ' .......
  3. end if

  5. if left([A2]，1）= 7 then
  6.     ' .......
  7. end if

  9. if left([A3]，3）= "OBL" then
  10.     ' .......
  11. end if
複製代碼

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
2#
發表於 2012-12-18 07:22 | 顯示全部帖子
本帖最後由 c_c_lai 於 2012-12-18 07:27 編輯

回復 3# 198188
與 Hsieh 大的 Instr() 有不同的表達方式， 與 Kimbal 版大的是同樣的意思，請參考！
  1. Sub Test5()
  2.     If Not [A1] Like "*OBL*" Then   '  [A1] = "ABCDEFG"
  3.         [B1] = "Not *OBL*"
  4.     Else                            '  [A1] = "ABCODLDE"
  5.         [B1] = "I Got it!"
  6.     End If
  7. End Sub
複製代碼

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
3#
發表於 2012-12-18 09:29 | 顯示全部帖子
回復 7# GBKEE
感謝 GBKEE 版大的附加說明。

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
4#
發表於 2012-12-26 17:51 | 顯示全部帖子
回復 23# 198188
回復 22# GBKEE
因為你所附檔案的程式碼中文部分全為檢體亂碼，
對應不上表單名稱所致，請再重新複製 GBKEE 版大的程式碼覆蓋，
便OK了！

TOP

c_c_lai

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

TOP

c_c_lai

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

TOP

        靜思自在 : 有智慧才能分辨善惡邪正；有謙虛才能建立美滿人生。
返回列表 上一主題