返回列表 上一主題 發帖

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

xu123

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

帖子
48 
主題
14 
精華
0 
積分
62 
點名
0  
作業系統
win7 
軟體版本
office2003 
閱讀權限
20 
性別
男 
註冊時間
2012-5-25 
最後登錄
2022-4-23 
2#
發表於 2013-4-15 08:36 | 只看該作者
忘記說了我要用畫圖中的折線做圖表

TOP

xu123

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

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

TOP

xu123

帖子
48 
主題
14 
精華
0 
積分
62 
點名
0  
作業系統
win7 
軟體版本
office2003 
閱讀權限
20 
性別
男 
註冊時間
2012-5-25 
最後登錄
2022-4-23 
5#
發表於 2013-4-30 16:38 | 只看該作者
boyao 大

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

TOP

xu123

帖子
48 
主題
14 
精華
0 
積分
62 
點名
0  
作業系統
win7 
軟體版本
office2003 
閱讀權限
20 
性別
男 
註冊時間
2012-5-25 
最後登錄
2022-4-23 
6#
發表於 2013-4-30 16:45 | 只看該作者
我要把A3到A7欄位裡的名稱
自動做成五個圖表依序
的名稱
要怎改ㄋ

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
7#
發表於 2013-5-2 17:24 | 只看該作者
  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

xu123

帖子
48 
主題
14 
精華
0 
積分
62 
點名
0  
作業系統
win7 
軟體版本
office2003 
閱讀權限
20 
性別
男 
註冊時間
2012-5-25 
最後登錄
2022-4-23 
8#
發表於 2013-5-4 09:40 | 只看該作者
stillfish00大大
可以了非常感謝你
很好用

TOP

        靜思自在 : 人的心地是一畦田，土地沒有播下好種子，也長不出好的果實。 -
返回列表 上一主題