[VBA ] 應用程式或物件定義上的錯誤

[HULK10425 (菩提王子)]

程式碼如下

Sub hulk()

Dim Title, Default, MyValue
Dim i_1, i_2, a_1, a_2, a_3 As Integer

Message_1 = "買CALL幾口?請輸入三口以下(包含三口)"   ' 設定提示訊息。
Message_2 = "賣CALL幾口?請輸入三口以下(包含三口)"
Message_3 = "買PUT幾口?請輸入三口以下(包含三口)"
Message_4 = "賣PUT幾口?請輸入三口以下(包含三口)"


Title = "InputBox Demo"   ' 設定標題。
Default = "0"   ' 設定預設值。
' 顯示訊息、標題及預設值。
a = InputBox(Message_1, Title, Default)

b = InputBox(Message_2, Title, Default)
C = InputBox(Message_3, Title, Default)
D = InputBox(Message_4, Title, Default)

'把a轉成可以運算的型態
a_1 = CDbl(a)
b_1 = CDbl(b)
c_1 = CDbl(C)
d_1 = CDbl(D)

MsgBox "買CALL幾口?" & a_1
MsgBox "賣CALL幾口?" & b_1
MsgBox "買PUT幾口?" & c_1
MsgBox "賣PUT幾口?" & d_1
j = 1
If a_1 > 0 Then

    For i_1 = 1 To a_1


        message_5 = "買第" & i_1 & "口CALL的履約價 ?"
        a_2 = InputBox(message_5, Title, Default)
        a_3 = CDbl(a_2)
             For i_2 = 4 To 19

                    If Sheets("sheet1").Cells(4, i_2).Value = a_3 Then



      Worksheets("sheet1").Range(Cells(4, i_2), Cells(335, i_2)).Select
                    Selection.Copy

                Worksheets("sheet5").Range(Cells(1, j), Cells(332, j)).Select
                ActiveSheet.Paste

                    End If

             Next i_2

    j = j + 1
    Next i_1

End If


End Sub

想要問的是這一行
Worksheets("sheet1").Range(Cells(4, i_2), Cells(335, i_2)).Select
                    Selection.Copy
當巨集在執行的時候會發生標題上所說的錯誤! 懇請版上大大跟我說一下哪邊出問題了!

感激不盡ORZ

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 219.85.59.207
推 ClubT:Cells前面加上 Worksheets("sheet1"). 試試
→ HULK10425:謝謝，立馬試試!
→ HULK10425:C大可以執行了! 感激不盡。ORZ