请高手帮忙完善“考试座位表 ”

ypcf0312 · 发表于 2019-10-13 14:55

请高手帮忙完善一下，“试室号”和“座位号”为个位数的自动补足为2位数，如“1”变为“01”；点击“生成考试编号”能自动生成4位数的编号。

719404338 · 发表于 2019-10-13 19:42

Sub doit()
Dim i, j
Sheet1.Range("e2:g65536").ClearContents
ar = Sheet1.[a1].CurrentRegion: ReDim br(1 To UBound(ar), 1 To 6): k = Sheet1.[i1]
For i = 1 To UBound(ar)
j = j + 1
If j = Sheet1.[k1] + 1 Then
k = k + 1: br(i, 1) = k
j = 1: br(i, 2) = j
Else
br(i, 1) = Format(k, "00"): br(i, 2) = Format(j, "00")
End If
Next
Sheet1.[e2].Resize(UBound(ar), 2) = br
End Sub
Sub 生成考试编号()
Dim i
For i = 2 To [a65536].End(3).Row
Range("g" & i).NumberFormatLocal = "@"
Range("g" & i) = Range("e" & i) & Range("f" & i)
Next i
End Sub

复制代码

719404338 · 发表于 2019-10-13 19:43

审核中，先传照片。

ypcf0312 · 发表于 2019-10-13 19:57

719404338 发表于 2019-10-13 19:43
审核中，先传照片。

谢谢大神，测试一下先

ypcf0312 · 发表于 2019-10-13 22:38

ypcf0312 发表于 2019-10-13 19:57
谢谢大神，测试一下先

有点问题，试室号不是两位数，

719404338 · 发表于 2019-10-13 23:37

ypcf0312 发表于 2019-10-13 22:38
有点问题，试室号不是两位数，

改成文本格式。

ypcf0312 · 发表于 2019-10-14 09:13

d:\1571015507(1)
这里不知怎么回事

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

[求助] 请高手帮忙完善“考试座位表 ”