作者:乔山办公网日期:
返回目录:excel表格制作
如表
第一行填写半径、copy直径、周长、面积任一个,第三行自动知显示数据
A3输入公式道=IF(COUNTA(A1:D1)>1,"",IF($A$1<>0,A1,IF(B1<>0,B1/2,IF(C1<>0,C1/PI()/2,IF(D1<>0,(D1/PI())^(1/2),"")))))
B3输入公式=IF($A$3<>"",$A$3*2,"")
C3输入公式=IF($A$3<>"",$A$3*2*PI(),"")
D3输入公式=IF($A$3<>"",$A$3^2*PI(),"")
Sub a()
Dim a, b, c
a = InputBox("请输来入水平距离自!百")
b = InputBox("请输入垂直距离!")
c = InputBox("请输入半径度!")
ActiveSheet.Shapes.AddShape(msoShapeOval, a, b, c, c).Select
End Sub
B2=(A2/PI())^0.5向下复制