[問題] 這段程式為何變成無窮迴圈
(若是和其他不同軟體互動之問題 請記得一併填寫)
軟體:excel
版本:2007
Sub xd()
s = InputBox("股票個數?")
Z = InputBox("年度天數?")
For w = 0 To s * 250 + 4
For n = 0 To Z
Range("A4:D12").Select
ActiveCell.Offset(w, w).Select
Selection.Copy
Sheets("Sheet2").Select
Range("A2:D10").Select
ActiveSheet.Paste
Range("I4").Select
Selection.Copy
Sheets("Sheet3").Select
Range("B1").Select
ActiveCell.Offset(n, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
n = n + 1
Next
s = w + s
Next
End Sub
這段程式主要的問題在於選取sheet1的資料複製後
無法貼到sheet2,然後回圈似乎也有點問題,不知道如何改QQ
因為我想要複製貼上完以後,在移到下S格做重複的複製貼上
但是我excel的VBA做不出來
還希望有大大能指導一下Q__Q
--
(Gossiping) [ptt.cc] [新聞] 陳致中參選 衝擊民進黨選票
→ Ebisu:他選的上我請樓下每人一桶KFC 05/12 11:05
推 Dillon0801:他會請的話 =====我請大家吃麥當勞超值全餐===== 05/12 11:18
推 nopass:只要Ebisu請以上這些人一人一桶kfc 我就請下面的人吃雞腿堡 05/12 11:47
推 debris:Ebisu有請每人一桶kfc的話 我請下面的人吃鼎王 ZZZzzzzz 05/12 12:02
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.131.139.22
※ 編輯: k29571159 來自: 140.131.139.22 (06/06 12:28)
→
06/06 20:47, , 1F
06/06 20:47, 1F
→
06/06 20:47, , 2F
06/06 20:47, 2F
→
06/06 20:50, , 3F
06/06 20:50, 3F
→
06/06 22:16, , 4F
06/06 22:16, 4F
→
06/06 22:17, , 5F
06/06 22:17, 5F
→
06/07 02:04, , 6F
06/07 02:04, 6F
→
06/07 02:04, , 7F
06/07 02:04, 7F
→
06/07 02:06, , 8F
06/07 02:06, 8F