GBKEE

¦^´_ 2# xxyyzzxyz627
¸Õ¸Õ¬Ý
Sheets("¤u§@ªí1") ¼Ò²Õªºµ{¦¡½X

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("¤u§@ªí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  '«ü©w¹Ïªí³]©w¨Ó·½¸ê®Æ½d³ò¡C
    
16.             '.ChartObjects ¹Ïªíª«¥ó¶°¦X
    
17.     End With
    
18. End Sub

½Æ»s¥N½X