网站首页 说明书大全 范文大全 知识大全 实用查询
首页 > 知识大全 >

VBA实例:表格里怎么自动算乘法


效果如下:

代码如下:

Sub fornext()

Dim omg!

'定义一个变量,类型为单精度类型

For omg = 2 To 16

'赋值循环次数/范围为2-16,因为计算的表格行数从第二行到第16行

Sheet1.Cells(omg, 4) = Sheet1.Cells(omg, 2) * Sheet1.Cells(omg, 3)

'从单元格(2,4)开始计算,D2(2,4)=B2(2,2)*C2(2,3)

Next '循环

End Sub

注意问题:

1、主要为定义起始位置,把单元格所在区域用变量值来代替;

2、FOR...NEXT作为循环语句,与之前的DO...LOOP不同的地方是,for next有一个内置计数器,可以计数。

相关文章