Excel MultiPage 分页应用实例，一定要看

在学位管理中，学生学位招生有一些实际应用，即我们不能一次只招收一名学生。

那么如何解决同一科目一次性招收所有学生的问题呢？

这个例子以滚动选项卡的形式创建起来有点困难，所以做起来比较费时费力。

不过功能已经完成得很好了。

以下为详细介绍：

导入接口

当然，每一页都是一个主题。每个页面都有一个学生列表。

选择顶部的下拉菜单可以选择不同的度数，非常方便。

只要单独添加学生成绩并一键保存，数据表就完整了。

关键问题是处理许多选择，以及在不同表之间来回跳转的代码隐藏。

我真是绕了18个山路才得到这么简单的一页。

课程设置

其中做了课程设置，这在以前是没有的功能。

今天添加了，感觉可以自由设置各个班级组的科目了。

虽然意义不大，但是对于不同的学校应用不同的学习科目还是很方便的。

功能很简单，不需要过多介绍。

代码介绍

MultiPage控件主要用于在页面中显示主题项。

使用代码创建控件，这样当您编辑时，您就看不到表单中的滚动屏幕。

创新分页

SetFrMeControlsAdd('FormsMultiPage1','ControlPag')

保存结果

有一个过程存储成绩，方便调用，逻辑就是找到对应的学号和科目，然后赋值。

原理很简单，唯一麻烦的是从表中获取对应的学号和成绩有点困难。

它涵盖了如何遍历表单控件和滚动，以及滚动中的控件。

必须执行三个嵌套循环让我觉得我快疯了。

如果数学学不好，感觉问题很大。

无法思考，损害脑细胞。

获取学生信息的流程

FunctiongetStudentName(banjiAsString)AsRangeDimxsxAsWorksheetSetxsxThisWorkbookWorksheets('学生信息')xsxActivateDimBRAsRange,inRAsRangeDimiRAsInteger,iCAsIntegeriRxs'D5Up(5R50'D6)。535TonSetgetStudentNameNothingExitFunctionElseiC4SetBRxsxRange(xsxCells(2,iC),xsxCells(Ir,ic))foreachinrinbrifinrvaluebanjithenifgetstudentNameNothingThenSetTudentNameInrOffset(0,-1)elsesetgetStudentNameUnion(getStudentName,inroffset(0,-1））endifendifnextinr'SetGetTudentNameNAnNAnTrenDifenDifenDfunction

总结

无论如何，这个功能完成得很好，如果修改一下，会变得更加实用和美观。

有非常全面的技术应用，无论哪个环节你不熟悉，都变得非常困难。

学习VBA不可能一蹴而就，但通过逐步努力，总会有所进步。

欢迎关注并收藏