vba做个小程序

这是可以用VBA实现的，但"分享"的过程不像一般程序执行的那么方便：

1

先行在VBA的模块单元建立好所述的各种SUB、FUNCTION小模块[程序]；包括含有各种按钮控件的SUB[比如叫"调用"]，内里建立好调用的各种逻辑关系；

2

在VBA的"ThisWorkbook"页面的"Sub

Workbook_Open()"加入让文档被启动时即加载"SUB

调用()"即可；

3

以上是对一个文档的 *** 作而言的；握哗如果想让对方在某一电脑或网域内通用穗纤，则须建立好一个域内均可随时提取到的公共模块文档，把上述1中所建立起来的所有模块装进1个或多个文档模块，同时做好说明文件，让所有人能清晰地知道有什么模块可以调用，段族行如何调用[在哪(路径)、名称、功能、输入参数等等]；

之后让有需要的人，在自己建立的文档依上述2的方法，启动调用程序即可。

方法/步骤:

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

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

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

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

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

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

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

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

Application.EnableEvents = False

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

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

Application.EnableEvents = True

恢复VBA对事件的响应。

---