標題: [發問] 用圖表只抓取最後100筆資料麻煩大大了!! [打印本頁]

---

作者: xxyyzzxyz627    時間: 2016-6-19 19:55     標題: 用圖表只抓取最後100筆資料麻煩大大了!!

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

---

作者: xxyyzzxyz627    時間: 2016-6-19 20:09

回復 1# xxyyzzxyz627

[attach]24520[/attach]

忘了附檔案麻煩大大門了

---

作者: GBKEE    時間: 2016-6-23 06:27

回復 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    時間: 2016-6-23 07:35

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

---

作者: stillfish00    時間: 2016-6-23 14:25

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

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

---

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