返回列表 上一主題 發帖

[發問] 執行錯誤

蘿蔔泥

帖子
36 
主題
10 
精華
0 
積分
93 
點名
0  
作業系統
win10 
軟體版本
office 2007 
閱讀權限
20 
註冊時間
2018-2-27 
最後登錄
2022-2-25 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2022-1-5 13:40 | 只看該作者

[發問] 執行錯誤

請問各位大大，

我寫了一段巨集，
跑到第14行    Workbooks("2.年度訓練計畫表").Sheets("連結總表").Cells(r, 1) = Workbooks("SNAME").Sheets("總表").Range("a" & i)
會出現執行階段錯誤，陣列索引超出範圍
我不曉得是哪裡出錯，
還麻煩大家指點，謝謝。
  1. Sub 完成_總結new()

  3. i = 2
  4. If Range("a2") = "" Then
  5.     r = 2
  6. Else
  7.     r = Range("a1").End(xlDown).Row + 1
  8. End If

  10. SNAME = Sheets("設定頁").Range("B5")
  11. Workbooks.Open Filename:=SNAME

  13. Do While Range("a" & i) <> ""
  14.     Workbooks("2.年度訓練計畫表").Sheets("連結總表").Cells(r, 1) = Workbooks("SNAME").Sheets("總表").Range("a" & i)
  15.     Workbooks("2.年度訓練計畫表").Sheets("連結總表").Cells(r, 2) = Workbooks("SNAME").Sheets("總表").Range("e" & i)
  16.     Workbooks("2.年度訓練計畫表").Sheets("連結總表").Cells(r, 3) = Workbooks("SNAME").Sheets("總表").Range("f" & i)
  17.     Workbooks("2.年度訓練計畫表").Sheets("連結總表").Cells(r, 4) = Workbooks("SNAME").Sheets("總表").Range("j" & i)
  18.     Workbooks("2.年度訓練計畫表").Sheets("連結總表").Cells(r, 5) = Workbooks("SNAME").Sheets("總表").Range("i" & i)
  19.     Workbooks("2.年度訓練計畫表").Sheets("連結總表").Cells(r, 6) = Workbooks("SNAME").Sheets("總表").Range("d" & i)
  20.     Workbooks("2.年度訓練計畫表").Sheets("連結總表").Cells(r, 7) = Workbooks("SNAME").Sheets("總表").Range("l" & i)
  21.     Workbooks("2.年度訓練計畫表").Sheets("連結總表").Cells(r, 8) = Workbooks("SNAME").Sheets("總表").Range("m" & i)
  22.     Workbooks("2.年度訓練計畫表").Sheets("連結總表").Cells(r, 9) = Workbooks("SNAME").Sheets("總表").Range("q" & i)
  23.     Workbooks("2.年度訓練計畫表").Sheets("連結總表").Cells(r, 10) = Workbooks("SNAME").Sheets("總表").Range("t" & i)
  24.     Workbooks("2.年度訓練計畫表").Sheets("連結總表").Cells(r, 11) = Workbooks("SNAME").Sheets("總表").Range("ab" & i)
  25.     Workbooks("2.年度訓練計畫表").Sheets("連結總表").Cells(r, 12) = Workbooks("SNAME").Sheets("總表").Range("y" & i)
  26.     Workbooks("2.年度訓練計畫表").Sheets("連結總表").Cells(r, 13) = Workbooks("SNAME").Sheets("總表").Range("z" & i)
  27. '    Workbooks("2.年度訓練計畫表").Worksheets("連結總表").Cells(r, 14) = Workbooks("SNAME").Sheets("總表").Range("aa" & i)
  28.         If Workbooks("SNAME").Sheets("總表").Range("j" & i) = "外訓" And Workbooks("SNAME").Sheets("總表").Range("q" & i) <> "" Then
  29.             Workbooks("2.年度訓練計畫表").Sheets("連結總表").Cells(r, 14) = "詳如明細"
  30.         Else
  31.             Workbooks("2.年度訓練計畫表").Sheets("連結總表").Cells(r, 14) = Workbooks("SNAME").Sheets("總表").Range("aa" & i)

  33.         End If
  34.     r = r + 1
  35.     i = i + 1
  36. Loop

  38. Workbooks(SNAME).Close
  39. 'x = WorksheetFunction.CountIf(Sheets("連結總表").Range("c:d"), Range("m:m"))
  40. End Sub
複製代碼

教育訓練.zip (70.35 KB)

收藏 分享

singo1232001
　暱稱: 熱狗慶

中學生Rank: 2

帖子
354 
主題
5 
精華
0 
積分
387 
點名
0  
作業系統
windows7 
軟體版本
vba,vb,excel2007 
閱讀權限
20 
性別
男 
註冊時間
2017-1-8 
最後登錄
2024-8-2 

論壇榮譽勳章論壇贊助勳章
3#
發表於 2022-1-25 03:33 | 只看該作者
本帖最後由 singo1232001 於 2022-1-25 03:34 編輯

回復 1# 蘿蔔泥


借我改一改

2.年度訓練計畫表.xlsm.zip (36.73 KB)

TOP

samwang

帖子
976 
主題
7 
精華
0 
積分
1018 
點名
0  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
50 
性別
男 
註冊時間
2013-4-19 
最後登錄
2025-1-10 
2#
發表於 2022-1-5 14:22 | 只看該作者
回復 1# 蘿蔔泥

修改如下紅字，謝謝
所有Workbooks("SNAME") 改為 Workbooks(SNAME)

Sub 完成_總結new()

i = 2
If Range("a2") = "" Then
    r = 2
Else
    r = Range("a1").End(xlDown).Row + 1
End If

FN = Sheets("設定頁").Range("B5")
Workbooks.Open Filename:=FN
SNAME = ActiveWorkbook.Name
Do While Range("a" & i) <> ""
    Workbooks("2.年度訓練計畫表").Sheets("連結總表").Cells(r, 1) = Workbooks(SNAME).Sheets("總表").Range("a" & i)
    Workbooks("2.年度訓練計畫表").Sheets("連結總表").Cells(r, 2) = Workbooks(SNAME).Sheets("總表").Range("e" & i)
    Workbooks("2.年度訓練計畫表").Sheets("連結總表").Cells(r, 3) = Workbooks(SNAME).Sheets("總表").Range("f" & i)
    Workbooks("2.年度訓練計畫表").Sheets("連結總表").Cells(r, 4) = Workbooks(SNAME).Sheets("總表").Range("j" & i)
    Workbooks("2.年度訓練計畫表").Sheets("連結總表").Cells(r, 5) = Workbooks(SNAME).Sheets("總表").Range("i" & i)
    Workbooks("2.年度訓練計畫表").Sheets("連結總表").Cells(r, 6) = Workbooks(SNAME).Sheets("總表").Range("d" & i)
    Workbooks("2.年度訓練計畫表").Sheets("連結總表").Cells(r, 7) = Workbooks(SNAME).Sheets("總表").Range("l" & i)
    Workbooks("2.年度訓練計畫表").Sheets("連結總表").Cells(r, 8) = Workbooks(SNAME).Sheets("總表").Range("m" & i)
    Workbooks("2.年度訓練計畫表").Sheets("連結總表").Cells(r, 9) = Workbooks(SNAME).Sheets("總表").Range("q" & i)
    Workbooks("2.年度訓練計畫表").Sheets("連結總表").Cells(r, 10) = Workbooks(SNAME).Sheets("總表").Range("t" & i)
    Workbooks("2.年度訓練計畫表").Sheets("連結總表").Cells(r, 11) = Workbooks(SNAME).Sheets("總表").Range("ab" & i)
    Workbooks("2.年度訓練計畫表").Sheets("連結總表").Cells(r, 12) = Workbooks(SNAME).Sheets("總表").Range("y" & i)
    Workbooks("2.年度訓練計畫表").Sheets("連結總表").Cells(r, 13) = Workbooks(SNAME).Sheets("總表").Range("z" & i)
'    Workbooks("2.年度訓練計畫表").Worksheets("連結總表").Cells(r, 14) = Workbooks("SNAME").Sheets("總表").Range("aa" & i)
        If Workbooks(SNAME).Sheets("總表").Range("j" & i) = "外訓" And Workbooks(SNAME).Sheets("總表").Range("q" & i) <> "" Then
            Workbooks("2.年度訓練計畫表").Sheets("連結總表").Cells(r, 14) = "詳如明細"
        Else
            Workbooks("2.年度訓練計畫表").Sheets("連結總表").Cells(r, 14) = Workbooks(SNAME).Sheets("總表").Range("aa" & i)

        End If
    r = r + 1
    i = i + 1
Loop

Workbooks(SNAME).Close
'x = WorksheetFunction.CountIf(Sheets("連結總表").Range("c:d"), Range("m:m"))
End Sub

TOP

        靜思自在 : 話多不如話少，話少不如話好。
返回列表 上一主題