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

2024-06-11 14 0

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

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

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

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

以下为详细介绍:

导入接口

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

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

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

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

我真是绕了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不可能一蹴而就,但通过逐步努力,总会有所进步。

欢迎关注并收藏

本站文章均由用户上传或转载而来,该文章内容本站无法检测是否存在侵权,如果本文存在侵权,请联系邮箱:2287318951@qq.com告知,本站在7天内对其进行处理。

发布评论