stillfish00

1. Sub SaveTrans(namePos As String, stockNo As String)
   
2.     Dim ws As Worksheet
   
3.    
   
4.     Set ws = ActiveSheet    'ActiveSheet¬°¸ê®Æ¨Ó·½¤u§@ªí
   
5.     With Charts.Add
   
6.         .Name = ws.Range(namePos).Value
   
7.         .SetSourceData Source:=ws.Range(stockNo), PlotBy:=xlRows
   
8.         .ChartType = xlLine
   
9.         .Location where:=xlLocationAsNewSheet   'ActiveSheet ·|Åܬ°¸Ó¹Ïªí¤u§@ªí
   
10.         .HasTitle = False
    
11.         .Axes(xlCategory, xlPrimary).HasTitle = False
    
12.         .Axes(xlValue, xlPrimary).HasTitle = False
    
13.     End With
    
14.    
    
15.     ws.Activate    'ActiveSheetÁ٭쬰¸ê®Æ¨Ó·½¤u§@ªí, ¤~¯à³sÄò©I¥s
    
16.     Set ws = Nothing
    
17. End Sub
    
18. Sub G¦Û°Êµe()
    
19.     SaveTrans "A3", "C3:FI3"
    
20.     SaveTrans "A4", "C3:FI4"
    
21.     SaveTrans "A5", "C3:FI5"
    
22.     SaveTrans "A6", "C3:FI6"
    
23.     SaveTrans "A7", "C3:FI7"
    
24. End Sub

½Æ»s¥N½X

¦^´_ 3# xu123