VBA µe¹Ï¤è¦¡½Ð¯q?????

iverson105

½Ð±Ð¦U¦ì¤j¤j:
§Ú¦³5­Ó¥H¤Wªºsheets¸ê®Æ,·Q­n¦Û°Ê§ì¨ú¨ä¤¤columnªº¸ê®Æ¨Ãµe¦¨´²¥¬¹Ï(¸ê®Æsheet¤£¤@©w,¦³®É¶W­Ó10­Ósheets .....½Ð°Ý¥H¤Uµ{¦¡·|¤£·|¤Ó±`¦³¥i¥H²µuÂI¶Ü?
PS:¦pªG§Ú­nµe²Ä¤G±i¹Ï¦b¦P¤@±isheet¤º,À³¸Ó«ç»ò¼g(¸ê®Æ¤]¬O®Ú¾Ú¤§«eªºsheet ¦ý¤£¦Pcolumn)
¥H¤U¬O²Ä¤@±i¹Ïªºcode:

1. Sub ALL_PLOT()
   
2. 
   
3. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
   
4. '                                                                             '
   
5. '                               Plot Create                                  '
   
6. '                                                                             '
   
7. '                                                                             '
   
8. ' ''''''''''''''''''''''CHART(1) Ave.Ave. G.R. '''''''''''''''''''''''''''''''
   
9. 
   
10. ''''''''''''''''''''''''''Chart(1) Ave. G.R. / HSP ADD''''''''''''''''''''''''
    
11.   Sheets("R2R_analysis").Select
    
12.   ActiveSheet.Shapes.AddChart.Select
    
13.     ActiveChart.ChartType = xlXYScatter
    
14. 
    
15.    Dim aSh As Worksheet
    
16.     Application.ScreenUpdating = False
    
17.     For Each aSh In Worksheets
    
18.     If aSh.Name = "¤u§@ªí1 (2)" Then
    
19.     Call polt_1
    
20.     ElseIf aSh.Name = "¤u§@ªí1 (3)" Then
    
21.     Call polt_2
    
22.     ElseIf aSh.Name = "¤u§@ªí1 (4)" Then
    
23.     Call polt_3
    
24.     ElseIf aSh.Name = "¤u§@ªí1 (5)" Then
    
25.     Call polt_4
    
26.     ElseIf aSh.Name = "¤u§@ªí1 (6)" Then
    
27.     Call polt_5
    
28.    
    
29.      ElseIf aSh.Name = "¤u§@ªí1 (7)" Then
    
30.     Call polt_6
    
31.    
    
32.      ElseIf aSh.Name = "¤u§@ªí1 (8)" Then
    
33.     Call polt_7
    
34.    
    
35.      ElseIf aSh.Name = "¤u§@ªí1 (9)" Then
    
36.     Call polt_8
    
37.      ElseIf aSh.Name = "¤u§@ªí1 (10)" Then
    
38.     Call polt_9
    
39.    
    
40.    
    
41.     ElseIf aSh.Name = "¤u§@ªí1 (11)" Then
    
42.     Call polt_10
    
43.     ElseIf aSh.Name = "¤u§@ªí1 (12)" Then
    
44.       Call polt_11
    
45.       
    
46.    End If
    
47.         
    
48.         
    
49.   Next
    
50.     Application.ScreenUpdating = True
    
51.       
    
52. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    
53.   ActiveChart.ApplyLayout (4)
    
54.    
    
55. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    
56.    
    
57. Dim xRg As Range
    
58.      Dim xChart As ChartObject
    
59.     Set xRg = Range("A20:J50")
    
60.   Set xChart = ActiveSheet.ChartObjects(1)
    
61.    With xChart
    
62.   .Top = xRg(1).Top
    
63. .Left = xRg(1).Left
    
64. .Width = xRg.Width
    
65. .Height = xRg.Height
    
66.    End With
    
67. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    
68.    
    
69.    ActiveChart.SetElement (msoElementChartTitleAboveChart)
    
70.     Selection.Caption = "R2R_Ave.G.R."
    
71.     ActiveChart.SetElement (msoElementPrimaryValueAxisTitleRotated)
    
72.     Selection.Caption = "G.R.(mm/hr)"
    
73.     ActiveChart.SetElement (msoElementPrimaryCategoryAxisTitleAdjacentToAxis)
    
74.     Selection.Caption = "Length(mm)"
    
75.    
    
76.     ActiveSheet.ChartObjects(1).Activate
    
77.     ActiveChart.Axes(xlCategory).Select
    
78.     ActiveChart.Axes(xlCategory).MinimumScale = 0
    
79.     ActiveChart.Axes(xlCategory).MaximumScale = 1100
    
80.     ActiveChart.Axes(xlCategory).MajorUnit = 100
    
81.     ActiveChart.Axes(xlCategory).MinorUnit = 50
    
82.     ActiveChart.Axes(xlCategory).CrossesAt = 0
    
83.     ActiveChart.Axes(xlValue).CrossesAt = 0
    
84. 
    
85.     ActiveChart.SetElement (msoElementPrimaryValueGridLinesMajor)
    
86.     ActiveChart.SetElement (msoElementPrimaryCategoryGridLinesMajor)
    
87.   
    
88. 
    
89.     Application.ScreenUpdating = True
    
90.   
    
91.   
    
92.   
    
93. 
    
94.   
    
95. End Sub
    
96. Sub polt_1()
    
97.    
    
98.     ActiveChart.SeriesCollection.NewSeries
    
99.     ActiveChart.SeriesCollection(1).Name = Sheets("¤u§@ªí1 (2)").Range("U1")
    
100.     ActiveChart.SeriesCollection(1).XValues = "='¤u§@ªí1 (2)'!$A$2:$A$20000"
     
101.     ActiveChart.SeriesCollection(1).Values = "='¤u§@ªí1 (2)'!$D$2:$D$20000"
     
102.    
     
103. End Sub
     
104. Sub polt_2()
     
105.     ActiveChart.SeriesCollection.NewSeries
     
106.     ActiveChart.SeriesCollection(2).Name = Sheets("¤u§@ªí1 (3)").Range("U1")
     
107.     ActiveChart.SeriesCollection(2).XValues = "='¤u§@ªí1 (3)'!$A$2:$A$20000"
     
108.     ActiveChart.SeriesCollection(2).Values = "='¤u§@ªí1 (3)'!$D$2:$D$20000"
     
109.    
     
110.   End Sub
     
111. 
     
112. Sub polt_3()
     
113.     ActiveChart.SeriesCollection.NewSeries
     
114.     ActiveChart.SeriesCollection(3).Name = Sheets("¤u§@ªí1 (4)").Range("U1")
     
115.     ActiveChart.SeriesCollection(3).XValues = "='¤u§@ªí1 (4)'!$A$2:$A$20000"
     
116.     ActiveChart.SeriesCollection(3).Values = "='¤u§@ªí1 (4)'!$D$2:$D$20000"
     
117.    
     
118.   End Sub
     
119. 
     
120. Sub polt_4()
     
121.     ActiveChart.SeriesCollection.NewSeries
     
122.     ActiveChart.SeriesCollection(4).Name = Sheets("¤u§@ªí1 (5)").Range("U1")
     
123.     ActiveChart.SeriesCollection(4).XValues = "='¤u§@ªí1 (5)'!$A$2:$A$20000"
     
124.     ActiveChart.SeriesCollection(4).Values = "='¤u§@ªí1 (5)'!$D$2:$D$20000"
     
125.    
     
126.   End Sub
     
127. 
     
128. Sub polt_5()
     
129.     ActiveChart.SeriesCollection.NewSeries
     
130.     ActiveChart.SeriesCollection(5).Name = Sheets("¤u§@ªí1 (6)").Range("U1")
     
131.     ActiveChart.SeriesCollection(5).XValues = "='¤u§@ªí1 (6)'!$A$2:$A$20000"
     
132.     ActiveChart.SeriesCollection(5).Values = "='¤u§@ªí1 (6)'!$D$2:$D$20000"
     
133.    
     
134.   End Sub
     
135. 
     
136. 
     
137. Sub polt_6()
     
138.     ActiveChart.SeriesCollection.NewSeries
     
139.     ActiveChart.SeriesCollection(6).Name = Sheets("¤u§@ªí1 (7)").Range("U1")
     
140.     ActiveChart.SeriesCollection(6).XValues = "='¤u§@ªí1 (7)'!$A$2:$A$20000"
     
141.     ActiveChart.SeriesCollection(6).Values = "='¤u§@ªí1 (7)'!$D$2:$D$20000"
     
142.    
     
143.   End Sub
     
144. 
     
145. Sub polt_7()
     
146.     ActiveChart.SeriesCollection.NewSeries
     
147.     ActiveChart.SeriesCollection(7).Name = Sheets("¤u§@ªí1 (8)").Range("U1")
     
148.     ActiveChart.SeriesCollection(7).XValues = "='¤u§@ªí1 (8)'!$A$2:$A$20000"
     
149.     ActiveChart.SeriesCollection(7).Values = "='¤u§@ªí1 (8)'!$D$2:$D$20000"
     
150.    
     
151.   End Sub
     
152.   Sub polt_8()
     
153.     ActiveChart.SeriesCollection.NewSeries
     
154.     ActiveChart.SeriesCollection(8).Name = Sheets("¤u§@ªí1 (9)").Range("U1")
     
155.     ActiveChart.SeriesCollection(8).XValues = "='¤u§@ªí1 (9)'!$A$2:$A$20000"
     
156.     ActiveChart.SeriesCollection(8).Values = "='¤u§@ªí1 (9)'!$D$2:$D$20000"
     
157.    
     
158.   End Sub
     
159.    Sub polt_9()
     
160.     ActiveChart.SeriesCollection.NewSeries
     
161.     ActiveChart.SeriesCollection(9).Name = Sheets("¤u§@ªí1 (10)").Range("U1")
     
162.     ActiveChart.SeriesCollection(9).XValues = "='¤u§@ªí1 (10)'!$A$2:$A$20000"
     
163.     ActiveChart.SeriesCollection(9).Values = "='¤u§@ªí1 (10)'!$D$2:$D$20000"
     
164.    
     
165.   End Sub
     
166.    Sub polt_10()
     
167.     ActiveChart.SeriesCollection.NewSeries
     
168.     ActiveChart.SeriesCollection(10).Name = Sheets("¤u§@ªí1 (11)").Range("U1")
     
169.     ActiveChart.SeriesCollection(10).XValues = "='¤u§@ªí1 (11)'!$A$2:$A$20000"
     
170.     ActiveChart.SeriesCollection(10).Values = "='¤u§@ªí1 (11)'!$D$2:$D$20000"
     
171.     End Sub
     
172. Sub polt_11()
     
173. ActiveChart.SeriesCollection.NewSeries
     
174.     ActiveChart.SeriesCollection(11).Name = Sheets("¤u§@ªí1 (12)").Range("U1")
     
175.     ActiveChart.SeriesCollection(11).XValues = "='¤u§@ªí1 (12)'!$A$2:$A$20000"
     
176.     ActiveChart.SeriesCollection(11).Values = "='¤u§@ªí1 (12)'!$D$2:$D$20000"
     
177. End Sub

½Æ»s¥N½X

Tks

jcchiang

¦^´_ 1# iverson105

¿@ÁY³o¼Ë,¸Õ¸Õ¬Ý
Sub ALL_PLOT()
Dim x As Integer
Sheets("R2R_analysis").Select
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlXYScatter
Application.ScreenUpdating = False
For x = 2 To Worksheets.Count
   ActiveChart.SeriesCollection.NewSeries
   ActiveChart.SeriesCollection(x - 1).Name = Sheets("¤u§@ªí1 (" & x & ")").Range("U1")
   ActiveChart.SeriesCollection(x - 1).XValues = Sheets("¤u§@ªí1 (" & x & ")").Range("A2:A20000")
   ActiveChart.SeriesCollection(x - 1).Values = Sheets("¤u§@ªí1 (" & x & ")").Range("D2:D20000")
Next
Application.ScreenUpdating = True

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
ActiveChart.ApplyLayout (4)

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim xRg As Range
Dim xChart As ChartObject
Set xRg = Range("A20:J50")
Set xChart = ActiveSheet.ChartObjects(1)
With xChart
   .Top = xRg(1).Top
   .Left = xRg(1).Left
   .Width = xRg.Width
   .Height = xRg.Height
End With

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
ActiveChart.SetElement (msoElementChartTitleAboveChart)
Selection.Caption = "R2R_Ave.G.R."
ActiveChart.SetElement (msoElementPrimaryValueAxisTitleRotated)
Selection.Caption = "G.R.(mm/hr)"
ActiveChart.SetElement (msoElementPrimaryCategoryAxisTitleAdjacentToAxis)
Selection.Caption = "Length(mm)"
ActiveSheet.ChartObjects(1).Activate
ActiveChart.Axes(xlCategory).Select
ActiveChart.Axes(xlCategory).MinimumScale = 0
ActiveChart.Axes(xlCategory).MaximumScale = 1100
ActiveChart.Axes(xlCategory).MajorUnit = 100
ActiveChart.Axes(xlCategory).MinorUnit = 50
ActiveChart.Axes(xlCategory).CrossesAt = 0
ActiveChart.Axes(xlValue).CrossesAt = 0
ActiveChart.SetElement (msoElementPrimaryValueGridLinesMajor)
ActiveChart.SetElement (msoElementPrimaryCategoryGridLinesMajor)
Application.ScreenUpdating = True
End Sub

jcchiang

¦^´_ 2# jcchiang
²Ä¤G­Ó°ÝÃD:¦pªG§Ú­nµe²Ä¤G±i¹Ï¦b¦P¤@±isheet¤º,À³¸Ó«ç»ò¼g(¸ê®Æ¤]¬O®Ú¾Ú¤§«eªºsheet ¦ý¤£¦Pcolumn)
¦]¬°¤£½T©w·|µe´X±i¹Ï,©Ò¥Hµ{¦¡·|¥ý¸ß°Ý­nµe´X¦¸(¦pªG¥u·|µe2±i´N±Ny = Application.InputBox("µe¹Ï¦¸¼Æ", "")²¾°£,For z = 1 To y§ï¬°For z = 1 To 2)
¥t¥~²Ä¤G±i¥H«áªº¹ÏColumn¤£ª¾¹D·|¦b­þ¸Ì,¥ý·í§@¦A²Ä¤@±i¹ÏColumn©¹¥kÂ\©ñ,¦pªG¦ì¸m®t²§¸û¦h´N­n¦A­×§ï

Sub ALL_PLOT1()
Dim x, y, z As Integer
y = Application.InputBox("µe¹Ï¦¸¼Æ", "")
For z = 1 To y
Sheets("R2R_analysis").Select
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlXYScatter
Application.ScreenUpdating = False
For x = 2 To Worksheets.Count
   ActiveChart.SeriesCollection.NewSeries
   ActiveChart.SeriesCollection(x - 1).Name = Sheets("¤u§@ªí1 (" & x & ")").Range("U1").Offset(0, (z - 1))
   ActiveChart.SeriesCollection(x - 1).XValues = Sheets("¤u§@ªí1 (" & x & ")").Range("A2:A20000").Offset(0, (z - 1))
   ActiveChart.SeriesCollection(x - 1).Values = Sheets("¤u§@ªí1 (" & x & ")").Range("D2:D20000").Offset(0, (z - 1))
Next
Application.ScreenUpdating = True

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
ActiveChart.ApplyLayout (4)

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim xRg As Range
Dim xChart As ChartObject
Set xRg = Range("A20:J50")
Set xChart = ActiveSheet.ChartObjects(z)
With xChart
   .Top = xRg(z).Top
   .Left = xRg(z).Left
   .Width = xRg.Width
   .Height = xRg.Height
End With

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
ActiveChart.SetElement (msoElementChartTitleAboveChart)
Selection.Caption = "R2R_Ave.G.R." & z
ActiveChart.SetElement (msoElementPrimaryValueAxisTitleRotated)
Selection.Caption = "G.R.(mm/hr)"
ActiveChart.SetElement (msoElementPrimaryCategoryAxisTitleAdjacentToAxis)
Selection.Caption = "Length(mm)"
ActiveSheet.ChartObjects(z).Activate
ActiveChart.Axes(xlCategory).Select
ActiveChart.Axes(xlCategory).MinimumScale = 0
ActiveChart.Axes(xlCategory).MaximumScale = 1100
ActiveChart.Axes(xlCategory).MajorUnit = 100
ActiveChart.Axes(xlCategory).MinorUnit = 50
ActiveChart.Axes(xlCategory).CrossesAt = 0
ActiveChart.Axes(xlValue).CrossesAt = 0
ActiveChart.SetElement (msoElementPrimaryValueGridLinesMajor)
ActiveChart.SetElement (msoElementPrimaryCategoryGridLinesMajor)
Application.ScreenUpdating = True
Next
End Sub

iverson105

¦^´_ 2# jcchiang

·PÁ¤j¤jªº¦^ÂÐ
¦ý¦b¶]ªº®É­Ô¥X²{¿ù»~????????
¦A³Â·Ð«ü±Ð!

ÁÂÁÂ

1. Sub ALL_PLOT_TEST()
   
2. Dim x As Integer
   
3. Sheets("R2R_analysis").Select
   
4. ActiveSheet.Shapes.AddChart.Select
   
5. ActiveChart.ChartType = xlXYScatter
   
6. Application.ScreenUpdating = False
   
7. For x = 2 To Worksheets.Count
   
8.    ActiveChart.SeriesCollection.NewSeries
   
9.    ActiveChart.SeriesCollection(x - 1).Name = Sheets("¤u§@ªí1 (" & x & ")").Range("U1")   .....................................................(½Ð°Ý³o¬q¥X¿ù»~(°}¦C¯Á¤Þ ¶W¥X½d³ò) ­n¦p¦ó­×¥¿
   
10.    ActiveChart.SeriesCollection(x - 1).XValues = Sheets("¤u§@ªí1 (" & x & ")").Range("A2:A20000")
    
11.    ActiveChart.SeriesCollection(x - 1).Values = Sheets("¤u§@ªí1 (" & x & ")").Range("D2:D20000")
    
12. Next
    
13. Application.ScreenUpdating = True

½Æ»s¥N½X

jcchiang

¦^´_ 4# iverson105

³o¬q¬O¦b§ì¤u§@ªí¸ê®Æ¨ì¹Ïªí¸Ì
§Aªº¤u§@ªí¦WºÙ¬O"¤u§@ªí1 (2)",¤u§@ªí1 (3)"...........¥H¤W¶Ü??
,¥i¥H¤W¶Ç§AªºÀɮ׶Ü??³o¼Ë¤ñ¸û¯àª¾¹D­ì¦]

iverson105

·PÁ¤j¤jªº«ü±Ð
·Q¦b½Ð°Ý¤@¤U
¥H¤Uªºcode
1.¥i¥H§ï¦¨¹Ïªí©ñ¸mªº¦ì¸m¬O¨Ì§Ú¥u¬Oªº¦ì¸m©T©w¶Ü(ex:Plot1 ¦b A20:J50  '  plot2¦bL20:U50........¥H¦¹Ãþ±À)
2.ÁÙ¦³§¤¼Ð¶b¥i¦Û¤v¥ý¼g¦bcode¤¤¶Ü? ¦]¬°¨C¤@±i¹Ïªº®y¼Ð¶b©ú¦¨¤£¤@¼Ë

·PÁÂ

1. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
   
2. Dim xRg As Range
   
3. Dim xChart As ChartObject
   
4. Set xRg = Range("A20:J50")..........................................................................................(°ÝÃD1)
   
5. Set xChart = ActiveSheet.ChartObjects(z)
   
6. With xChart
   
7.    .Top = xRg(z).Top
   
8.    .Left = xRg(z).Left
   
9.    .Width = xRg.Width
   
10.    .Height = xRg.Height
    
11. End With
    
12. 
    
13. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    
14. ActiveChart.SetElement (msoElementChartTitleAboveChart)
    
15. Selection.Caption = "R2R_Ave.G.R." & z...........................................................................................(°ÝÃD2)
    
16. ActiveChart.SetElement (msoElementPrimaryValueAxisTitleRotated)
    
17. Selection.Caption = "G.R.(mm/hr)"..........................................................................................(°ÝÃD2)
    
18. ActiveChart.SetElement (msoElementPrimaryCategoryAxisTitleAdjacentToAxis)
    
19. Selection.Caption = "Length(mm)"

½Æ»s¥N½X

¦^´_ 3# jcchiang

iverson105

¦^´_ 5# jcchiang

¦n³á!  ±ßÂI¶Ç
(¤W¯Z¤¤ ¤u§@¹q¸£¶Ç¤£¥X¥h)   

·PÁÂ

jcchiang

¦^´_ 6# iverson105

³o¼Ë¥¼ª¾ªºÅܼƤӦh¤F
1.·|µe´X±i¹Ï¤£ª¾
2.¦WºÙ¤S­n¤£¤@¼Ë
3.¨C±i¹Ï®y¼Ð¤S­n¤£¤@¼Ë
°£«D¬O¥ý±N¹Ïªí³]©w¦n­nªº¦WºÙ¸ò®y¼Ð¦A±N¸ê®Æ©ß¶i¥h,
¦pªG¬ÛÃö¸ê®Æ³£¤£©úªº±¡ªp¤U,¤p§Ì¤~²¨¾Ç²L¥i¯à¼g¤£¥X¨Ó,´N­n½Ð¯¸¤Wªº¤j¯««ü¾ÉÅo

jcchiang

¦^´_ 6# iverson105
¥ý¿é¤J©Ò»Ý¸ê®Æ«á,¦A±N¬ÛÃö¸ê®Æ±a¤J¹Ïªí
¦pªG¦³¤£°÷ªº½Ð¨Ì¦¹¤è¦¡¼W¥[­nªº¸ê®Æ

Sub ALL_PLOT2()
Dim x, y, z, R As Integer
Dim CName(10, 10)
R = 0
Do While y = ""                                          '¨¾¤î¸ê®Æ¬°ªÅ¥Õ
   y = Application.InputBox("µe¹Ï¦¸¼Æ", "", 1, 350, 150) '¿é¤J­nµe´X±i¹Ï,¹w³]¬°1±i
   If y = "" Then MsgBox "µe¹Ï¦¸¼Æ¤£±o¬°ªÅ¥Õ!!"
Loop
'----------------------------------¿é¤J¦U¹Ïªí¬ÛÃö¸ê®Æ(©Ò»Ý¸ê®Æ¦Û¦æ¼W¥[)-----------
For z = 1 To y
Do While CName(z, 0) = ""
   CName(z, 0) = Application.InputBox("²Ä" & z & "¹Ï¦W", "", "R2R_Ave.G.R." & z, 350, 150) '¿é¤J¹Ïªí¦WºÙ,¹w³]¬°R2R_Ave.G.R.1
   If CName(z, 0) = "" Then MsgBox "½Ð¿é¤J¹Ï¦W!!"
Loop
Do While CName(z, 1) = ""
   CName(z, 1) = Application.InputBox("²Ä" & z & "¹ÏªºMinimumScale", "", "0", 350, 150)    '¿é¤Jx¶b³Ì¤p®y¼Ð,¹w³]¬°0
   If CName(z, 1) = "" Then MsgBox "MinimumScale¤£±o¬°ªÅ¥Õ!!"
Loop
Do While CName(z, 2) = ""
   CName(z, 2) = Application.InputBox("²Ä" & z & "¹ÏªºMaximumScale", "", "1000", 350, 150) '¿é¤Jx¶b³Ì¤j®y¼Ð,¹w³]¬°0
   If CName(z, 2) = "" Then MsgBox "MaximumScale¤£±o¬°ªÅ¥Õ!!"
Loop
Next
'---------------------------------------------------------------
For z = 1 To y
Sheets("R2R_analysis").Select
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlXYScatter
Application.ScreenUpdating = False
For x = 2 To Worksheets.Count
   ActiveChart.SeriesCollection.NewSeries
   ActiveChart.SeriesCollection(x - 1).Name = Sheets("¤u§@ªí1 (" & x & ")").Range("U1").Offset(0, (z - 1))
   ActiveChart.SeriesCollection(x - 1).XValues = Sheets("¤u§@ªí1 (" & x & ")").Range("A2:A20000").Offset(0, (z - 1))
   ActiveChart.SeriesCollection(x - 1).Values = Sheets("¤u§@ªí1 (" & x & ")").Range("D2:D20000").Offset(0, (z - 1))
Next
Application.ScreenUpdating = True

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
ActiveChart.ApplyLayout (4)

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim xRg As Range
Dim xChart As ChartObject
Set xRg = Range("A20:J50").Offset(0, R)
Set xChart = ActiveSheet.ChartObjects(z)
With xChart
   .Top = xRg(z).Top
   .Left = xRg(z).Left
   .Width = xRg.Width
   .Height = xRg.Height
End With

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
ActiveChart.SetElement (msoElementChartTitleAboveChart)
Selection.Caption = CName(z, 0)
ActiveChart.SetElement (msoElementPrimaryValueAxisTitleRotated)
Selection.Caption = "G.R.(mm/hr)"
ActiveChart.SetElement (msoElementPrimaryCategoryAxisTitleAdjacentToAxis)
Selection.Caption = "Length(mm)"
ActiveSheet.ChartObjects(z).Activate
ActiveChart.Axes(xlCategory).Select
ActiveChart.Axes(xlCategory).MinimumScale = CName(z, 1)
ActiveChart.Axes(xlCategory).MaximumScale = CName(z, 2)
ActiveChart.Axes(xlCategory).MajorUnit = 100
ActiveChart.Axes(xlCategory).MinorUnit = 50
ActiveChart.Axes(xlCategory).CrossesAt = 0
ActiveChart.Axes(xlValue).CrossesAt = 0
ActiveChart.SetElement (msoElementPrimaryValueGridLinesMajor)
ActiveChart.SetElement (msoElementPrimaryCategoryGridLinesMajor)
Application.ScreenUpdating = True
R = R + 10 '¨C±i¹Ïªí¦ì¸m¶¡¹j
Next
End Sub

iverson105

¦^´_ 9# jcchiang


    ·PÁ¤j¤jªº¦^ÂÐ ,§Ú¦A¸Õ¤@¤U,·PÀ³¤£ºÉ


ÁÂÁÂ