基于Excel的试卷自动生成系统的设计与实现
“题”结尾。因此将题库中所有题型自动显示在列表框中实际上就是将当前工作薄中所有以“题”结尾的工作表的名称显示在列表框中。具体代码如下：Private Sub UserForm_Initialize（）Dim i As IntegerFor i=1 To Worksheets.CountIf Trim（Worksheets（i）.Name） Like "*题" AndTrim（Worksheets（i）.Name） ListBox1.AddItem Worksheets（i）.
<<上一页 下一页>>
广州市越秀区图书馆版权所有。
联系电话：020-87673002
本站访问人数：