操作方法
新建一张工作表，命名为“求和”，在表中有九（2）班5次诊断考试的成绩，我们就给他的任意区域进行求和，如图所示。
单击菜单栏中的“开发工具”——VisualBasic，打开VBA编辑器，如图所示，我们将在编辑器中插入代码来实现求和功能。
打开了VBA代码编辑器，单击菜单栏上的“插入”——模块，打开代码编辑窗口。
现在我们来输入代码： Sub 求和() Dim r Dim t As Long For Each r In Selection If IsNumeric(r.Value) Then t = t + r.Value End If Next MsgBox "你选择的区域数值之和为：" & t End Sub
回到“求和”工作表，单击菜单栏“开发工具”——插入——按钮，出现十字箭头，用鼠标左键拖出一个矩形按钮，现在出现了按钮，同时出现了“指定宏”对话框，在对话框中选择“PERSONAL.XLSB!模块2.求和”宏，单击确定。
选择按钮，单击右键，选择“编辑文字”，是按钮名称处于可编辑状态，把按钮文字改变为“求和按钮”。
选择任意区域，如图所示，单击求和按钮，现在弹出对话框“你选择的区域数据之和为：328”.现在求和按钮就制作好了。