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

½Ð±Ð¡I¨C­Ó¥æ©ö¤éªºsheet¸ê®Æ§ó·s«á¡A¥t¤@sheet¸ê®Æ¦p¦ó¦Û°Ê¦V¤U©µ¦ù¤@¦C¡C·PÁ¡I

½Ð±Ð¡I¨C­Ó¥æ©ö¤éªºsheet¸ê®Æ§ó·s«á¡A¥t¤@sheet¸ê®Æ¦p¦ó¦Û°Ê¦V¤U©µ¦ù¤@¦C¡C·PÁ¡I

½Ð±Ð¡I¦P¤@¤u§@靈¤@­Ósheet¡]TX-¤é½L¡^ªº¸ê®Æ¨C¤é·|§ó·s¡A§ó·s«á¡A§Ú·|¤â°Ê·Æ¹«¤Q¦r¤U©Ô§ó·s¦P¤@¤u§@諸¥t¤@­Ósheet¡]TX-OHLC¡^ªº¸ê®Æ¡C½Ð±Ð excel ¨ç¦¡»yªk©Î vba µ{¦¡»yªk¦Û°Ê¦V¤U©µ¦ù¤@¦Csheet¡]TX-OHLC¡^ªº¸ê®Æ¡C·PÁ¡I

Private Sub CommandButton1_Click()
'
' ¦Û°Ê¶ñº¡ ¥¨¶°
'

'
    Dim r
    r = Cells(Rows.Count, "A").End(xlUp).Row
    Range("A1746:O1746").Select
    Selection.AutoFill Destination:=Range("A1747:O" & r), Type:=xlFillDefault
    Range("A" & r).Select
End Sub

TOP

Áö¨S¦³¤H¦^ÂСAÁÙ¬O·PÁ¦b³o¸Ì¾Ç¨ìªºª¾ÃÑ¡CÄ~Äò¾Ç²ß¡C

TOP

¸Õ¤F¤@¤U¡A³o­ÓÀ³¸Ó¤ñ¸û¦X§Úªº»Ý¨D~
Private Sub CommandButton1_Click()
'
' ¦Û°Ê¶ñº¡ ¥¨¶°
'

'
    Dim r
    r = Cells(Rows.Count, "A").End(xlUp).Row + 1
    Range("A226:T226").AutoFill Destination:=Range("A226:T" & r), Type:=xlFillCopy
    Range("A" & r).Select
End Sub

TOP

§AÀ³¸Ó¬O¥ý¥ÎVBA©Î¬O¥¨¶°¨C¤Ñ§ó·s¥x«ü´Á¸ê®Æ..¨ìTX sheet...¦ý§A­nªº¬O°O¿ý¾ú¥v¸ê®Æ..©Ò¥H¤S½Æ»s»Ý­nªº¸ê®Æ¶K¨ìTX-OHLC sheet....§A­nªº¤£»Ý­n¥Î¨ìVBA...
§A¥i¥H§âTX-OHLC Àx¦s®æ¥Î¤é´Á¤ñ¹ï ...¦pªG¤é´Á=«e¤@¥æ©ö¤é¤é´Á«hÀx¦s®æÅã¥ÜªÅ¥Õ...¦pªG¤£¬Ûµ¥..´N§â¸ê®Æ½Æ»s¹L¥h....µM«áTX-OHLC ©Ò¦³Àx¦s®æ³£¥i¥H¤U©Ô½Æ»s¤½¦¡....
°ò¥»¤W³£¬O­n½Æ»sTX sheetªº¸ê®Æ...¥u¬O§A¼W¥[¤@­Ó§PÂ_ªº¤½¦¡...¦pªG¬O¦P¤@¤Ñ¨º°O¤£­n½Æ»s¤F...¦pªG¤é´Á¤£¦P´N§â¸ê®Æ§ì¹L¥h....§AVBA³£¯à¼g¤F..³o¼Ë»¡À³¸Ó¥i¥HÀ´§a...

TOP

¦^´_ 4# agogo6789



§Ú§â¨C¤é§ó·sªº¸ê®Æ¥u§ì¨ú»Ý­n¥Î¨ìªº¨ì TX_OHLC ªºB2:I2....J2¸ê®Æ­nµn¤Jªº¦C¡Aªì©l­È±q4¶}©l....FYR


TX_¬ö¿ýexample.rar (17.89 KB)

TOP

        ÀR«ä¦Û¦b : ¡i¬°µ½Ävª§¡j¤H¥Í­n¬°µ½Ävª§¡A¤À¬í¥²ª§¡C
ªð¦^¦Cªí ¤W¤@¥DÃD