具体是这样的,在EXCEL中做了一个库存,当点”入库”按钮时,”库存”列自动与”预入数”相加.
但现在的问题是下列的代码过多,达几百行,这样电脑在计算时速度很慢.所以现在想通过更改VB的代码,使其”智能”化,即判断F列是否为0,当为0时不进行运算,不为0时,进行计算.
Sub 出库_单击()
Range("d48").Value = Range("d48").Value + Range("e48").Value
Range("d49").Value = Range("d49").Value + Range("e49").Value
Range("d50").Value = Range("d50").Value + Range("e50").Value
Range("d51").Value = Range("d51").Value + Range("e51").Value
Range("d52").Value = Range("d52").Value + Range("e52").Value
Range("d53").Value = Range("d53").Value + Range("e53").Value
End sub
以上代码的目的是当按下”入库”按钮后,D列数据与F列数据自动相加,当F列数据归0时,D列数据仍然为相加后的数据,不会因F列的改变而在次改变(除非在次按下”入库”按钮)
D48=1000
如果F48单元格<>0,则进行相加, D48=D48+F48,
如果F48=0,则不计算,相下查找即F49,F50,F51…….,当在次发现某个单元格<>0时,则相加
如F52=3,则计算D52=D52+F52,
Dim n As Integer
n=100
Private Sub Command9_Click()
For i = 1 To 100
If Cells(f, i) <> 0 Then
Cells(d, i) = Cells(d, i) + Cells(f, i)
End If
Next
End Sub
为什么在执行上面的代码时VB提示:缺少END SUB ?