VBA中通过偏移计算金额的两种方法

举例:A列是产品名称,B列是单价,C列是数量,在D列求金额,一行是表头,

通过vba偏移可以得到金额计算,偏移方法有两种写法,

一种是以定义单元格中心1点起,向周围进行偏移,以起点单元格为1,上下左右偏移步长正数是2、3、4...负数是0、-1、2....

另一种是用offset方法以定义单元格为中心0起点偏移,以起点单元格为0,上下左右偏移步长正数是1、2、3...负数是-1、-2、-3...

要注意区分两种不同写法,以开头为例,代码如下:

Sub 偏移金额计算()
Dim rng As Range
For Each rng In [d2:d21]
rng = rng(1, -1) * rng(1, 0)
rng = rng.Offset(0, -2) * rng.Offset(0, -1)
Next
End Sub

注释如下:

'Sub 偏移金额计算()
'首先声明rng是range(单元格)类型的变量
'将rng限定在D2:D21(求金额区域)之间循环
'方法1,以d2:d21的单元格为1起点,rng(当前行,左偏2列)*rng(当前行,左偏1列)
'方法2,以d2:d21的单元格为0起点,rng(当前行,左偏2列)*rng(当前行,左偏1列)
'循环D2:D21
'结束子程序

日ri记ji坊fang. com
打赏
转载请注明出处;
本文地址:https://rijifang.com/index.php/post/15192.html
相关热文

发表评论: