Excel VBA【案例分享】考场座位安排（用户窗体版）

快速浏览

实用案例

收费使用项目

内容提要

大家好，我是冷水泡茶，昨天我们分享了一个案例【Excel VBA【案例分享】考场座位安排：考场人数、每排人数均可调整】。我们列了3种输入参数的方式，其中第二条，使用用户窗体的方式，当时说估计当天不可能完成，遂改用第三种，在工作表中输入参数的方式。

虽说已完成当天发文的任务，但总感觉好象有什么事没有完成，总想着要是采用用户窗体的方式该怎么做呢？毕竟昨天做了一点，感觉就此放弃有点可惜，精力不是白花了嘛？

思来想去，终于还是决定试试。还好，终于做完了，分享给大家：

基本思路与实现过程

1、设置用户窗体UserForm1，添加必要的按钮。

2、考场（Label）、人数（TextBox）、每排人数（TextBox），通过代码动态添加。

3、我们增加一个类模块，用来设置“人数”这个文本框的Change事件。之所以要这样做，是因为文本框的数量是不确定的，也就是说考场的数量是不确定的。

我们可以直接添加若干个文本框，用来输入人数，但是，添加多少个合适呢？多了的话，用不到，空在那里也不好看，少了吧，那又不好扩展。所以，我们要采用动态添加的方式，需要一个就添加一个，这样感觉“高大上”了许多

。

4、窗体启动时，首先添加一组参数输入框：

5、如果需要添加考场的，我们点“增行”按钮：

只要有剩余人数，可以一直添加，前提是前面的考场都安排了人。这里窗体的大小随着考场的增加自动扩展。

这里关键是找到一个参照物，然后根据它的Top，Height的值来设置其他控件的Top值、窗体的高度等。

6、参数录入好以后，我们点确定进行考场安排。主要代码参照昨天的案例。把arrArng这个参数数组改为从用户窗体上的TextBox控件中取值。

7、完整代码放第二条吧，还是比较多的。

总结

1、动态添加控件，利用类模块来设置控件的事件。

2、用户窗体大小、控件位置动态调整。

~~~~~~End~~~~~~

本站仅提供存储服务，所有内容均由用户发布，如发现有害或侵权内容，请点击举报。