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

sandy0107

應該是個簡單的程序但腦殘起來就是想不通...
已經試過好多不同方式但都不行所以想搵師兄師姐求救 ><><><

以下是小妹PLOT GRAPH 時用的CODE...
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

ThisWorkbook.Sheets(stockno).Shapes.AddChart.Select
ThisWorkbook.Sheets(stockno).Shapes.AddChart.Chart.ChartType = xlLine
ThisWorkbook.Sheets(stockno).Shapes.AddChart.Chart.SetSourceData Source:=Range(stockno & "$A$2A" & row, stockno & "$H$2H$" & row)

到SET RANGE時總會有BUG... 但又改不回來
會不會是 ! 的位置錯了尼...? 應該怎樣解決?? 求救 >< ><

kimbal

回復 1# sandy0107

試試這樣?

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.    

複製代碼

198188

回復 2# kimbal

高人請問可否幫我解決我下面link的問題？謝謝~
    http://forum.twbts.com/thread-8403-1-1.html

stillfish00

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

或者附上檔案看看

sandy0107

回復 2# kimbal

回復了也不行呢 >< ><
可能是偶表達不好... 把原檔貼上來請教大家 ><
http://dl.dropbox.com/u/84304423/ShareAnalyzer%201.xlsm

sandy0107

回復 4# stillfish00


看不太懂... @@
附上原檔在這裡
http://dl.dropbox.com/u/84304423/ShareAnalyzer%201.xlsm
感謝幫忙 ><

stillfish00

回復 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

sandy0107

回復 7# stillfish00


出來了出來了 !!
謝謝喔 !!^3^