Ecel VBA编程 典型实例——制作简单计算器.docxVIP

Excel VBA 编程 典型实例——制作简单计算器 VBA 是一种完全面向对象体系结构的编程语言，由于其在开发方面的易用性和其具有强大的功能。因此，用户通过VBA 可以编辑许多宏，并且提高工作效率。下面我们运用插入文本框、按钮和组合框以及标签等控件，来制作一个简单的公式计算器。 练习要点 使用表单控件 使用ActiveX 控件 设置属性 编写代码 操作步骤： 在 A1 至 G8 单元格区域中，输入相应的字段信息，并设置单元格的格式，如图11-29 所示。 图 11-29 设置表格格式 在第 3 行和第 7 行的单元格中插入控件，其中三个【文本框】控件和【标签】控件均为 ActiveX 控件，如图 11-30 所示。 图 11-30 插入控件 选择【开发工具】选项卡，单击【控件】组中的【插入】下拉按钮，即可选择所 选择【开发工具】选项卡，单击【控件】组中的【插入】下拉按钮，即可选择所 需的控件。插入表单控件与 ActiveX 控件的方法相同。 提 示 右击执行输入在 Sheet2 工作表 B2 至 B5 单元格中，输入“加”、“减”、“乘”和“除”文字。然后在Sheet1 工作表，右击“组合框（窗体控件）”控件，执行【设置控件格式】命令，如图 右击 执行 输入 图 11-31 绘制“组合框”控件 然后在弹出的对话框中，设置【数据源区域】为Sheet2!$B$2:$B$5；【单元格链接】为 Sheet2!$B$1；并设置【下拉显示项数】为 4，如图 11-32 所示。 设置单击图 10-32 设置 单击 设置【按钮 1】的标题为“=”，然后为其指定宏，宏代码如下： Sub Sub 计算() 定义变量 Dim Text1, Text2, n As Long Dim c As Single 判断两个文本框是否为空 If Sheet1.TextBox1.Value = Or Sheet1.TextBox2.Value = Then 当其中一个文本框为空时,弹出提示对话框 MsgBox 文本框中不能为空! Else 提示文本框所输入内容第 1 个字符,判断是否为零。并且判断第 2 位是否为小数点If (Mid(Trim(Sheet1.TextBox1.Value), 1, 1) = _ 0 And Mid(Trim(Sheet1.TextBox1.Value), 2, 1) .) Or _ (Mid(Trim(Sheet1.TextBox2.Value), 1, 1) = 0 And _ Mid(Trim(Sheet1.TextBox2.Value), 2, 1) .) Then 当第 1 位为零时,弹出提示对话框 MsgBox 文本框中第 1 位字符不能为零! Else 将第一个文本框内容,赋予 Text1 变量Text1 = Val(Trim(Sheet1.TextBox1.Value)) 将第二个文本框内容,赋予 Text1 变量Text2 = Val(Trim(Sheet1.TextBox2.Value)) 获取 Sheet2 工作表中,所选择运算符 n = Sheet2.Range(B1).Value 判断运算符 Select Case n Case 1 运算符为加号时,运算该语句c = Text1 + Text2 Case 2 运算符为减号时,运算该语句c = Text1 - Text2 Case 3 运算符为乘号时,运算该语句c = Text1 * Text2 Case 4 运算符为除号时,运算该语句 c c = Text1 / Text2 End Select 将运算结果输入到 TextBox3 Sheet1.TextBox3.Value = c End If End If End Sub 单击“按钮 单击“按钮 1”可选定该控件，再次单击“按钮 1”，控件变为编辑状态，修改文 本为“=” 提 示 设置【按钮 2】的标题为“清除”，然后为其指定宏，宏代码如下： Sub Sub 清除() 将第 1 个文本框赋空值Sheet1.TextBox1.Value = 将第 2 个文本框赋空值Sheet1.TextBox2.Value = 将结果文本框赋空值Sheet1.TextBox3.Value = End Sub 单击 Font 属性的【浏览】按钮 ，在弹出的【字体】对话框中，设置字体格式，如图11-33在标签控件“ 单击 Font 属性的【浏览】按钮 ，在弹出的【字体】对话框中，设置字体格式，如图11-33 输入单击 输入 单击 设置 图 11-33 设置“标签”字体格式 右击控件，执行【属性】命令，即可弹出【属性】窗口。 右击控件，执行【属性】命令，即可弹出【属性】窗口。 提 示 单击 BackCo