GBKEE

¦^´_ 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

ÂŤÑÄR¦À

¦^´_ 14# GBKEE

§ï.rar (730.38 KB)

¤U¸ü¦¸¼Æ: 6

2014-12-7 10:23

    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?

GBKEE

¦^´_ 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

ÂŤÑÄR¦À

¦^´_ 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ÁÂ

GBKEE

¦^´_ 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

ÂŤÑÄR¦À

¦^´_ 9# GBKEE


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

¤U¸ü¦¸¼Æ: 7

2014-12-6 20:03

¦]¬°µ{¦¡Ãö«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

ÂŤÑÄR¦À

¦^´_ 9# GBKEE

G¤j¯uªº«ÜÁÂÁ§A¡A³o¼ËOK¤F

GBKEE

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

¬O³o¼Ë¶Ü?

1. With Sheets("RTD").Cells(i + 2, "T").Resize(, 7)
   
2.             .Offset(-1).Value = .Offset(-1).Value '¤W¤@¦C:±N¤½¦¡¦^¼Æ­È
   
3.             
   
4.                     'TÄ椽¦¡=IF(ISERROR(MATCH(U2,P:P,0)),"",MATCH(U2,P:P,0))
   
5.             .Range("A1") = "=IF(ISERROR(MATCH(RC[1],P:P,0)),"""",MATCH(RC[1],P:P,0))"
   
6.                     'UÄæ
   
7.             .Range("B1") = IIf(Minute(Time) Mod 2 = 0, Application.Sum(Range("A1:C1")), Application.Sum(Range("A2:C2")))
   
8.                     'VÄæ
   
9.             .Range("C1") = Time
   
10.                     'WÄ椽¦¡=IF(ISERROR(INDIRECT("O"&T2)),"",INDIRECT("O"&T2))
    
11.             .Range("D1") = "=IF(ISERROR(INDIRECT(""O""&RC[-3])),"""",INDIRECT(""O""&RC[-3]))"
    
12.                     'XÄ椽¦¡=IF(W2="","",IF(W2>54,-1,IF(W2<6,1,"")))
    
13.             .Range("E1") = "=IF(RC[-1]="""","""",IF(RC[-1]>54,-1,IF(RC[-1]<6,1,"""")))"
    
14.                     'YÄ椽¦¡=IF(ISERROR(INDIRECT("R"&T2)),Y1,INDIRECT("R"&T2))
    
15.             .Range("F1") = "=IF(ISERROR(INDIRECT(""R""&RC[-5])),R[-1]C,INDIRECT(""R""&RC[-5]))"
    
16.                     'ZÄ椽¦¡=IF(ISERROR(Y2-Y1),"",Y2-Y1)
    
17.             .Range("G1") = "=IF(ISERROR(RC[-1]-R[-1]C[-1]),"""",RC[-1]-R[-1]C[-1])"
    
18.            
    
19.         End With
    
20.         

½Æ»s¥N½X

ÂŤÑÄR¦À

¦^´_ 4# GBKEE

G¤j­è­èªº¦^ÂЦ³ÂI¶Ã¡A¥H¤U¤~¬O¯u¹êª©¥»(©êºpÅ޿観ÂI¶Ã±¼¤~·|³o¼Ë)

    G¤j¡A­è­è¤W­zªº³¡¤À§Ú¤w¸g­×§ï§¹¦¨¤F¡A¥Ø«e°õ¦æ¤W¬OOKªº¡A¤£¹L¸òG¤j»¡¤@Án©êºp¡A¦]¬°§Ú¶]§¹«áµo²{³o¤£¬O§Ú­nªºµ²ªG

·Q¦b½Ð±Ð¤@¤UG¤j¡A¦pªG§Ú­n§â¤§«eªº¨º­Óµ{¦¡§ï¦¨¨ç¼Æ¥X²{¦b«á¤@¤ÀÄÁªºÀx¦s®æ¡Aµ¥¨ì®É¶¡¨ì¦b¼g¦¨­È(¥D­n¬O­n¬Ý¨C¬íÄÁªºÅܤơA¦ý¬O¤§«eªºµ{¦¡°õ¦æ«áÅܦ¨¨C¤ÀÄÁ¨ìªº®É­Ô¤~¬Ýªº¨ì¼Æ­È)¡A¨Ò¦p8:45¤Àªº®É­Ô±N¤½¦¡¼g¦b8:46¤À¬Û¹ïÀ³ªºÀx¦s®æ¡AµM«á8:46¤À¨ìªº®É­Ô¦A±N¤½¦¡¼g¦¨­È¡A½Ð°Ý¤@¤UG¤j³o¼Ë­n«ç»ò§ï??

ÂŤÑÄR¦À

¦^´_ 4# GBKEE


    G¤j¡A­è­è¤W­zªº³¡¤À§Ú¤w¸g­×§ï§¹¦¨¤F¡A¥Ø«e°õ¦æ¤W¬OOKªº¡A¤£¹L¸òG¤j»¡¤@Án©êºp¡A¦]¬°§Ú¶]§¹«áµo²{³o¤£¬O§Ú­nªºµ²ªG¡A·Q¦b½Ð±Ð¤@¤UG¤j¡A¦pªG§Ú­n§â¤§«eªº¨º­Óµ{¦¡§ï¦¨¨ç¼ÆÁÙ¬O¦bÀx¦s®æ¤W­±¡A¦ý·í¨C¤ÀÄÁ°õ¦æ§¹«á±µ­È¼g¦bÀx¦s®æ¤º(¥D­n¬O­n¬Ý¨C¬íÄÁªºÅܤơA¦ý¬Oµ{¦¡°õ¦æ«áÅܦ¨¨C¤ÀÄÁ¨ìªº®É­Ô¤~¬Ýªº¨ì¼Æ­È)¡A¦Ó¬O¤£¤½¦¡¡A½Ð°Ý¤@¤UG¤j³o¼Ë­n«ç»ò§ï??