[µo°Ý] ­W´o... µæ³¾EXCEL VBA ¨D§U

sandy0107

À³¸Ó¬O­Ó²³æªºµ{§Ç¦ý¸£´Ý°_¨Ó´N¬O·Q¤£³q...
¤w¸g¸Õ¹L¦n¦h¤£¦P¤è¦¡¦ý³£¤£¦æ©Ò¥H·Qݯ®v¥S®v©j¨D±Ï ><><><

¥H¤U¬O¤p©fPLOT 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... ¦ý¤S§ï¤£¦^¨Ó
·|¤£·|¬O ! ªº¦ì¸m¿ù¤F¥§...? À³¸Ó«ç¼Ë¸Ñ¨M?? ¨D±Ï >< ><

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

198188

¦^´_ 2# kimbal

°ª¤H½Ð°Ý¥i§_À°§Ú¸Ñ¨M§Ú¤U­±linkªº°ÝÃD¡HÁÂÁÂ~
    http://forum.twbts.com/thread-8403-1-1.html

stillfish00

¦^´_ 1# sandy0107
§Aªº³o¬qµ{¦¡©ñ¦b­þ?
¦pªG©ñ¦b¼Ò²Õ©Î¨ä¥L¤u§@ªí¤º
ThisWorkbook.Sheets(stockno).Shapes.AddChart.Chart.SetSourceData Source:=Range(stockno & "$A$2A" & row, stockno & "$H$2H$" & row)
Range«e­±°O±o«ü©w­þ­Ósheet

©ÎªÌªþ¤WÀɮ׬ݬÝ

sandy0107

¦^´_ 2# kimbal

¦^´_¤F¤]¤£¦æ©O >< ><
¥i¯à¬O°¸ªí¹F¤£¦n... §â­ìÀɶK¤W¨Ó½Ð±Ð¤j®a ><
http://dl.dropbox.com/u/84304423/ShareAnalyzer%201.xlsm

sandy0107

¦^´_ 4# stillfish00


¬Ý¤£¤ÓÀ´... @@
ªþ¤W­ìÀɦb³o¸Ì
http://dl.dropbox.com/u/84304423/ShareAnalyzer%201.xlsm
·PÁÂÀ°¦£ ><

stillfish00

¦^´_ 6# sandy0107
§ï¦¨³o¼Ë¸Õ¸Õ
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


¥X¨Ó¤F¥X¨Ó¤F !!
ÁÂÁ³á !!^3^