返回列表 上一主題 發帖

[發問] 苦惱... 菜鳥EXCEL VBA 求助

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
1# 跳轉到 »
發表於 2012-12-2 10:59 | 顯示全部帖子
本帖最後由 stillfish00 於 2012-12-2 11:00 編輯

回復 1# sandy0107
你的這段程式放在哪?
如果放在模組或其他工作表內
ThisWorkbook.Sheets(stockno).Shapes.AddChart.Chart.SetSourceData Source:=Range(stockno & "$A$2A" & row, stockno & "$H$2H$" & row)
Range前面記得指定哪個sheet

或者附上檔案看看

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
2#
發表於 2012-12-2 15:28 | 顯示全部帖子
回復 6# sandy0107
改成這樣試試
Public Sub plot_SMA()
   
    Dim SMA_day As Integer
    Dim stockno As String
    Dim row As String
   
   
    stockno = CStr(ThisWorkbook.Sheets("control").Cells(6, "K").Value)
    SMA_day = CInt(ThisWorkbook.Sheets("control").Cells(5, "K").Value)
    row = SMA_day + 1


    With ThisWorkbook.Sheets(stockno).Shapes.AddChart
        .Chart.ChartType = xlLine
        .Chart.SetSourceData Source:=Range(stockno & "!$A$2:A" & row & ", " & stockno & "!$H$2:H$" & row)
    End With
   
    'activate stock sheet
    ThisWorkbook.Worksheets(stockno).Activate

End Sub

TOP

        靜思自在 : 能幹不幹，不如苦幹實幹。
返回列表 上一主題