|
阅读：2848回复：4
面积计算有几个面状图形，想计算他们的面积，我计算的步骤是，先在属性表里添加了一个面积列，然后选中calculate value,在打开的对话框里粘贴面积计算公式 Dim Output as double 可是出现error running vba code 为什么？请高手指导 |
|
|
1楼#
发布于：2008-05-01 10:10
为什么呢 我也想求面积 |
|
|
2楼#
发布于：2008-05-05 22:00
dim d as double dim p as iarea set p=[shape] d=p.area 然后在ArEA=下输入 d 点击“确认”即可``` 如果要换算为公顷时，在ArEA=下输入 d/10000 如果要换算为亩时，在ArEA=下输入 d/10000*15 |
|
|
3楼#
发布于：2008-05-07 22:02
谢谢  |
|
|
4楼#
发布于：2008-05-07 22:04
问一下，不是一样么？就是有d代替了output， 用p代替了pArea
|
|