指定区域的单元格根据某个单元格的值的变化选用不同的公式进行计算.如何编写VAB代码?1、表1里A1有三个值,面积、体积、容积,他们对应3个公式1、公式2和公式3；2、A2:A9为长,B2:B9为宽,C2:C9为

Question

指定区域的单元格根据某个单元格的值的变化选用不同的公式进行计算.如何编写VAB代码?
1、表1里A1有三个值,面积、体积、容积,他们对应3个公式1、公式2和公式3；
2、A2:A9为长,B2:B9为宽,C2:C9为高,D2:D9为内容（9个单元格的公式是一样的）.
3、面积对应公式1：内容=长^2×宽^2×高^2×0.5；
体积对应公式2：内容=长^3×宽^3×高^3×0.5；
容积对应公式3：内容=长^4×宽^4×高^4×0.5.
如何编写代码,达到如下效果：A2:C9的值不为空时,D2:D9才根据A1的值用对应的公式并显示计算结果.

Answer 1

不必用VBA,在D2输入
=CHOOSE(MATCH($A$1,{"面积","体积","容积"},),A2^2*B2^2*C2^2*0.5,A2^3*B2^3*C2^3*0.5,A2^4*B2^4*C2^4*0.5)
下拉