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

¼x¨D°ª¤âÀ°§Ú¸Ñ¨M¤@¤U³o­Ó°ÝÃD

¼x¨D°ª¤âÀ°§Ú¸Ñ¨M¤@¤U³o­Ó°ÝÃD

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

WR = Range("A1").End(xlDown).Row + 1
[A2] = TimeValue(Now)
For I = 1 To 42
   Cells(WR, I) = Cells(2, I)
Next 'I
With ActiveWindow
        If Intersect(Cells(WR, "B"), .VisibleRange) Is Nothing Then .SmallScroll 1
    End With
End Sub

¥H¤Wµ{¦¡½X¦pªG§Ú­n±NA1²ÊÅ骺¼Æ¦r©¹¤U¼g¡ACells(WR, I) = Cells(2, I)³o­Ó¦a¤è­n«ç»ò§ï??
¥Ø«e©¹¤U¼g²ÊÅé´N·|®ø¥¢¤F

¥»©«³Ì«á¥Ñ ÂŤÑÄR¦À ©ó 2015-12-27 16:23 ½s¿è

ÅÜ°Ê°O¿ý.rar (20.51 KB) ¦^´_ 1# ÂŤÑÄR¦À


1.¥Ø«e¾A¥Î±ø¥ó®æ¦¡¤Æªº¤è¦¡³B²z¡A¦ý¬O­ì¥ýªºµ{¦¡½X©¹¤U¼gªº®É­Ô¥u·|¼g¤J­È¡A¥i¥H§ï¦¨©¹¤U¼g¤£­n¥H±ø¥ó®æ¦¡¤Æªº¤è¦¡¥X²{ ¡A³æ¯Â´N±N¦rÅéÅܲʴN¦n(´N¹³§Ú­Ì±N¤@­ÓÀx¦s®æ¤ºªº¦rÅéÅܲʳo¼Ë)¡A³o¼Ë¥i¥H¶Ü??
2. ¥t¥~¡A§Ú¤U­±³]©wªº¦Û°Ê±²°Ê¡A¥i¥H§ï¦¨¶}Ãöªº¤è¦¡¶Ü(´N¬O¥i¥H¥Î¼öÁä¶}Ãöªº¤è¦¡)??  
ÁÂÁÂG¤j¡A³Ìªñ¤W¨Ó½×¾Âªº¤H¦n¤Ö¡AÁÙ¥H¬°³sG¤j³£¨S¦A¤W¨Ó¤F©O

TOP

¦^´_ 1# ÂŤÑÄR¦À
´£¨Ñ°Ñ¦Ò¡G
  1.         .[A3].Resize(1, 8).Font.FontStyle = "²ÊÅé"
½Æ»s¥N½X

TOP

¦^´_ 3# c_c_lai

½Ð°ÝC¤j³o­Óµ{¦¡½X­n¥[¦b­þ¸Ì°Ú??

TOP

¦^´_ 4# ÂŤÑÄR¦À
  1. Sub RecordPrice()
  2.     Dim WR As Long

  3.     '  ActiveWindow.ScrollRow = WR - 5 '  ¥uÅã¥Ü³Ì·s´Xµ§¸ê®Æ
  4.     Application.ScreenUpdating = False

  5.     With Sheets("RTD")
  6.         If .Range("H2") < 1 Then Exit Sub

  7.         WR = Range("A1").End(xlDown).Row + 1
  8.         If (WR = 3) Or _
  9.                 (.Range("G" & WR - 1) <> .Range("G2")) Then  ' Á`¶q¦³²§°Ê®É¤~°O¿ý
  10.             .Rows(3).Insert
  11.             .[A3].Resize(1, 8) = .[A2].Resize(1, 8).Value
  12.             .[A3].Resize(1, 8).Font.FontStyle = "²ÊÅé"
  13.         End If
  14.     End With

  15.     Application.ScreenUpdating = True
  16. End Sub
½Æ»s¥N½X

TOP

¦^´_ 5# c_c_lai

¥X²{»yªk¿ù»~¦b¥H¤Uµ{¦¡½X
If (WR = 3) Or _

                (.Range("G" & WR - 1) <> .Range("G2")) Then  ' Á`¶q¦³²§°Ê®É¤~°O¿ý

¥t¥~½Ð±Ð¤@¤UC¤j¡A§Ú¥Ø«e¦bG2¦³³]©w®æ¦¡±ø¥óG2>9¤~ÅܲÊÅé(¤§«á¥i¯àÁÙ·|³]©w§Oªº±ø¥ó¦b²Ä2Ä檺Àx¦s®æ)¡A½Ð±Ð¤@¤UC¤j©pªºµ{¦¡½X¨Æ³£Åý©Ò¦³ªº¼Æ¦rÅܲÊÅé¡AÁÙ¬O¥u¦³²Ä¤GÄæÅܲÊÅ驹¤U¼g¤~ÅܲÊÅé©O??

TOP

¥»©«³Ì«á¥Ñ c_c_lai ©ó 2015-12-29 08:03 ½s¿è

¦^´_ 6# ÂŤÑÄR¦À
.

TOP

¦^´_ 6# ÂŤÑÄR¦À
  1. If (WR = 3) Or _

  2.                  (.Range("G" & WR - 1) <> .Range("G2")) Then  ' Á`¶q¦³²§°Ê®É¤~°O¿ý
½Æ»s¥N½X
»P
  1. If (WR = 3) Or _
  2.                  (.Range("G" & WR - 1) <> .Range("G2")) Then  ' Á`¶q¦³²§°Ê®É¤~°O¿ý
½Æ»s¥N½X
¬O­Ó§¹¥þ¤£¦Pªº±Ô­z¡A¡y_¡z±µÄòªº»y¥y«á­±¬O¤£¯à¦³ªÅ¦æªº¡A§_«h·|¬O­Ó¡u¤£¦Xªkªº»yªk¡v¡C
¥t¥~§A­n­þ­Ó³¡¦ì­nÅã¥Ü¡y²ÊÅé¡z¡A¬O§A­Ó¤H¦Û¦æ³]©wªº¡C½d¨Ò¥u¬O­n§i¶D§A³]©wªº¤èªk¡A
.[A3].Resize(1, 8).Font.FontStyle = "²ÊÅé" ¬O³]©w¸Ó¦æ¥þ¬°¡y²ÊÅé¡z¡A­Y§A¥u­n G Äæ³]©w¬°
¡y²ÊÅé¡z¡A«h«KÀ³§ï¦¨  .[G3].Font.FontStyle = "²ÊÅé"¡CÀH§A­Ó¤H¤§À³¥Î¡C°²³] G2 > 9 ¤~ÅÜ
¬°²ÊÅé¡A«h§ó§ï¦¨¡u .[G3].Font.FontStyle = IIf(.[G2] > 9, "²ÊÅé", "¼Ð·Ç")¡v§Y¥i¡C

TOP

¦^´_ 8# c_c_lai


    C¤j·PÁ§A¡A¥t¥~¦A¸ò§A½Ð±Ð¤@¤U¡A§A¥Ø«e¼gªºµ{¦¡½X¦bG¦CÅܦ¨¥þ³¡ªºÀx¦s®æ³£¦³®æ¦¡¤Æ±ø¥ó¤F¡A¥i¥H§ï¦¨¥u¦³G2¥h°µ§P©w¡A¦pªG¤j©ó9©¹¤U¼g¤J²ÊÅé´N¦n¡A¦Ó¤£­n³s¦P®æ¦¡¤Æ±ø¥ó¤@°_¼g¤J¡A³o¼Ë¥i¥H¶Ü??

TOP

¥»©«³Ì«á¥Ñ c_c_lai ©ó 2015-12-29 19:00 ½s¿è

¦^´_ 9# ÂŤÑÄR¦À
¤£¦n·N«ä½Ð°Ý¡u¦P®æ¦¡¤Æ±ø¥ó¡v«üªº¬O¬Æ»ò¡H
¯à§_»¡©ú¤@¤U¡A³o¼Ë§Ú¤~ª¾§A­nªº¬O¤°»ò¡C
³Ì¦n¦³­Ó¨Ò¤lµe¸¬¤@¤U¡A¦]¬°§ÚÁÙ¨S¤ÏÀ³¹L¨Ó¡C

TOP

        ÀR«ä¦Û¦b : ¡i¬O§_µo´§¤F¨}¯à¡H¡j¤H¶¡¹Ø©R¦]¬°µu¼È¡A¤~§óÅã±o¬Ã¶Q¡CÃø±o¨Ó¤@½ë¤H¶¡¡AÀ³°Ý¬O§_¬°¤H¶¡µo´§¤F¦Û¤vªº¨}¯à¡A¦Ó¤£­n¤@¨ý¨Dªø¹Ø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD