c_c_lai

回復 10# saleen
問題一：
妳的附件原始檔，之前我在開啟它時曾經足足等了 五 ~ 十分鐘不等還無法進入，
所以我採用分段方式才將妳圖表的問題 (#5 樓  -  回文) 消除。這也是妳說的：
" Excel 的圖表繪圖速度好慢喔..  每次開檔案之後都要等它畫完圖 "
" upd 不知道為什麼還是不會自動執行，一定要我手動點執行巨集它才會跑
  我都已經給它 20 秒的等候時間了 "
事實上、妳那 20 秒的等候時間早就過了不知多久時候了，這亦是不會執行
upd() 的真正原因。除非你有權限能下載附件去覆蓋掉妳的 "成交比重分析.xlsm"
問題二：
TimeScale 的問題是圖表內部控制，無法任由使用者異動。這方面可能要直接去
請教微軟了。

c_c_lai

回復 10# saleen
成交比重分析.rar (35.04 KB)

下載次數: 5

2013-11-4 16:16

c_c_lai

回復 10# saleen
我想到了一個解決良方！
剛才我試了一下開啟到完全進入作業的時間
大約需時 30 秒 ~ 或之上，妳把等候時間加上
newSecond = Second(Now()) + 30    '   或者 35 秒
便解決問題了。

saleen

回復 13# c_c_lai


    感謝 Lai 大大 !
我來試試看
等會來回報結果 !

saleen

我改成 40 秒它還是一樣
都顯示 #N/A
><...

c_c_lai

我改成 40 秒它還是一樣
都顯示 #N/A
>
saleen 發表於 2013-11-6 14:25

請你查看一下  J44 到 M44 資料數據是否為 都顯示 #N/A，
如果答案是 Yes：
1.   妳的券商軟體是否已開啟？
2.  開啟順序應為： 券商軟體  --->   Excel  --->  連線作業。
如果答案是 No：
1.  B2 到 E2 欄內容為何？

saleen

回復 16# c_c_lai


   

下載 (224.88 KB)

2013-11-7 14:55

它就是不會自己執行 upd
手動執行就正常了
好怪 ><

c_c_lai

回復 17# saleen
妳把 upd()  更換成以下的程式碼便OK 了。

1. Sub upd()
   
2.     Dim Rng As Range
   
3.    
   
4.     With 工作表1
   
5.         Set Rng = .[B2].Resize(1, 5)
   
6.         
   
7.         If .[A2] = Date Then
   
8.             Rng(1) = "=J44"
   
9.             Rng(2) = "=K44"
   
10.             Rng(3) = "=L44"
    
11.             Rng(4) = "=M44"
    
12.             Rng(5) = "=100-B2-D2"
    
13.             Rng.Value = Rng.Value              '  將公式以欄值取代
    
14.         End If
    
15.     End With
    
16.    
    
17.     reDraw       '  重新繪製圖表座標值
    
18. End Sub

複製代碼

試試看！

saleen

回復 18# c_c_lai


    感謝 Lai 大 ~
雖然最後還是沒獲得解決 T_T
目前就暫時用手動的方式了..