Board logo

標題: [發問] excel圖表問題 [打印本頁]
作者: gogotony    時間: 2011-11-18 20:51     標題: excel圖表問題

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

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

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

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

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

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

不知道有沒有高手能夠替我解答，感激不盡~
作者: GBKEE    時間: 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工作表的程式碼
  1. Option Explicit
  2. Private Sub Worksheet_Change(ByVal Target As Range)
  3.     Ex Target
  4. End Sub
  5. Private Sub Ex(t As Range)
  6.     Dim 繪圖區 As Range
  7.     If [count(C:C)] > 0 Then
  8.         i = [count(C:C)]
  9.     Else
  10.         i = 1
  11.     End If
  12.     Set 繪圖區 = Range("C1", "C" & i)
  13.     ChartObjects("圖表 1").Activate
  14.     ActiveChart.SetSourceData 繪圖區, 2
  15.     t.Select
  16. End Sub
複製代碼
作者: moonsmyrna    時間: 2011-12-20 17:55

回復 2# GBKEE

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



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)