1、首先在开发工具中打开VBA编辑器
2、在单元格区域当中输入一些内容作为例子
3、在VBA编辑器中插入模块
4、在模块当中输入如下代码，然后运行Sub 输入三边长求三角形面积() Dim A, 幞洼踉残B, C, temp A=Application.I荏鱿胫协nputBox("请输入边一长度:", "数据", 3, 10, 10, , , 1) B=Application.InputBox("请输入边二长度:", "数据", 4, 10, 10, , , 1) C=Application.InputBox("请输入边三长度:", "数据", 5, 10, 10, , , 1) temp=(A+B+C) / 2 If A <=0 Or B <=0 Or C <=0 Then MsgBox "所有边长都必须大于0": Exit Sub If A <=Abs(B-C) Or B <=Abs(A-C) Or C <=Abs(A-B) Then MsgBox "两边之差不能小于第三边": Exit Sub MsgBox "面积为:" & WorksheetFunction.Power(temp * (temp-A) * (temp-B) * (temp-C), 0.5)End Sub
5、利用快捷键Alt+F8调出运行宏窗口，然后单击“执行”按钮，程序将提示输入三边长度
