如何在 Excel 的圖表中將無資料日期不顯示 - Excelㄧ般區 - 麻辣家族討論版版

麻辣家族討論版版 » Excelㄧ般區 » 如何在 Excel 的圖表中將無資料日期不顯示

返回列表下一主題上一主題發帖

[發問] 如何在 Excel 的圖表中將無資料日期不顯示

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

11^# 跳轉到 »

發表於 2013-11-4 16:14 | 只看該作者

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

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

12^#

發表於 2013-11-4 16:16 | 只看該作者

回復 10# saleen

成交比重分析.rar (35.04 KB)

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

13^#

發表於 2013-11-4 16:36 | 只看該作者

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

中學生 Rank: 2

帖子: 53
主題: 13
精華: 0
積分: 70
點名: 0
作業系統: Windows 8 x64
軟體版本: Office 2013
閱讀權限: 20
性別: 女
來自: Taipei
註冊時間: 2013-6-3
最後登錄: 2015-1-28

14^#

發表於 2013-11-6 14:14 | 只看該作者

回復 13# c_c_lai

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

小妹在此向各位大大求教了 Orz

中學生 Rank: 2

帖子: 53
主題: 13
精華: 0
積分: 70
點名: 0
作業系統: Windows 8 x64
軟體版本: Office 2013
閱讀權限: 20
性別: 女
來自: Taipei
註冊時間: 2013-6-3
最後登錄: 2015-1-28

15^#

發表於 2013-11-6 14:25 | 只看該作者

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

小妹在此向各位大大求教了 Orz

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

16^#

發表於 2013-11-6 14:38 | 只看該作者

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

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

中學生 Rank: 2

帖子: 53
主題: 13
精華: 0
積分: 70
點名: 0
作業系統: Windows 8 x64
軟體版本: Office 2013
閱讀權限: 20
性別: 女
來自: Taipei
註冊時間: 2013-6-3
最後登錄: 2015-1-28

17^#

發表於 2013-11-7 14:56 | 只看該作者

回復 16# c_c_lai

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

小妹在此向各位大大求教了 Orz

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

18^#

發表於 2013-11-7 15:08 | 只看該作者

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

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

複製代碼

試試看！

中學生 Rank: 2

帖子: 53
主題: 13
精華: 0
積分: 70
點名: 0
作業系統: Windows 8 x64
軟體版本: Office 2013
閱讀權限: 20
性別: 女
來自: Taipei
註冊時間: 2013-6-3
最後登錄: 2015-1-28

19^#

發表於 2013-11-12 14:02 | 只看該作者

回復 18# c_c_lai

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

小妹在此向各位大大求教了 Orz

靜思自在 : 有多少力量就做多少事，不要心存等待，等待才會落空。

返回列表下一主題上一主題