請問有辦法用VBA完成下列自動畫圖嗎

xu123

a1,a2,a3......到.A15是名稱張三,李四等等
能否用VBA自動畫B1到G1然後圖表名自動改A1的名稱
                                   b2到G2然後圖表名自動改A2的名稱
                                    b3到G3然後圖表名自動改A3的名稱
                                     .
                                     .
                   一直到b15到G15然後圖表名自動改A15的名稱
可以嗎謝謝

xu123

忘記說了我要用畫圖中的折線做圖表

xu123

請問有沒有高手
可以幫我自動命名圖表要怎改我要A3到A7欄做圖表名稱

Sub G自動畫()

SaveTrans ("C3:FI3")
SaveTrans ("C4:FI4")
SaveTrans ("C5:FI5")
SaveTrans ("C6:FI6")
SaveTrans ("C7:FI7")

End Sub

Sub SaveTrans(stockNo As String)
    Sheets("Sheet1").Select
    Range(stockNo).Select

    Charts.Add
    ActiveChart.ChartType = xlLine
    ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range(stockNo), PlotBy _
        :=xlRows
    ActiveChart.Location Where:=xlLocationAsNewSheet
    With ActiveChart
        .HasTitle = False
        .Axes(xlCategory, xlPrimary).HasTitle = False
        .Axes(xlValue, xlPrimary).HasTitle = False
    End With
   
End Sub

boyao

回復 3# xu123


   指定各圖表的名稱
With ActiveChart.ChartTitle.Select
          Selection.Text = "='Sheet1'!R1C3"
End With

xu123

boyao 大

不好意思我弄好久不行ㄋ會出錯
我要把A列的五個欄位
分別做成五個圖表的名稱
要怎改ㄋ

xu123

我要把A3到A7欄位裡的名稱
自動做成五個圖表依序
的名稱
要怎改ㄋ

stillfish00

1. Sub SaveTrans(namePos As String, stockNo As String)
   
2.     Dim ws As Worksheet
   
3.    
   
4.     Set ws = ActiveSheet    'ActiveSheet為資料來源工作表
   
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 會變為該圖表工作表
   
10.         .HasTitle = False
    
11.         .Axes(xlCategory, xlPrimary).HasTitle = False
    
12.         .Axes(xlValue, xlPrimary).HasTitle = False
    
13.     End With
    
14.    
    
15.     ws.Activate    'ActiveSheet還原為資料來源工作表, 才能連續呼叫
    
16.     Set ws = Nothing
    
17. End Sub
    
18. Sub G自動畫()
    
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

複製代碼

回復 3# xu123

xu123

stillfish00大大
可以了非常感謝你
很好用