saleen

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

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2013-10-29 18:08 | 只看該作者

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

圖表, 日期, 顯示, 跳過

本帖最後由 saleen 於 2013-10-29 18:11 編輯

論壇不知道為什麼不能上傳圖片

小妹想請問的是
像圖中紅圈的部份
因為是六日所以是沒有資料的
可是 Excel 的圖表卻會自行補上沒有資料的日期導致像圖中那樣的情況

有什麼辦法可以跳過沒資料的日期不要顯示嗎 ?
我試過用文字格式不要用日期 , 但這樣圖會變成全部擠到最左邊不知道什麼原因

還請各位大大救救小妹 ><

樓主熱帖

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

saleen

中學生 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

TOP

c_c_lai

博士班 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

複製代碼

試試看！

TOP

saleen

中學生 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

TOP

c_c_lai

博士班 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 欄內容為何？

TOP

saleen

中學生 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

TOP

saleen

中學生 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

TOP

c_c_lai

博士班 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 秒
便解決問題了。

TOP

c_c_lai

博士班 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)

TOP

c_c_lai

博士班 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 的問題是圖表內部控制，無法任由使用者異動。這方面可能要直接去
請教微軟了。

TOP