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

Åܰʬö¿ýªºµ{¦¡

¦³¥i¯à°õ¦æ¨ì Excel.Application.EnableEvents = 0 ®É
ÁÙ¨S°õ¦æ¨ì Excel.Application.EnableEvents = 1 ´N¨©§A¤¤³~ Stop ±¼
¨º§Aªº¨Æ¥ó´N¤£·|¦bIJµo
OR ¨ä¥L­ì¦].... ¨SÀɮרS¯u¬Û

TOP

°£¿ù - ½Æ»s.rar (35.1 KB) ¦^´_ 11# jackyq


    ½Ð¤j¤j¬Ý¬Ý

TOP

§ï¦¨³o¼Ë

    Sub RecordPrice()
Dim WR As Long
Dim I As Byte

Dim DDE_Á`¶q As Range
Set DDE_Á`¶q = Range("D2")
   
If IsError(DDE_Á`¶q.Value) Then Exit Sub
If DDE_Á`¶q.Value <= 0 Then Exit Sub

WR = DDE_Á`¶q.CurrentRegion.Row + DDE_Á`¶q.CurrentRegion.Rows.Count
'ActiveWindow.ScrollRow = WR - 5 '¥uÅã¥Ü³Ì·s´Xµ§¸ê®Æ
If (WR = 3) Or _
   (Cells(WR - 1, DDE_Á`¶q.Column) <> DDE_Á`¶q.Value) Then       'Á`¶q¦³²§°Ê®É¤~°O¿ý

    Excel.Application.EnableEvents = 0

    Cells(WR, DDE_Á`¶q.Column).Offset(, -1).Resize(, 3).Value = _
                      DDE_Á`¶q.Offset(, -1).Resize(, 3).Value

    Excel.Application.EnableEvents = 1
End If

End Sub

TOP

¦sÀÉ«á ÀÉ®×°O±oÃö³¬¦b­«¶}

TOP

¦^´_ 13# jackyq


    ÁÙ¬O¤£¦æ

TOP

¦^´_ 15# ÂŤÑÄR¦À


    §AªºÀɮ׸̭±ªº    ThisWorkBook

Private Sub Workbook_Open()
Application.RTD.ThrottleInterval = 0
''   Application.Calculation = xlCalculationManual     -> §â³o­Ó¾B¸n±¼«á, ¦sÀɦA­«¶}
End Sub

TOP

¥»©«³Ì«á¥Ñ ÂŤÑÄR¦À ©ó 2016-3-22 10:27 ½s¿è

¦^´_ 16# jackyq
123.rar (329.21 KB)
J¤j¨ä¹ê§Ú¬O­n±Nªþ¥ó¸Ì­±ªºªF¦è¾ã¦X¦b¤@°_¡A¸Ì­±¦³¸s¯qªºAPI¡A§Ú¬O­nÂ^¨ú¸ê®Æ¡A¦ý¦]¬°¸s¯q¦b¥[Åvªº¸ê®Æ¦³»~¡A©Ò¥H¥[Åvªº³¡¤À§ï¥ÎÅܰʬö¿ýªº¤è¦¡§ì¨ú
¦ý¬O§Ú±Nµ{¦¡µ²¦X¤§«á¥hµLªk°õ¦æ¤F¡A·Q½ÐJ¤jÀ°§Ú¬Ý¬Ý¡A­n«ç»ò§ó§ï¡A§ó·sªº³¡¤À­nºû«ù­ì¥»ªº2¬í§ó·s¤@¦¸¤~¦æ¡A·PÁ¤j¤j

J¤j¤£¦n·N«ä³o¼Ë³Â·Ð§A

TOP

123_b.zip (215.37 KB)

TOP

¥»©«³Ì«á¥Ñ ÂŤÑÄR¦À ©ó 2016-3-22 11:34 ½s¿è

¦^´_ 18# jackyq


    ¤j¤j¡A³o­Ó¬O§ï¦nªº¶Ü??
§Ú¬O­nÅý¸ê®Æ³£¥X²{¦bsheet4¡A«á­±¦h­Ó¥[ÅvDDE¬O??
¤£¤ÓÀ´¤j¤jªº·N«ä

TOP

sheet4 ¬O API ªº¥[Åv³ø»ù
sheet5  = Sheets("¥[ÅvDDE" )   ¸g¥Ñ DDE ¬ö¿ý¥[Åv«ü¼Æ

§Ú¬O­nÅý¸ê®Æ³£¥X²{¦bsheet4 -> Åý¥L¥X²{¦b sheet5  ¤]¨S®t§a

TOP

        ÀR«ä¦Û¦b : «H¤ß¡B¼Ý¤O¡B«i®ð¤TªÌ¨ã³Æ¡A«h¤Ñ¤U¨S¦³°µ¤£¦¨ªº¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD