oobird

Sub Macro1()
For Each c In Range([a8], [a8].End(4))
If c >= [b2] And x = 0 Then x = c.Row
If c >= [b3] And y = 0 Then y = c.Row
Next
    ActiveSheet.ChartObjects(1).Select
'   Charts.Add
    ActiveChart.ChartType = xlLineMarkers
    ActiveChart.SetSourceData Source:=Sheets("½u¹Ï").Range("A" & x & ":B" & y), PlotBy:=xlColumns
    ActiveChart.Location Where:=xlLocationAsObject, Name:="½u¹Ï"
    ActiveChart.HasDataTable = False
End Sub

oobird

¬°¦ó­n§â0§ï¬°5¡H
¨£ªþ¥ó
Book3.rar (16.13 KB)

¤U¸ü¦¸¼Æ: 18

2011-3-7 08:51

oobird

¨Sª`·N§AÁÙ¤£¯à¤U¸ü

1. Sub Macro1()
   
2. Dim c As Range, x%, y%
   
3. [b2:b3] = [b2:b3].Value
   
4. For Each c In Range([a8], [a8].End(4))
   
5. If c >= [b2] And x = 0 Then x = c.Row
   
6. If c > [b3] And y = 0 Then y = c.Row - 1
   
7. Next
   
8. If x = 0 Then x = 8
   
9. If y = 0 Then y = [a65536].End(3).Row
   
10. ActiveSheet.ChartObjects(1).Select
    
11. '   Charts.Add
    
12.     ActiveChart.ChartType = xlLineMarkers
    
13.     ActiveChart.SetSourceData Source:=Sheets("½u¹Ï").Range("A" & x & ":B" & y), PlotBy:=xlColumns
    
14.     ActiveChart.Location Where:=xlLocationAsObject, Name:="½u¹Ï"
    
15.     ActiveChart.HasDataTable = False
    
16. End Sub

½Æ»s¥N½X