返回列表 上一主題 發帖

VBA 畫Trend Chart問題

taiwan16699

帖子
6 
主題
3 
精華
0 
積分
10 
點名
0  
作業系統
Windows 7 
軟體版本
1 
閱讀權限
10 
註冊時間
2013-5-2 
最後登錄
2019-11-21 

論壇贊助勳章
1# 跳轉到 » 正序看帖
打印
tT
發表於 2014-12-6 00:27 | 只看該作者

VBA 畫Trend Chart問題

擷取程式碼如下，我要從第6個sheet到底的每個sheets都要依同樣方法繪製trend chart
最後跑出應用程式或物件定義上錯誤
可以麻煩幫忙嗎?
新手，不大會寫，請多包涵

Sub hihi()

    Sheets("rawdata").Select
    Cells(300, 1).End(xlUp).Select
    endDD = Selection.Row
    Cells(5, 1000).End(xlToLeft).Select
    endRR = Selection.Column

        For F = 6 To Sheets.Count
            
            Sheets(F).Select
            'Range(Cells(1, k), Cells(2, k)).Select
            ActiveSheet.Shapes.AddChart.Select '增加圖形
            ActiveChart.ChartType = xlLineMarkers '圖形類型
            ActiveChart.ApplyLayout (5) '圖表樣式
            ActiveChart.SetSourceData Source:=Sheets(F).Range(Cells(1, k), Cells(2, k)) '資料範圍<----1004
        Next
End Sub
收藏 分享

taiwan16699

帖子
6 
主題
3 
精華
0 
積分
10 
點名
0  
作業系統
Windows 7 
軟體版本
1 
閱讀權限
10 
註冊時間
2013-5-2 
最後登錄
2019-11-21 

論壇贊助勳章
2#
發表於 2014-12-6 00:52 | 只看該作者
沒貼完整修正如下
Sub hihi()

    Sheets("rawdata").Select
    Cells(300, 1).End(xlUp).Select
    endDD = Selection.Row
    Cells(1, 1000).End(xlToLeft).Select
    endRR = Selection.Column

        For F = 6 To Sheets.Count
            For K = 1 To endRR
            
            Range(Cells(1, 1), Cells(2, K)).Select
            'Range(Cells(1, k), Cells(2, k)).Select
            ActiveSheet.Shapes.AddChart.Select '增加圖形
            ActiveChart.ChartType = xlLineMarkers '圖形類型
            ActiveChart.SetSourceData Source:=Sheets(F).Range(Cells(1, 1), Cells(2, K)) '資料範圍
            ActiveChart.ApplyLayout (5) '圖表樣式
            ActiveChart.ChartTitle.Select
            Selection.delete
            ActiveChart.Axes(xlValue).AxisTitle.Select
            Selection.delete
         

           
            Next
        Next
End Su

TOP

        靜思自在 : 有願放在心裡，沒有身體力行，正如耕田不播種，皆是空過因緣。
返回列表 上一主題