Excel VBA语法与应用手册
上QQ阅读APP看本书,新人免费读10天
设备和账号都新为新人

4.5 习题

1. 利用If……Then分支结构,判断某一天是否为工作日,如果是工作日就用消息框显示“今天是工作日”,否则就用消息框显示“今天不是工作日”。

2. 在标准模块中建立一个名为“计算个人所得税”的Sub过程,用Select Case结构来计算用户通过InputBox输入框输入的收入需要缴纳的所得税。并将最终的结果用消息框显示出来。

3. 在标准模块中建立一个名为“求和”的Sub过程,要求将整数从1加到100,并用消息框将最终的结果显示出来。

4. 利用“For Each ……Next”结构来获取当前工作簿中每张工作表的名称,并将这些名称显示在工作表的单元格区域内。

5. 建立一个Sub过程,运行该过程能显示一个消息框,消息框的内容为“没有找到相应的工作表!”,消息框能显示“确定”和“取消”按钮,并在A1单元格内显示用户选择的到底是“确定”按钮还是“取消”按钮。

6. 建立一个Sub过程,利用Excel的InputBox函数来选择图4-1所示的单元格区域,并将选中的单元格区域转化为数组,要求利用消息框显示数组第一个元素的内容。