返回列表 上一主題 發帖

(已解決)關於動態圖表定義命名範圍後 新增資料不會自動更新

moonsmyrna

帖子
3 
主題
1 
精華
0 
積分
15 
點名
0  
作業系統
XP 
軟體版本
Office 2003 
閱讀權限
10 
性別
女 
註冊時間
2011-6-23 
最後登錄
2012-4-6 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-12-15 12:29 | 只看該作者

(已解決)關於動態圖表定義命名範圍後 新增資料不會自動更新

本帖最後由 moonsmyrna 於 2011-12-20 17:56 編輯

各位前輩你好~

我想在表格新增欄位(不是新增列)時，圖表跟著變動
例如目前有A,B,C欄位 我想新增D,E
但問題是我設定好圖表的資料範圍=graphexpr後，資料顯示正確
但新增D,E欄位時，卻沒反應，要手動再設一次資料範圍=graphexpr才會更新
我目前有定義命名範圍如下
graphexpr=OFFSET('合併 (2)'!$B$3:$B$10,0,0,8,COUNTA('合併 (2)'!$B$3:$L$3))

我所做的檔案如附件 Netbecnch.zip (11.08 KB)

是不是我有哪裡用錯了呢>"<再麻煩各位指教
或是有其他文章可參考的呢
收藏 分享

moonsmyrna

帖子
3 
主題
1 
精華
0 
積分
15 
點名
0  
作業系統
XP 
軟體版本
Office 2003 
閱讀權限
10 
性別
女 
註冊時間
2011-6-23 
最後登錄
2012-4-6 
2#
發表於 2011-12-20 17:50 | 只看該作者
本帖最後由 moonsmyrna 於 2011-12-20 17:57 編輯

相信答案就在討論版中，所以大家才都沒理我，既然這樣，只好自力救濟了!!

最後爬文借助GBKEE前輩的VBA程式&google大神的力量解決了這次的困難
GBKEE前輩回答的主題
提供圖表相關的VBA程式，對我來說滿有用的(-不召蜂引蝶的小花-)

終於完成不管新增列或欄的資料，圖表都會跟著變動~vba程式碼變更如下
  1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  2.     Dim 繪圖區 As Range
  3.     Dim i, j As String
  4.    
  5.     If [COUNTA(合併!$A:$A)] > 0 Then
  6.         i = [COUNTA(合併!$A:$A)] '計算有值的列數
  7.         j = [SUBSTITUTE(ADDRESS(ROW(),COUNTA(合併!$A$2:$Z$2),4),ROW(),"")] '計算有值的行數，並轉換成行名 ex:第1行為A
  8.     Else
  9.         i = 2
  10.         j = "B"
  11.     End If
  12.    
  13.     Set 繪圖區 = Range("B2", j & i)
  14.     ChartObjects("Chart 1").Activate
  15.     ActiveChart.SetSourceData 繪圖區, 2
  16.     ActiveChart.ApplyCustomType ChartType:=xlUserDefined, TypeName:="cheryl" '設定圖表類型 自訂cheryl
  17.     ActiveChart.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Throughput" 'Y軸title
  18.     ActiveChart.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Engines" 'X軸title
  19.     ActiveChart.SeriesCollection(1).XValues = Range("A3", "A" & i) '設定X軸類別
  20.     Target.Select
  21. End Sub
複製代碼
附上完成版excel Netbecnch2_o2.zip (22.79 KB)

當然還有些BUG...像是如果不是連續資料(ex: AAA,BBB,<空格>,CCC)的話 圖表就會怪怪的
再請大家指教OTZ

TOP

        靜思自在 : 甘願做、歡喜受。
返回列表 上一主題