On Jun 7, 2017, at 7:40 PM, 方家晟 wrote:
1. 我這邊抓上櫃正常、資料無缺。請將這句放在 Public Sub OTC(cd$, dc) 的最後一行、在End Sub之前,回傳(檢視→)即時運算視窗裡顯示的資訊供除錯參考。 Debug.Print ps1; ps2; ps3; ps4
我這裡的資訊顯示 527 537 544 556
2. mikeon88 發表於 2017-6-3 19:38 :「微軟的問題」
案:請不要錯怪微軟,問題是自行採用「.Calculation = xlManual」卻沒有把後面需要計算的地方看清楚。
原版:
[y30] = c.Offset(0, -1): c.Offset(0, -1) = [y31] '成立時間
[y30] = c.Offset(1, -1): c.Offset(1, -1) = [y31]: [w69] = [y31] '上市時間
修正:
[y30] = c.Offset(0, -1): [y31].Calculate: c.Offset(0, -1) = [y31] '成立時間
[y30] = c.Offset(1, -1): [y31].Calculate: c.Offset(1, -1) = [y31]: [w69] = [y31] '上市時間
|