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

[µo°Ý] ½Ð°ÝDDE¥N¸¹­n¦p¦ó«Ø¥ß

[µo°Ý] ½Ð°ÝDDE¥N¸¹­n¦p¦ó«Ø¥ß

½Ð°Ý¦U¦ì«e½ú,A1Àx¦s®æ¬OªÑ²¼¥N¸¹,B1Àx¦s®æ¬ODDE³sµ²(¤½¦¡),§Ú­n¦p¦ó¦bA2Àx¦s®æ¶K¤W2317«á,ÅýB2Àx¦s®æÅܦ¨=CATDDE|'STOCK<Q>2317  '!ExecutionVol,A3Àx¦s®æ¶K¤W3069«á,B3¹ïÀ³Åܦ¨=CATDDE|'STOCK<Q>3069  '!ExecutionVol,¨Ì¦¹Ãþ±À!½Ð±Ð¦U¦ì«e½ú¤j¤j,ÁÂ.

3481   =CATDDE|'STOCK<Q>3481  '!ExecutionVol
2317
3069
4958
2330
1101
2409
6121
1477
8076
Book1.rar (1.41 KB)

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
    Target.Offset(, 1) = "=CATDDE|'STOCK<Q>" + Target.Text + Space(6 - Len(Target.Text)) + "'!ExecutionVol"
End If
End Sub

TOP

¥»©«³Ì«á¥Ñ Apple007 ©ó 2015-7-12 12:12 ½s¿è

¦^´_ 2# jackyq

ÁÂÁÂjackyq ¤j¨ó§U,¦bAÄæ¿é¤JªÑ²¼¥N¸¹«á¥i¦bBÄæ²£¥Í¹ïÀ³,¤£¹L­n¤@µ§¤@µ§¿é¤J,§Ú¦pªG¤@¦¸­n¦bAÄæ¶K¤W600¦hµ§¥N¸¹,¦bBÄæ¦P®É²£¥Í¹ïÀ³¥N½X,¥i§_¹F¦¨©Î­n¦p¦ó­×§ï.
BOOK1.rar (4.39 KB)

TOP

Private Sub Worksheet_Change(ByVal Target As Range)
Excel.Application.EnableEvents = False
For Each Rng In Target
If Rng.Column = 1 Then
    Rng.Offset(, 1) = "=CATDDE|'STOCK<Q>" + Rng.Text + Space(6 - Len(Rng.Text)) + "'!ExecutionVol"
End If
Next
Excel.Application.EnableEvents = True
End Sub

TOP

¦^´_ 4# jackyq

´ú¸ÕOK¤F!¥ÎVBA°õ¦æDDE¥N¸¹«Ø¥ß¬Ù¥h¤F¥Î¤H¤u¿é¤Jªº«Ü¦h®É¶¡,·PÁÂjackyq ªºµ{¦¡¨ó§U!

TOP

Jackyq¤j¡A½Ð°Ý³o¤@¬qcode¡A­n¶K¦bexcel¦ó³B¡C¾Þ§@¨BÆJ¬O¦p¦ó¡H
¦pªG§Úªº¨Ò¤l¬O
1101 =YES|DQ!'1101.Open' =YES|DQ!'1101.High' =YES|DQ!'1101.Low' =YES|DQ!'1101.Price'
1102
1103
¥i¥H«ç»ò³B²z©O¡HÁÂÁÂ!!

TOP

³o¬O­¶ªºÄ²µo¨Æ¥ó¡A©ñ¦b·í­¶´N¬O¡C

TOP

        ÀR«ä¦Û¦b : ¦h°µ¦h±o¡C¤Ö°µ¦h¥¢¡C
ªð¦^¦Cªí ¤W¤@¥DÃD