ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

[µ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±Ï >< ><

¦^´_ 2# kimbal

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

TOP

¦^´_ 4# stillfish00


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

TOP

¦^´_ 7# stillfish00


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

TOP

        ÀR«ä¦Û¦b : ª¾ÃÑ­n¥Î¤ßÅé·|¡A¤~¯àÅܦ¨¦Û¤vªº´¼¼z¡C
ªð¦^¦Cªí ¤W¤@¥DÃD