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

³oºØ¨Ì®É¶¡¹Bºâªº¥¨¶°­n¦p¦ó¼g??

¥»©«³Ì«á¥Ñ ÂŤÑÄR¦À ©ó 2014-12-6 20:19 ½s¿è

¦^´_ 9# GBKEE


    G¤j¥i¥H¦AÀ°§Ú¤@¦¸¶Ü??
§ï.rar (95.23 KB)

¦]¬°µ{¦¡Ãö«Y¡A©Ò¥H³o¦¸­n°µÂI¤p­×§ï¡A¦b³Â·ÐG¤j¤@¤U

¤W¦¸ªºµ{¦¡¬O¼g¦¨©¹¤U°õ¦æ¡A¹L¤@¤ÀÄÁ«á¦A±N«e¤@­Ó¼g¦¨­È¡A³o¦¸§Ú­n±Nµ{¦¡§ï¦¨©¹¥kÃä°õ¦æ(´N¬O³o¤@¤ÀÄÁ°õ¦æTÄæ¡A¤U¤@¤ÀÄÁ°õ¦æUÄæ¡A¥B§âTÄ檺¤½¦¡¼g¬°­È¡A¥H¦¹Ãþ±À)¡A½Ð°Ý¤@¤UG¤j¡A¦pªG³o¼Ëªº¸Üµ{¦¡­n«ç»ò§ï©O??

²³æªº»¡´N¬O°õ¦æªº¤º®e¤£ÅÜ¡A¥u¬O¦æ¦C¹ï½Õ

·PÁ±z

TOP

¦^´_ 11# ÂŤÑÄR¦À
  1. Option Explicit
  2. Dim NextTime As Date
  3. Sub RecordPrice()
  4.     Dim i As Integer
  5.     i = Cells(2, Columns.Count).End(xlToLeft).Column
  6.     'i: ¶Ç¦^¤u§@ªí³Ì¥kÃ䪺Àx¦s®æ, ¦V¥ª¨ì³Ì«á¦³¸ê®ÆªºÀx¦s®æªºÄ渹
  7.     'Cells(¦C¸¹, Ä渹).END(¦V¥ª¨ì³Ì«á¦³¸ê®ÆªºÀx¦s®æ)
  8.     'Columns.Count(¤u§@ªíÄ檫¥óªºÁ`­p)
  9.     With Range("t2")
  10.         If .Value = "" Then
  11.             .Cells = "¤½¦¡A"          '§Aªº¤½¦¡
  12.             .Cells(2) = "¤½¦¡B"       '¤U¤@¦Cªº¤½¦¡
  13.         ElseIf i >= .Column Then      '
  14.              '³o¸Ì¨S¦³.Cells ¬°³o¤u§@ªí¥HA1¬°°òÂIªºCells
  15.             Cells(2, i) = Cells(2, i).Value
  16.             Cells(3, i) = Cells(3, i).Value
  17.             Cells(2, i + 1) = "¤½¦¡A" '¤U¤@Äæµ¹¤½¦¡
  18.             Cells(3, i + 1) = "¤½¦¡B"
  19.         End If
  20.     End With
  21. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¥»©«³Ì«á¥Ñ ÂŤÑÄR¦À ©ó 2014-12-7 09:19 ½s¿è

¦^´_ 12# GBKEE

¸òG¤j½Ð±Ð¨â­Ó°ÝÃD¡G

1.§Ú¤§«eªº·Qªk¬O¥u­n¦æ¦C¤¬´«¡A©Ò¥H¦pªG¥u±NWith Sheets("RTD").Cells(i + 2, "T").Resize(, 7)§ï¦¨With Sheets("RTD").Cells("T" , i + 2).Resize(5 ,) ³o¼Ë¬O¥i¥Hªº¶Ü??
2. .Offset(-1).Value = .Offset(-1).Value '¤W¤@¦C:±N¤½¦¡¦^¼Æ­È            ¥t¥~³o¦æ§Ú´N¤£·|§ï¤F
3.¦pªG1.ªº·Qªk¬O¥¿½Tªº¨º¤§«e¤U­±ªº¤½¦¡­n«ç»ò§ï??

4.i = Cells(2, Columns.Count).End(xlToLeft).Column
    'i: ¶Ç¦^¤u§@ªí³Ì¥kÃ䪺Àx¦s®æ, ¦V¥ª¨ì³Ì«á¦³¸ê®ÆªºÀx¦s®æªºÄ渹
    'Cells(¦C¸¹, Ä渹).END(¦V¥ª¨ì³Ì«á¦³¸ê®ÆªºÀx¦s®æ)
    'Columns.Count(¤u§@ªíÄ檫¥óªºÁ`­p)
¥H¤W¬O³o¦¸ªº·s¤½¦¡¡A½Ð°ÝG¤j³o­Ó·s¤½¦¡¥i¥H³]©w±q­þ¤@¦C¶}©l¶Ü??¦]¬°§ÚOÄ椧«e¦³¨ä¥LªºªF¦è¡A³o¼Ë·|¼vÅT¨ì¶Ü??

5. If .Value = "" Then
            .Cells = "¤½¦¡A"          '§Aªº¤½¦¡
            .Cells(2) = "¤½¦¡B"       '¤U¤@¦Cªº¤½¦¡
¥H¤W¬O³o¦¸ªº·s¤½¦¡¡AG¤j¬OÁ|¨â­Ó¬°¨Ò¡A¦pªG§Ú­n¼W¥[¤½¦¡§ï¦¨¥H¤U³o¼Ë¬O§_¥¿½T
If .Value = "" Then
            .Cells = "¤½¦¡A"          '§Aªº¤½¦¡
            .Cells(2) = "¤½¦¡B"       '¤U¤@¦Cªº¤½¦¡
           .Cells(3) = "¤½¦¡C"       '¤U¤@¦Cªº¤½¦¡
           .Cells(4) = "¤½¦¡D"       '¤U¤@¦Cªº¤½¦¡
                                       .
                                       .
                                       .
                                ¥H¦¹Ãþ±À
6.ElseIf i >= .Column Then      '
             '³o¸Ì¨S¦³.Cells ¬°³o¤u§@ªí¥HA1¬°°òÂIªºCells
            Cells(2, i) = Cells(2, i).Value
            Cells(3, i) = Cells(3, i).Value
            Cells(2, i + 1) = "¤½¦¡A" '¤U¤@Äæµ¹¤½¦¡
            Cells(3, i + 1) = "¤½¦¡B"
¦pªG5.­×§ïµ{¦¡¼W¥[¤½¦¡¼Æ¶q¡A¨º6.ªº³¡¤À­n­×§ï¶Ü??

©êºpG¤j°ÝÃD¦³ÂI¦hÁÙ½ÐG¤j¤£§[«ü±Ð¡A·PÁÂ

TOP

¦^´_ 13# ÂŤÑÄR¦À
¬d¬ÝVBA Offset ÄÝ©Ê ªº»¡©ú
  1. .Offset( ,-1).Value = .Offset( ,-1).Value '¥ª¤@Äæ:±N¤½¦¡¦^¼Æ­È            
½Æ»s¥N½X
i: ¶Ç¦^¤u§@ªí³Ì¥kÃ䪺Àx¦s®æ, ¦V¥ª¨ì³Ì«á¦³¸ê®ÆªºÀx¦s®æªºÄ渹
OÄæ¦bTÄ檺¥ªÃ䤣·|¼vÅTªº

¦pªG5.­×§ïµ{¦¡¼W¥[¤½¦¡¼Æ¶q¡A¨º6.ªº³¡¤À­n­×§ï¶Ü??
5¼W¥[¤½¦¡¼Æ¶q¡A·íµM 6.ªº³¡¤À­n­×§ï©Ò¼W¥[¤½¦¡¼Æ¶q
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¥»©«³Ì«á¥Ñ ÂŤÑÄR¦À ©ó 2014-12-7 10:38 ½s¿è

¦^´_ 14# GBKEE

§ï.rar (730.38 KB)
    G¤j§Ú§â­n§ïª©ªºµ{¦¡¤W¶Ç¡A³Â·Ð§AÀ°§Ú¬Ý¤@¤U
¦pªG·ÓG¤j»¡ªº§Ú¦³200­Óµ{¦¡¤£´N­n¥´200¦C??    :'(  
ªþ¥ó¤¤§Ú­n°õ¦æªº´N¬O8:45±N¤½¦¡¼g¨ìJ2-J202¡Aµ¥¨ì8:46±N¤½¦¡¼g¨ìK2-K202¡B¥B±NJ2-J202ªº¤½¦¡¼g¦¨­È¡A¥H¦¹Ãþ±À¤@ª½°õ¦æ¨ì³Ì¥kÃä¤]´N¬O°õ¦æ¨ì13:45
¤W­z³¡¤À¦³¤ñ¸û²³æªº¼gªk¶Ü??

¥t¥~§Ú¥i¥H¸òG¤j¥æ­ÓªB¤Í¶Ü??G¤j¦³FB¶Ü??©Î¬Oline?

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2014-12-7 14:30 ½s¿è

¦^´_ 15# ÂŤÑÄR¦À
VBA¤½¦¡¤å¦r¥i¥Î¥¨¶°¿ý»s: ¦b¤½¦¡©Ò¦bªºÀx¦s®æ§@¿é¤Jªº°Ê§@
  1. Sub RecordPrice()
  2.     Dim i As Integer, ¤½¦¡(1 To 2)
  3.     i = Cells(2, Columns.Count).End(xlToLeft).Column
  4.     ¤½¦¡(1) = "=MATCH(R[-1]C,R3C6:R50000C6,0) + 1"
  5.     ¤½¦¡(2) = "=IF(SUMIF(INDIRECT(""D""&R2C[-1]+1):INDIRECT(""D""&R2C),RC9,INDIRECT(""E""&R2C[-1]+1):INDIRECT(""E""&R2C))=0,"""",SUMIF(INDIRECT(""D""&R2C[-1]+1):INDIRECT(""D""&R2C),RC9,INDIRECT(""E""&R2C[-1]+1):INDIRECT(""E""&R2C)))"
  6.     With Range("J2")
  7.         If .Value = "" Then
  8.             .Cells = ¤½¦¡(1)         '§Aªº¤½¦¡"
  9.             .Cells(2).Resize(200) = ¤½¦¡(2)
  10.         ElseIf i >= .Column Then      '
  11.             Cells(2, i) = Cells(2, i).Value
  12.             Cells(3, i).Resize(200) = Cells(3, i).Resize(200).Value
  13.             Cells(2, i + 1) = ¤½¦¡(1)
  14.             Cells(3, i + 1).Resize(200) = ¤½¦¡(2)
  15.         End If
  16.     End With
  17. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¥»©«³Ì«á¥Ñ ÂŤÑÄR¦À ©ó 2014-12-8 18:14 ½s¿è

¦^´_ 16# GBKEE


    G¤j·PÁ§A¡AG¤j½Ð±Ð¤@¤U¸Ì­±¦n¹³¨S¦³¬Ý¨ì®É¶¡ªº³]©w¡A¤§«e¦³³]©w±q8:45¶}©l¨ì13:45µ²§ô¡A³o¦¸¨S¬Ý¨ì¡A¬O¤w¸g¼g¦b¸Ì­±¤F¶Ü?

TOP

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

¤§«e¦³³]©w±q8:45¶}©l¨ì13:45µ²§ô¡A³o¦¸¨S¬Ý¨ì
Sub RecordPrice() ®M¤W¤£´N¥i¥H¤F¶Ü?
§A¹ïVBAÀ³¸Ó¦³»{ÃѤF,¦h½m²ß¤@¤U´N·|¶i¨Bªº.
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 18# GBKEE


    G¤j§Ú­×§ï§¹¦¨¤F·PÁ§AªºÀ°§U¡A·P¿E¤£ºÉ

TOP

µ¦²¤¤ý³ø»ù.rar (59.39 KB) ¦^´_ 18# GBKEE


    ½Ð°ÝG¤j¦³¹J¹L³oºØ±¡ªp¶Ü??¸Ì­±ªºªí³æ(µn¤J¡B±µ¦¬¸ê®Æ...)³£¤£¯àÂI¡A¬O¤£¬O¦³³]©w¨ì¤°»ò?

TOP

        ÀR«ä¦Û¦b : ¤â¤ß¦V¤U¬O§U¤H¡A¤â¤ß¦V¤W¬O¨D¤H¡F§U¤H§Ö¼Ö¡A¨D¤Hµh­W¡C
ªð¦^¦Cªí ¤W¤@¥DÃD