GBKEE

¦^´_ 1# kerochen

1. Option Explicit
   
2. Private Sub CommandButton1_Click()
   
3.     Dim i As Integer
   
4.     With ActiveSheet
   
5.         i = .ChartObjects.Count
   
6.         With .ChartObjects.Add(Left:=100, Width:=375, Top:=75, Height:=225).Chart
   
7.             .ChartType = xlXYScatterLines
   
8.             .SetSourceData Source:=Sheets("Sheet1").Range("F6:J7")
   
9.             .Parent.Name = "Name of this Chart " & i + 1
   
10.         End With
    
11.         MsgBox .ChartObjects(ChartObjects.Count).Name
    
12.         .ChartObjects("Name of this Chart " & i + 1).Select
    
13.     End With
    
14. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 1# kerochen

Index ¬OVBAªºÃöÁä¦r,ÅܼƦWºÙ¤£­n¥Î¨ì.  

1. pos = 15
   
2. For Index = 3 To 7  '7-3= 4 + 1  ­n¶]5¦¸
   
3.     For indexb = 6 To 10  '10-6= 4 + 1  ­n¶]5¦¸
   
4.     ' 5 * 5  ­n¶]25¦¸ °j°é

½Æ»s¥N½X

½ÐªþÀɬݬÝ