到今天为止,感觉对于excel中的vba有些些模糊的认识。
以前的阶段总是处于混沌摸索的状态。
现在接受一个需求的时候,处理的速度也变得越来越快。
假设现在我们要完成下题:
G列特定区域等于E列和F列特定区域的求和(区域可自己指定)。其中这些区域都是规整且连续的,区域的大小也是相等的。其中所有的值必须为变量。
代码如下:
Sub test_2()
Dim n As Variant
Dim a, b As Integer
a = 3
b = 8
'n = Application.Evaluate("(e" & a & ":e" & b & ") / (f " & a & ":f" & b & ") ")
n = Application.Evaluate("(e" & a & ":e" & b & ") / (f" & a & ":f" & b & ") ")
Range("g3:g8") = n
End Sub
注释的那行是无法计算出正确的结果的,可能是因为空格的原因,目前正在调查原因。现在只要用这个函数,很多简单的计算求和,便可以操作。
网友评论