- ©«¤l
- 4
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 5
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows7
- ³nÅ骩¥»
- Windows7
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2012-12-2
- ³Ì«áµn¿ý
- 2012-12-2
|
[µo°Ý] W´o... µæ³¾EXCEL VBA ¨D§U
À³¸Ó¬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±Ï >< >< |
|