為什麼這篇物件定義鄉民發文收入到精華區：因為在物件定義這個討論話題中，有許多相關的文章在討論，這篇最有參考價值！作者HULK10425 (菩提王子)看板Visual_Basic標題[VBA ] 應用程式或物件定義...
物件定義 在 鄭興 Xing Zheng Instagram 的精選貼文
2021-09-16 05:00:51
💧 #鄭興和我的眼淚博物館 前陣子看完了《我是遺物整理師》，主角的職業是透過Move to Heaven公司接受委託，為去世的人整理遺物。無論逝者生前經歷過什麼，整理師都會細心爬梳每一個物件，去蕪存菁，化整為零，最後將之一生濃縮在一個小小的紙盒裡面，視為最後的遺痕，交付給親人或朋友。 我一直在想...
程式碼如下
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"). 試試 04/04 06:56
→ HULK10425:謝謝，立馬試試! 04/05 09:00
→ HULK10425:C大可以執行了! 感激不盡。ORZ 04/05 18:04