Excel表格模板下载与分享

捞屎人 Lv.3

2022-11-29 11:55 关注

功能实用，操作简单，一键生成考试所需资料，附件里附有使用说明，欢迎大家提出建议

Desktop.7z   2022-11-29 11:52 上传

347.5 KB, 下载次数: 771



1.png

2.png

3.png

4.png

6.png

8.png

赏
有 3 人给楼主打赏
6807阅读
35回复 倒序

zylz9941 Lv.2 2楼

2022-12-9 11:04
那么多下载，怎么没有人回复呢？

renlaoda Lv.1 3楼

2022-12-10 13:33
好东西，学习啦！

jxlncf Lv.1 4楼

2022-12-13 11:03
一直都无法回复，直到绑定了微信

lixianggis Lv.1 5楼

2022-12-17 09:01

雪伴寒江 Lv.2 6楼

2022-12-18 20:36
学习中，真不错

adud Lv.2 7楼

2023-1-31 15:28
我来学习vba使用方法的，谢谢

fengbao008 Lv.2 8楼

2023-1-31 15:49
Public Function 连续监考(ByRef ll0l11111, ByRef l000101l0, ByRef l111l100l)
Dim llllll001%, l00l0l1l0%, l0110l011%, l00001l11&, l0lll01ll
l0110l011 = 1
For llllll001 = 2 To UBound(ll0l11111, 1)
For l00l0l1l0 = 5 To UBound(ll0l11111, 2) Step 2
If ll0l11111(llllll001, l00l0l1l0) Then
ll0l11111(llllll001, l00l0l1l0) = 交换(ll0l11111, l00l0l1l0, l000101l0, l0110l011, l111l100l)
l0110l011 = l0110l011 + 1
End If
Next
Next
For llllll001 = 2 To UBound(ll0l11111, 1)
For l00l0l1l0 = 6 To UBound(ll0l11111, 2) Step 2
If ll0l11111(llllll001, l00l0l1l0) Then
ll0l11111(llllll001, l00l0l1l0) = 交换(ll0l11111, l00l0l1l0 - 1, l000101l0, l0110l011, l111l100l)
l0110l011 = l0110l011 + 1
End If
你这代码里为什么都是这种东西啊，看不懂。

捞屎人 楼主 9楼

2023-2-8 00:22
引用: fengbao008 发表于 2023-1-31 15:49
Public Function 连续监考(ByRef ll0l11111, ByRef l000101l0, ByRef l111l100l)
Dim llllll001%, l00l0l1 ...

你想做甚呢

cghx2015 Lv.1 10楼

2023-2-9 09:14
一直都无法回复，直到绑定了微信
加载更多
高级模式
插入