c_c_lai

回復 30# 198188
你試著把裡面所宣告釋放記憶體的 Set FRng = Nothing 的語法拿掉，
然後在最後 End Sub 之上一行再行加上 Set FRng = Nothing 試試。

GBKEE

回復 30# 198188
參考這裡 http://www.excelforum.com/excel-programming-vba-macros/686948-code-execution-has-been-interrupted.html

c_c_lai

回復 30# 198188
About the VBA Code Cleaner

198188

回復 32# GBKEE


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

198188

回復 29# Hsieh


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

stillfish00

回復 35# 198188

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

GBKEE

回復 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

複製代碼

198188

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

198188

回復  GBKEE

下載 (178.77 KB)

2013-1-11 10:44

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

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

198188

回復 19# kimbal

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