¦p¦óÅý³Ì·sªº¸ê®Æ³£¼g¦b¤W±??
- ©«¤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-28 07:48 ½s¿è
¦^´_ 1# ÂŤÑÄR¦À
½Ð°Ñ¦Ò¡G- Application.ScreenUpdating = False
-
- With Sheets("RTD")
- .Rows(3).Insert
- .[A3].Resize(1, 8) = .[A2].Resize(1, 8).Value
- End With
- Application.ScreenUpdating = True
½Æ»s¥N½X |
|
|
|
|
|
|
- ©«¤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-28 19:20 ½s¿è
¦^´_ 5# ÂŤÑÄ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 |
|
|
|
|
|
|