返回列表 上一主題 發帖

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

本帖最後由 198188 於 2013-1-13 00:46 編輯

回復 43# GBKEE
1.rar (380.46 KB)
2.rar (464.33 KB)
3.rar (419.49 KB)

vba.rar (2.65 KB)

由於檔案太大,我分開了7個 excel 和一個程式的附件

4.rar (903.92 KB)

5.rar (760.94 KB)

4.rar (903.92 KB)

5.rar (760.94 KB)

TOP

回復 42# 198188
上傳檔案及程式碼看看.

TOP

回復 41# GBKEE


    我試過將全部的日期格式都改成一樣,而各種日期格式都試過。
但一執行vba就會自動將格式改成數字如下,而我想將這個ETA日期減兩日,如果是星期六或日,就在另一column顯示ETA Column的日期,否則就顯示ETA日期減兩日,由於vba未能辨認數字成日期,所以全部都減2
ETA
41289.5
41291
41288.5
41295
41297
41298

TOP

回復 39# 198188
    二個data base,就變成附件圖片
F欄要設定為日期格式 如圖

TOP

回復 19# kimbal

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

TOP

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

  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

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

本帖最後由 stillfish00 於 2013-1-10 16:23 編輯

回復 35# 198188

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

TOP

回復 29# Hsieh


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

TOP

        靜思自在 : 成功是優點的發揮,失敗是缺點的累積。
返回列表 上一主題