kimbal

¦^´_ 1# sandy0107

¸Õ¸Õ³o¼Ë?

1. Dim SMA_day As Integer
   
2. Dim stockno As String
   
3. Dim row As string
   
4. 
   
5. stockno = CStr(ThisWorkbook.Sheets("control").Cells(6, "K").Value)
   
6. SMA_day = CInt(ThisWorkbook.Sheets("control").Cells(5, "K").Value)
   
7. row = trim(str(SMA_day + 1))
   
8. 
   
9. ThisWorkbook.Sheets(stockno).Shapes.AddChart.Select
   
10. ThisWorkbook.Sheets(stockno).Shapes.AddChart.Chart.ChartType = xlLine
    
11. ThisWorkbook.Sheets(stockno).Shapes.AddChart.Chart.SetSourceData Source:=Range(stockno & "$A$2:$A$" & row, stockno & "$H$2:$H$" & row)
    
12.    

½Æ»s¥N½X