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

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

8^#

發表於 2013-5-4 09:40 | 只看該作者

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

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

7^#

發表於 2013-5-2 17:24 | 只看該作者

Sub SaveTrans(namePos As String, stockNo As String)
Dim ws As Worksheet
Set ws = ActiveSheet 'ActiveSheet為資料來源工作表
With Charts.Add
.Name = ws.Range(namePos).Value
.SetSourceData Source:=ws.Range(stockNo), PlotBy:=xlRows
.ChartType = xlLine
.Location where:=xlLocationAsNewSheet 'ActiveSheet 會變為該圖表工作表
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
ws.Activate 'ActiveSheet還原為資料來源工作表, 才能連續呼叫
Set ws = Nothing
End Sub
Sub G自動畫()
SaveTrans "A3", "C3:FI3"
SaveTrans "A4", "C3:FI4"
SaveTrans "A5", "C3:FI5"
SaveTrans "A6", "C3:FI6"
SaveTrans "A7", "C3:FI7"
End Sub

複製代碼

回復 3# xu123

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

6^#

發表於 2013-4-30 16:45 | 只看該作者

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

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

5^#

發表於 2013-4-30 16:38 | 只看該作者

boyao 大

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

boyao

帖子: 57
主題: 10
精華: 0
積分: 104
點名: 0
作業系統: WINXP
軟體版本: OFFICE 2003
閱讀權限: 20
性別: 男
來自: taiwan
註冊時間: 2012-7-5
最後登錄: 2017-2-18

2013蛇年全勤獎章

4^#

發表於 2013-4-20 00:56 | 只看該作者

回復 3# xu123

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

boyao

帖子: 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

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

2^#

發表於 2013-4-15 08:36 | 只看該作者

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