[發問] excel圖表問題

請問我有一張圖表，已經固定好需要繪製的儲存格數，所以原則上只要在只定的格子內填入數字，圖表就會立即更新(目前是使用折線圖)

但是現在碰到的問題是，剛好要拿來製圖的儲存格的值，來源是由公式運算得來，例如IF( A1="", "", A1)

也就是說，雖然儲存格顯示的是空白，但是實際上是有公式的

因此在圖表上，這些空白儲存格會被列入圖表裡面，而且數值為零(線會連過去)，

請問是否有辦法排除這些空白卻又帶有公式的儲存格，讓這些零點不要出現在圖表內?

相同的狀況也在COUNTA()這個函數中出現，儲存格雖然是空白，但裡頭有公式還是會被拿來算進去

不知道有沒有高手能夠替我解答，感激不盡~

樓主熱帖

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

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

2^#

發表於 2011-11-19 08:06 | 只看該作者

本帖最後由 GBKEE 於 2011-11-19 08:19 編輯

回復 1# gogotony
工作表函數
Count 計算含有數字的儲存格數量
CountA 計算不是空白的儲存格數量
VBA中使用工作表函數 [Count(C:C)] 不可用變數 , Application.Count (變數)

1 工作表中定義名稱繪圖區=OFFSET(Sheet1!$C$1,0,0,COUNT(Sheet1!$C:$C),1)
圖表的來源資料 :資料範圍 =繪圖區

2工作表的程式碼

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Ex Target
End Sub
Private Sub Ex(t As Range)
Dim 繪圖區 As Range
If [count(C:C)] > 0 Then
i = [count(C:C)]
Else
i = 1
End If
Set 繪圖區 = Range("C1", "C" & i)
ChartObjects("圖表 1").Activate
ActiveChart.SetSourceData 繪圖區, 2
t.Select
End Sub

複製代碼

TOP

moonsmyrna

小學生 Rank: 1

帖子: 3
主題: 1
精華: 0
積分: 15
點名: 0
作業系統: XP
軟體版本: Office 2003
閱讀權限: 10
性別: 女
註冊時間: 2011-6-23
最後登錄: 2012-4-6

3^#

發表於 2011-12-20 17:55 | 只看該作者

回復 2# GBKEE

感謝GBKEE前輩，此程式已解決我困擾的問題QQ~我的發帖如下，再請指教~
(已解決)關於動態圖表定義命名範圍後新增資料不會自動更新

TOP