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

[µo°Ý] ¤é´Á¤ñ¹ï

[µo°Ý] ¤é´Á¤ñ¹ï

Dim day As String
Dim i As Integer

For i = 7 To 10000
If Worksheets("½ü°Ê­È").Range("A2") = Worksheets("½ü°Ê­È").Range("A" & i) Then
Worksheets("½ü°Ê­È").Range("B" & i & ":I" & i).Value = Worksheets("½ü°Ê­È").Range("B2:I2").Value
GoTo stockup
End If
Next

stockup:

-------------------------------------------------------------
½Ð°Ý§Ú  Worksheets("½ü°Ê­È").Range("A2")     ¿é¤J  NOW()    §PÂ_¦¡´NµLªk¤ñ¹ï¤é´Á

¤§«á­×§ï¦¨¤U­±  ¤]µLªk§PÂ_¡A¦ý¬O Worksheets("½ü°Ê­È").Range("A2")   ª½±µ¿é¤J¤é´Á  ex. 2011/11/21   ´N¥i¥H¤ñ¹ï



Dim day As String
Dim i As Integer

For i = 7 To 10000
day = Worksheets("½ü°Ê­È").Range("A" & i)
If day = Worksheets("½ü°Ê­È").Range("A" & i) Then

Worksheets("½ü°Ê­È").Range("B" & i & ":I" & i).Value = Worksheets("½ü°Ê­È").Range("B2:I2").Value
GoTo stockup
End If
Next

stockup:

¥»©«³Ì«á¥Ñ ken759727 ©ó 2011-11-22 17:15 ½s¿è

·PÁ ooBird   GBKEE    «ü¤Þ

§Ú§â¨ç¼Æ ´«¦¨  =VALUE(MID(Futures!A2,4,10))

´N¥i¥H¨Ï¥Î§PÂ_¦¡¤F

¸U¤À·PÁÂ

TOP

now() ¨ç¼Æ·|¥]¬A®É¶¡¡A®É¡B¤À¡B¬í
´«¥y¸Ü»¡¡A¥¦¤£¬O¾ã¼Æ¡C
oobird µoªí©ó 2011/11/22 16:32

now() §ï¥Î DATE

TOP

now() ¨ç¼Æ·|¥]¬A®É¶¡¡A®É¡B¤À¡B¬í
´«¥y¸Ü»¡¡A¥¦¤£¬O¾ã¼Æ¡C

TOP

        ÀR«ä¦Û¦b : ¯à·F¤£·F¡A¤£¦p­W·F¹ê·F¡C
ªð¦^¦Cªí ¤W¤@¥DÃD