原帖由 XK421 于 2004-11-14 11:41 发表
Sub 矩形2_单击()
Dim i As interge
For i = 1 To 15
Sheet("sheet1").cell(i, 2) = x + 100
Next
Range("b16").Value = Application.WorksheetFunction.Sum(Range("b1: b15 "))
End Sub哪位高手能帮我看看我的 ...
Sheet("sheet1").cell(i, 2) = x + 100
应该是:sheets("sheet1").cells(i,2)=x+100