Excel表格模板下载与分享

捞屎人 Lv.3

关注

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

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楼

那么多下载,怎么没有人回复呢?

renlaoda Lv.1 3楼

好东西,学习啦!

jxlncf Lv.1 4楼

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

lixianggis Lv.1 5楼

雪伴寒江 Lv.2 6楼

学习中,真不错

adud Lv.2 7楼

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

fengbao008 Lv.2 8楼

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楼

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

你想做甚呢

cghx2015 Lv.1 10楼

一直都无法回复,直到绑定了微信
加载更多