自選股數量更改時程式便有問題

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

1^# 跳轉到 »

發表於 2016-3-28 15:39 | 顯示全部帖子

回復 1# chairles59
除了 c_c_lai 提供不要 'Selection.Delete shift:=xlUp

當我的股票代碼數量有變更時
在程式
If Cells(i, 5) <> "" Then
這個地方經常會卡住

當 Cells(i, 5)="" 時不查詢資料
所查詢的資料依i 的迴圈存放,似乎不當.

lR = Range("A2").End(xlDown).Row 'a欄空白以下全刪除
Rows(lR + 1 & ":400").Clear 'Selection.Delete shift:=xlUp
lra = Range("c2").End(xlDown).Row '買進日期最後一欄
For i = 3 To lra
If Cells(i, 5) <> "" Then '有股票數輸入才再搜尋
Valuesno = "$A$" & i
Linkss = "URL;https://tw.stock.yahoo.com/q/q?s=" & Cells(i, 1) 'linkss字串
po = lR + 3 + (8 * x) '定抓取資料表格迴圈在第16列開始放入資料
x = x + 1 '****'排除不查詢資料的次數****
With ActiveSheet.QueryTables.Add(Connection:=Linkss, Destination:=ActiveSheet.Range("b" & po))

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

靜思自在 : 手心向下是助人，手心向上是求人；助人快樂，求人痛苦。