返回列表 上一主題 發帖

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

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

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

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

TOP

請問有沒有高手
可以幫我自動命名圖表要怎改我要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

TOP

回復 3# xu123


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

TOP

boyao 大

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

TOP

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

TOP

  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

TOP

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

TOP

        靜思自在 : 手心向下是助人,手心向上是求人;助人快樂,求人痛苦。
返回列表 上一主題