vba小程序报"自动化(Automation)错误如何处理?

首先，如果是做为 Worksheet_Change 事件的代码，那么 For ... Next 循环中的第一行代码就会引起无限递归错误。

这句代码是 Cells.Delete ，一但执行，就会再次触发 Worksheet_Change 事件，开始嵌套运行事件过程，然后到了这一行，又将触发 Worksheet_Change 事件，……，无限递归下去。

应当在事件过程的第一句中添加：

Application.EnableEvents = False

禁止VBA响应任何事件，保证后续代码正确运行。

然后在事件过程最后一句添加：

Application.EnableEvents = True

恢复VBA对事件的响应。

方法/步骤:

1.首先我们打开表格,在表格里制作三个框。

2.分别为:中奖名单、中奖编号和中奖人。

3.在中奖编号旁边的框里,输入函数:RANDBETWEEN()。在括号里,填入参与的人数。

4.在中奖人下面的框里,填入函数:VLOOKUP()。

5.在括号里“选中抽奖名单——逗号——选择2(姓名)——逗号——FALSE精确匹配。然后回车

WrapText : 如果使 Microsoft Excel 中对象的文本自动换行，则该值为 True

上面的例子是说WrapText是个Boolean类型，可以用Not来切换值。

---