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

½Ð±Ð¦p¦ó±NDDE¸ê®Æ¶K¤Wsheet2ªºÀx¦s®æ

½Ð±Ð¦p¦ó±NDDE¸ê®Æ¶K¤Wsheet2ªºÀx¦s®æ

¥»©«³Ì«á¥Ñ Apple007 ©ó 2014-12-21 03:50 ½s¿è

½Ð±Ð¦U¦ì«e½ú­n¦p¦ó±N¦p¹ÏªÑ²¼¸ê®Æ,CÄ欰DDE¦¨¥æ¶qdate,§Ú­n±N¦¨¥æ¶qÅܰʤj©ó100±i®É,¶K¤Wsheet2ªºC3Àx¦s®æ,²Ä¤Gµ§¶K¤W¤U¤@¦CC4,.....¨Ì§Ç³vµ§©¹¤U¶K¤W,¦p¹Ï©Ò¥Ü!½Ð°Ý­n¦p¦ó½s¼gµ{¦¡,ÁÂÁÂ~ps.¦]­èµù¥UÅv­­©|²L¥i§_½Ð¤j¤j¶K¤W¨Ó­¶­±,ÁÂÁÂ!

date.JPG (55.5 KB)

date.JPG

¦^´_ 1# Apple007

±N¥H¤U¶K¦ÜSheet1ªºª«¥óÃþ§O¼Ò²Õ¤¤
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2.     With Target
  3.         If .Column = 3 And .Value > 100 Then
  4.                 Target.Offset(, -2).Resize(, 3).Copy Sheets("sheet2").[e65535].End(xlUp).Offset(1, -2)
  5.         End If
  6.     End With
  7. End Sub
½Æ»s¥N½X

TOP

¦^´_ 2# ashan0418
·PÁÂashan0418¤j,§Ú²{¦b¦³¤@­Ó°ÝÃD:´N¬O¦b¤â°Ê¿é¤J>100®É¬O¥¿±`ªº,¦ý¦pªG½L¤¤³z¹LDDEªº¸ê®Æ¸õ°ÊÅܰʶq(>100®É),«o¤£·|¿é¥X¨ìsheet2,¤£ª¾¤j¤j¬O§_¯à¦³¨ä¥L¸Ñ¨Mªº¤è¦¡,¥i¥H§PÂ_¦¹ºØ¦Û°Ê¸ê®ÆÅܰʪºµ{¦¡¼gªk,thank  you!!

TOP

¦^´_ 3# Apple007


±z¬O«ü¸ê®Æ¬O¾ã§å¶×¤Jªº¶Ü??

TOP

¥»©«³Ì«á¥Ñ Apple007 ©ó 2014-12-26 11:27 ½s¿è

¦^´_ 4# ashan0418
¸ê®Æ¬O¬ù¨C¤Q¬í§Y®É§ó·s,§ÚexcelÀÉ ªÑ²¼¦¨¥æ¶q.rar (4.97 KB) ¦³ddeªº³sµ²,¦w¸Ë³ohttp://www.sinotrade.com.tw/ec/eleader1/setup_eLeader.exe¬Ý½L³nÅé(Testname:B133043133),¦b½L¤¤CÄ檺¦¨¥æ¶q´N·|ÅÜ°Ê.

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2014-12-29 15:43 ½s¿è

¦^´_ 5# Apple007

¤â°Ê¿é¤J>100®É¬O¥¿±`ªº
·|IJ°Ê Worksheet_change(ByVal Target As Range) ¤u§@ªí¦³­×§ï¨Æ¥óµ{¦¡

½L¤¤³z¹LDDEªº¸ê®Æ¸õ°ÊÅܰʶq(>100®É),Àx¦s®æ¤¤¤½¦¡­ÈªºÅÜ°Ê   
·|IJ°Ê Sub Worksheet_Calculate()    ¤u§@ªí¦³­«ºâ¨Æ¥óµ{¦¡
¸Õ¸Õ¬Ý
  1. Dim AR
  2. Private Sub Worksheet_Calculate()
  3.     Dim i As Integer
  4.     i = 2
  5.     Do While i <= Cells(2, "C").End(xlDown).Row
  6.         If Not IsError(Cells(i, "C")) Then
  7.            If Cells(i, "C") > 100 Then
  8.                 With Sheets("sheet2").[C65535].End(xlUp).Offset(1).Resize(, 3)
  9.                     If IsEmpty(AR) Then
  10.                         .Value = Cells(i, "A").Resize(, 3).Value
  11.                     ElseIf Cells(i, "C") <> AR(i - 1, 1) Then
  12.                         .Value = Cells(i, "A").Resize(, 3).Value
  13.                     End If
  14.                 End With
  15.             End If
  16.         End If
  17.         i = i + 1
  18.     Loop
  19.     AR = Range(Cells(2, "C"), Cells(2, "C").End(xlDown))
  20. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

[ª©¥DºÞ²z¯d¨¥]
  • GBKEE(2014/12/29 15:44): 6# ¤w§ó·s,¦A¬O¬Ý

¥»©«³Ì«á¥Ñ Apple007 ©ó 2014-12-29 14:43 ½s¿è

¦^´_ 6# GBKEE
GBKEE¤j±z¦n:§Ú¦b´ú¸Õµ{¦¡®É,¶}±Òµøµ¡°õ¦æ®É³£·|¥X²{¦p¹Ï°õ¦æ¶¥¬q¿ù»~'13'-«¬ºA¤£²Åªºµe­±,±Nµe­±Ãö±¼«á«h¥i¥¿±`°õ¦æµ{¦¡,,¤£ª¾­þÃä¥X°ÝÃD,¥i§_½ÐGBKEE¤jÀ°§Ú¬d¬Ý¬Ý,ÁÂÁÂ!!

³sµ².JPG (59.43 KB)

³sµ².JPG

¥ÃÂ×e-leader-DDE.rar (6.9 KB)

TOP

¦^´_ 7# Apple007
¸Õ¸Õ¬Ý
  1. Private Sub Worksheet_Calculate()
  2.     Dim i As Integer
  3.     For i = 2 To [C65535].End(xlUp).Row
  4.         If IsNumeric(Cells(i, "C")) Then
  5.             If Cells(i, "C") > 100 Then
  6.                 Sheets("sheet2").[C65535].End(xlUp).Offset(1).Resize(, 3) = Cells(i, "A").Resize(, 3).Value
  7.             End If
  8.         End If
  9.     Next
  10. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 8# GBKEE
GBKEE¤j¤j±z¦n:§ó·s½X¤wµL°õ¦æ¶¥¬q'13'¿ù»~°ÝÃD,¦ý¸ê®ÆÅܰʮɷ|¦³­«½Æ¶K¸ê®Æ¦Üsheet2,¦p¹Ï:
½Ð¤j¤j¦bÀ°§Ú¬Ý¤@¤U,thanks~

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2017-5-26 20:07 ½s¿è

¦^´_ 9# Apple007
¦A¸Õ¸Õ¬Ý
  1. Private Sub Worksheet_Calculate()
  2.     Dim i As Integer
  3.     For i = 2 To [C65535].End(xlUp).Row
  4.         If IsNumeric(Cells(i, "C")) Then
  5.             'CÄ欰¦¨¥æ¶q>100 ,DÄ欰¦¨¥æÁ`¶q > F»²§UÄæ°O¿ý¦¨¥æÁ`¶q(**->¦¨¥æ¶q¦³ÅÜ°Ê**)
  6.             If Cells(i, "C") > 100 And Cells(i, "D") > Cells(i, "F") Then
  7.                 Cells(i, "F") = Cells(i, "D")  'F»²§UÄæ°O¿ý¦¨¥æÁ`¶q
  8.                 Sheets("sheet2").[C65535].End(xlUp).Offset(1).Resize(, 3) = Cells(i, "A").Resize(, 3).Value
  9.             End If
  10.         Else  '¬°¶}½L«e²M²zF»²§UÄæ
  11.             Cells(i, "F") = ""  'F»²§UÄæ°O¿ý¦¨¥æÁ`¶q
  12.         End If
  13.     Next
  14. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ¶¢¤HµL¼Ö½ì¡A¦£¤HµL¬O«D¡C
ªð¦^¦Cªí ¤W¤@¥DÃD