Excel在VB中实现的一个简单的打孔程序，求高手指点啊~

私有TM作为字符串'时间

“私人N长”作业编号

子测试()

暗淡排列

昏暗的brr

暗淡我一样长

Dim j As Long

Dim m As Long

Dim p As Long

将Q标注为整数

N =纸张(“打卡”)。范围(“E2”)

Set d = CreateObject("脚本。字典》)

range(" H2 ")formula 1c 1 = " = TODAY()"

TM =时间

TD =范围(“H2”)

I =工作表(“作业编号查询”)。单元格(行。计数，1)。结束(3)。划。

Arr = Sheets(“作业编号查询”)。单元格(1，1)。调整大小(I，3)

对于j = 2到I

d(arr(j，1))，arr(j，2)

然后

如果不存在，那么

纸张(“打卡”)。范围(" e2:f2 ")。清楚的

MsgBox“输入错误”

出口接头

如果…就会结束

M =纸张(“打卡”)。单元格(行。计数，1)。结束(3)。划。

p = m

如果是工作表(“打卡”)。那么Cells(m，1) = TD。

Do直到单元格(p，1)& lt；& gt推倒（网络用词）

p = p - 1

环

对于j = m至p + 1步长-1

如果Cells(j，2) = N，则

Cells(j，5) = TM

Q = Q + 1

纸张(“打卡”)。范围(" e2:f2 ")。清楚的

MsgBox“再见”

如果…就会结束

然后

如果Q = 0，那么调用WRT

其他

打电话给WRT

如果…就会结束

末端接头

WRT群岛

Dim cR As Long

CR =纸张(“打卡”)。单元格(行。计数，1)。结束(3)。划。

单元格(cR + 1，1) = TD

单元格(cR + 1，2) = N

Cells(cR + 1，4) = TM

纸张(“打卡”)。范围(" e2:f2 ")。清楚的

MsgBox“早上好”

末端接头