- Excel VBA语法与应用手册
- 许小荣 夏跃伟 高翔等编著
- 216字
- 2020-08-27 02:39:03
6.4 习题
1. 在标准模块中输入如下一段代码
Sub测试() Const rate = 0.041 Dim bj As Double Dim lx As Double bj = ActiveSheet.Cells(1, 1) lx = bj * rate ActiveSheet.Cells(2, 1) = lx End Sub
要求在“lx = bj * rate”这行代码处设置一个断点,并从该语句开始逐行运行。
2. 撤销上述代码的断点,改将断点设置在“ActiveSheet.Cells(2, 1) = lx”上,并且为变量lx添加监视,从监视窗口中观察lx变量的值。
3. 删除Sheet2工作表,不论该工作表是否存在,在执行删除过程中都不出现提示对话框。
4. 删除Sheet2工作表,要求在不能够正常删除的时候给出一个消息框提示“Sheet2工作表不存在,无法删除”。