返回列表下一主題上一主題發帖

[發問] range(cells(),cells())產生1004錯誤

joey0415

　暱稱: joey0415

中學生 Rank: 2

帖子: 361
主題: 57
精華: 0
積分: 426
點名: 0
作業系統: win7
軟體版本: 2003,2010
閱讀權限: 20
性別: 男
註冊時間: 2010-5-13
最後登錄: 2022-12-8

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2014-12-17 22:38 | 只看該作者

[發問] range(cells(),cells())產生1004錯誤

我有三個excel檔，在第一個中寫程式如下，可以執行
A打開B找區域最大值後，貼回A中，關閉後，再打開C區域最大值後，貼回A中，關閉後，結速程式
第二個卻說1004錯誤

一個用range來設定區域沒有問題，另一個改成range(cells(),cells())的方式卻產生錯誤！請高手指點迷津

Sub 正確可執行()
      Workbooks(1).Worksheets("test").Activate
      For i = 3 To 5
         sname = Workbooks(1).Worksheets("test").Cells(i, 1)
         Workbooks.Open Filename:=ThisWorkbook.Path & "\" & sname & ".xlsx"

            If Application.Sum(Workbooks(2).Worksheets("cr").Range("b2:b5")) > 0 Then
            Workbooks(1).Worksheets("test").Cells(i, 5) = Application.Sum(Workbooks(2).Worksheets("cr").Range("b2:b5"))
         End If

         Workbooks(2).Close
      Next

End Sub

Sub 錯誤不可執行()
      Workbooks(1).Worksheets("test").Activate
      For i = 3 To 5
         sname = Workbooks(1).Worksheets("test").Cells(i, 1)
         Workbooks.Open Filename:=ThisWorkbook.Path & "\" & sname & ".xlsx"
            If Application.Sum(Workbooks(2).Worksheets("cr").Range(Cells(11, 2), Cells(11, 5))) > 0 Then
            Workbooks(1).Worksheets("test").Cells(i, 5) = Application.Sum(Workbooks(2).Worksheets("cr").Range(Cells(11, 2), Cells(11, 5)))
            End If
         Workbooks(2).Close
      Next

End Sub