[發問] 用圖表只抓取最後100筆資料麻煩大大了!!

xxyyzzxyz627

請問各位大大該怎麼寫
如果我A欄有100筆資料 我要用圖表 但只要最後一百筆資料
如果我新增了1筆資料變 101 他就會跑出2-101的資料請問指令該怎麼寫@@

xxyyzzxyz627

回復 1# xxyyzzxyz627

活頁簿1.rar (72.86 KB)

下載次數: 16

2016-6-19 20:08

忘了附檔案麻煩大大門了

GBKEE

回復 2# xxyyzzxyz627
試試看
Sheets("工作表1") 模組的程式碼

1. Option Explicit
   
2. Private Sub Worksheet_Change(ByVal Target As Range)
   
3.     If Target.Row = Range("a" & Rows.Count).End(xlUp).Row Then EX
   
4. End Sub
   
5. 
   
6. Sub EX()
   
7.     Dim Rng As Range
   
8.     With Sheets("工作表1")
   
9.         Set Rng = .Range("a1").End(xlDown)
   
10.         If Rng.Row < 100 Then
    
11.             Set Rng = .Range("A1").Resize(Rng.Row, 6)
    
12.         Else
    
13.             Set Rng = Rng.Offset(-99).Resize(100, 6)
    
14.         End If
    
15.             .ChartObjects(1).Chart.SetSourceData Source:=Rng  '指定圖表設定來源資料範圍。
    
16.             '.ChartObjects 圖表物件集合
    
17.     End With
    
18. End Sub

複製代碼

c_c_lai

回復 2# xxyyzzxyz627
閒著無事，便來隨手測試同時亦增長知識。
GBKEE 版大程式執行出來的圖表畫面：

下載 (151.13 KB)

2016-6-23 07:33

stillfish00

回復 2# xxyyzzxyz627
這可以直接用定義名稱達成
名稱管理員內依序新增:
    最後兩百筆    工作表1    =OFFSET($A$1:$F$1,COUNTA($A:$A)-200,,200)
    日期資料        工作表1    =OFFSET(最後兩百筆,,,,1)
    D欄資料         工作表1    =OFFSET(最後兩百筆,,3,,1)

圖表>選取資料>編輯水平座標軸    =工作表1!日期資料
                            新增數列               =工作表1!D欄資料