作者HULK10425 (菩提王子)
看板Visual_Basic
标题[VBA ] 应用程式或物件定义上的错误
时间Tue Apr 3 14:44:11 2012
程式码如下
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
1F：推 ClubT:Cells前面加上 Worksheets("sheet1"). 试试 04/04 06:56
2F：→ HULK10425:谢谢，立马试试! 04/05 09:00
3F：→ HULK10425:C大可以执行了! 感激不尽。ORZ 04/05 18:04