¦U¦ì¥ý¶i
¥i§_À°¤p§Ì¬Ý¤@¤U ¥H¤U»yªk þ¸Ì¦³¿ù
§Ún³B²z¬¡¶Ã¯²zªº©Ò¦³¤u§@ªí ¥i¬O¥L¥u¯à¦b¦P¤@Óws¤º¶]"¥Ø«e¤u§@ªíªº¼Æ¶q"ªº¦¸¼Æ ¨S¿ìªk¤@Ó¤u§@ªí¶]§¹ ¶]¤U¤@Ó£» ©Î¬O¦U¦ì¤j¤j¦³§ó¦nªº¼gªk?!
Sub A123()
Dim I%, J%, k%
Dim Current As Worksheet
For Each Current In Worksheets
J = Rows(1).End(xlToRight).Column
J = J - 1
Columns(J).Insert Shift:=xlToRight
k = Range("a:a").End(xlDown).Row
For I = 2 To k Step 1
Cells(I, (J + 1)).Formula = "=IF(ISBLANK(OFFSET(0,-1)),"",OFFSET(0,-1)-OFFSET(0,-2))"
Cells(I, (J + 2)).Formula = "=IF(ISBLANK(OFFSET(0,-2)),"",B3+(OFFSET(0,-2)*0.001)-ROUND(RAND()*0.00005,5))"
If Cells(I, (J - 1)) = "" Then
Cells(I, J) = ""
ElseIf Cells(I, (J - 1)) - Cells(I, (J - 2)) > 0 Then
Randomize
Cells(I, J) = Round(((-0.1 - -0.4) * Rnd + -0.4), 1) + Cells(I, (J - 1))
ElseIf Cells(I, (J - 1)) - Cells(I, (J - 2)) < 0 Then
Randomize
Cells(I, J) = Round(((0.3 - 0.1) * Rnd + 0.1), 1) + Cells(I, (J - 1))
End If
Next I
Cells(1, J) = Now()
MsgBox Current.Name
Next
End Sub |