返回列表下一主題上一主題發帖

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

xu123

中學生 Rank: 2

帖子: 48
主題: 14
精華: 0
積分: 62
點名: 0
作業系統: win7
軟體版本: office2003
閱讀權限: 20
性別: 男
註冊時間: 2012-5-25
最後登錄: 2022-4-23

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2013-4-15 08:35 | 顯示全部帖子

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

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

樓主熱帖

xu123

中學生 Rank: 2

帖子: 48
主題: 14
精華: 0
積分: 62
點名: 0
作業系統: win7
軟體版本: office2003
閱讀權限: 20
性別: 男
註冊時間: 2012-5-25
最後登錄: 2022-4-23

2^#

發表於 2013-4-15 08:36 | 顯示全部帖子

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

TOP

xu123

中學生 Rank: 2

帖子: 48
主題: 14
精華: 0
積分: 62
點名: 0
作業系統: win7
軟體版本: office2003
閱讀權限: 20
性別: 男
註冊時間: 2012-5-25
最後登錄: 2022-4-23

3^#

發表於 2013-4-18 17:14 | 顯示全部帖子

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

xu123