¼x¨D°ª¤âÀ°§Ú¸Ñ¨M¤@¤U³oÓ°ÝÃD
- ©«¤l
- 365
- ¥DÃD
- 40
- ºëµØ
- 0
- ¿n¤À
- 406
- ÂI¦W
- 0
- §@·~¨t²Î
- Win 7
- ³nÅ骩¥»
- OFFICE 2003
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2012-12-11
- ³Ì«áµn¿ý
- 2024-8-24
|
¼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 |
|
|
|
|
|
|
- ©«¤l
- 365
- ¥DÃD
- 40
- ºëµØ
- 0
- ¿n¤À
- 406
- ÂI¦W
- 0
- §@·~¨t²Î
- Win 7
- ³nÅ骩¥»
- OFFICE 2003
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2012-12-11
- ³Ì«áµn¿ý
- 2024-8-24
|
¥»©«³Ì«á¥Ñ ÂŤÑÄ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 |
|
|
|
|
|
|
- ©«¤l
- 2035
- ¥DÃD
- 24
- ºëµØ
- 0
- ¿n¤À
- 2031
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-3-22
- ³Ì«áµn¿ý
- 2024-2-1
|
¦^´_ 1# ÂŤÑÄR¦À
´£¨Ñ°Ñ¦Ò¡G- .[A3].Resize(1, 8).Font.FontStyle = "²ÊÅé"
½Æ»s¥N½X |
|
|
|
|
|
|
- ©«¤l
- 365
- ¥DÃD
- 40
- ºëµØ
- 0
- ¿n¤À
- 406
- ÂI¦W
- 0
- §@·~¨t²Î
- Win 7
- ³nÅ骩¥»
- OFFICE 2003
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2012-12-11
- ³Ì«áµn¿ý
- 2024-8-24
|
¦^´_ 3# c_c_lai
½Ð°ÝC¤j³oÓµ{¦¡½Xn¥[¦bþ¸Ì°Ú?? |
|
|
|
|
|
|
- ©«¤l
- 2035
- ¥DÃD
- 24
- ºëµØ
- 0
- ¿n¤À
- 2031
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-3-22
- ³Ì«áµn¿ý
- 2024-2-1
|
¦^´_ 4# ÂŤÑÄR¦À - Sub RecordPrice()
- Dim WR As Long
- ' ActiveWindow.ScrollRow = WR - 5 ' ¥uÅã¥Ü³Ì·s´Xµ§¸ê®Æ
- Application.ScreenUpdating = False
- With Sheets("RTD")
- If .Range("H2") < 1 Then Exit Sub
- WR = Range("A1").End(xlDown).Row + 1
- If (WR = 3) Or _
- (.Range("G" & WR - 1) <> .Range("G2")) Then ' Á`¶q¦³²§°Ê®É¤~°O¿ý
- .Rows(3).Insert
- .[A3].Resize(1, 8) = .[A2].Resize(1, 8).Value
- .[A3].Resize(1, 8).Font.FontStyle = "²ÊÅé"
- End If
- End With
- Application.ScreenUpdating = True
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|
- ©«¤l
- 365
- ¥DÃD
- 40
- ºëµØ
- 0
- ¿n¤À
- 406
- ÂI¦W
- 0
- §@·~¨t²Î
- Win 7
- ³nÅ骩¥»
- OFFICE 2003
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2012-12-11
- ³Ì«áµn¿ý
- 2024-8-24
|
¦^´_ 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?? |
|
|
|
|
|
|
- ©«¤l
- 2035
- ¥DÃD
- 24
- ºëµØ
- 0
- ¿n¤À
- 2031
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-3-22
- ³Ì«áµn¿ý
- 2024-2-1
|
¥»©«³Ì«á¥Ñ c_c_lai ©ó 2015-12-29 08:03 ½s¿è
¦^´_ 6# ÂŤÑÄR¦À
. |
|
|
|
|
|
|
- ©«¤l
- 2035
- ¥DÃD
- 24
- ºëµØ
- 0
- ¿n¤À
- 2031
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-3-22
- ³Ì«áµn¿ý
- 2024-2-1
|
¦^´_ 6# ÂŤÑÄR¦À - If (WR = 3) Or _
- (.Range("G" & WR - 1) <> .Range("G2")) Then ' Á`¶q¦³²§°Ê®É¤~°O¿ý
½Æ»s¥N½X »P- If (WR = 3) Or _
- (.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¥~§AnþÓ³¡¦ìnÅã¥Ü¡y²ÊÅé¡z¡A¬O§AÓ¤H¦Û¦æ³]©wªº¡C½d¨Ò¥u¬On§i¶D§A³]©wªº¤èªk¡A
.[A3].Resize(1, 8).Font.FontStyle = "²ÊÅé" ¬O³]©w¸Ó¦æ¥þ¬°¡y²ÊÅé¡z¡AY§A¥un 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 |
|
|
|
|
|
|
- ©«¤l
- 365
- ¥DÃD
- 40
- ºëµØ
- 0
- ¿n¤À
- 406
- ÂI¦W
- 0
- §@·~¨t²Î
- Win 7
- ³nÅ骩¥»
- OFFICE 2003
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2012-12-11
- ³Ì«áµn¿ý
- 2024-8-24
|
¦^´_ 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¶Ü?? |
|
|
|
|
|
|
- ©«¤l
- 2035
- ¥DÃD
- 24
- ºëµØ
- 0
- ¿n¤À
- 2031
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-3-22
- ³Ì«áµn¿ý
- 2024-2-1
|
¥»©«³Ì«á¥Ñ c_c_lai ©ó 2015-12-29 19:00 ½s¿è
¦^´_ 9# ÂŤÑÄR¦À
¤£¦n·N«ä½Ð°Ý¡u¦P®æ¦¡¤Æ±ø¥ó¡v«üªº¬O¬Æ»ò¡H
¯à§_»¡©ú¤@¤U¡A³o¼Ë§Ú¤~ª¾§Anªº¬O¤°»ò¡C
³Ì¦n¦³Ó¨Ò¤lµe¸¬¤@¤U¡A¦]¬°§ÚÁÙ¨S¤ÏÀ³¹L¨Ó¡C |
|
|
|
|
|
|