这天一个好朋友叫我帮他算一个EXCEL数据。由于数据太大,我早先想把数据导到数据库再计算,后来,觉得这样
太麻烦,顺便也想学学VBA.所以用了VBA,不过这些也太简单了,
太麻烦,顺便也想学学VBA.所以用了VBA,不过这些也太简单了,
Private
Sub
CommandButton1_Click()
For i = 3 To 6061
If (i - 3 ) Mod 201 <> 0 Then
Worksheets( " stock30 " ).Range( " D " & i) = (Worksheets( " stock30 " ).Range( " C " & i) -
Worksheets( " stock30 " ).Range( " C " & i - 1 )) / Worksheets( " stock30 " ).Range( " C " & i)
Else
Worksheets( " stock30 " ).Range( " D " & i) = " begin "
End If
Next i
End Sub
For i = 3 To 6061
If (i - 3 ) Mod 201 <> 0 Then
Worksheets( " stock30 " ).Range( " D " & i) = (Worksheets( " stock30 " ).Range( " C " & i) -
Worksheets( " stock30 " ).Range( " C " & i - 1 )) / Worksheets( " stock30 " ).Range( " C " & i)
Else
Worksheets( " stock30 " ).Range( " D " & i) = " begin "
End If
Next i
End Sub