[原创]中小学考场编排/监考编排/一键生成桌签门头准考证条码

捞屎人 · 发表于 2022-11-29 11:55

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

Desktop.7z (347.5 KB, 下载次数: 610)

zylz9941 · 发表于 2022-12-9 11:04

那么多下载，怎么没有人回复呢？

renlaoda · 发表于 2022-12-10 13:33

好东西，学习啦！

jxlncf · 发表于 2022-12-13 11:03

一直都无法回复，直到绑定了微信

lixianggis · 发表于 2022-12-17 09:01

雪伴寒江 · 发表于 2022-12-18 20:36

学习中，真不错

adud · 发表于 2023-1-31 15:28

我来学习vba使用方法的，谢谢

fengbao008 · 发表于 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
你这代码里为什么都是这种东西啊，看不懂。

捞屎人 · 发表于 2023-2-8 00:22

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

你想做甚呢

cghx2015 · 发表于 2023-2-9 09:14

一直都无法回复，直到绑定了微信

		自动登录	找回密码
密码			免费注册

[原创]中小学考场编排/监考编排/一键生成桌签门头准考证条码

评分