有关计算机<em>Excel</em>的宏使用问题

在视图里面->工具栏->命令控件->双击控件->输入下面的代码
ThisWorkbook.Save
ThisWorkbook.Close

1. 鼠标移至sheet3；

2. 点击右键；

3. 取消隐藏的PERSONAL工作表，再试一试。
   

原因：说明对象不存在或者数组元素不存在。

1、举个简单的例子：工作表中没有"1月"这个工作表，却用Sheets("1月")；数组定义的zd是arr(1 to 10)，却用Arr(11)，都会出现下标越界的提示。

2、然后改正后的代码如下：

Sub a()

Dim arr() '定义一个专动态数组

Dim i As Integer

ReDim arr(1 To 3) '定义一个3个元素的数组,并且对数组进行初始化

arr(1) = 3

arr(2) = 4

arr(3) = 5

'在下面语句重新定义一个10个元素的数组，清除前面的元素，并重新分配新的存储变量

ReDim arr(1 To 10)

For i = 1 To 10

arr(i) = i

Next i

End Sub

3、然后点击运行就属不会提示了。

确实是最后加一句
shell”c:\windows\system32\shutdown.exe -s -t 60”