excel 中的VBA

这天一个好朋友叫我帮他算一个EXCEL数据。由于数据太大，我早先想把数据导到数据库再计算，后来，觉得这样
太麻烦，顺便也想学学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