如何实现支出审批单填写保存并自动生成明细台账

wayne0pao0

本人设计了一张资金支出审批单，希望实现以下功能，请各位大神帮帮忙：

1.自动编号，按照“XXGS-年份-月份-五位数编号”。该编号作为唯一标识
2.只可编辑绿色背景单元格。且提交后自动将该部分信息一一条记录的形式填写至“记录”表中
3.“保存记录”按钮为数据暂存，“提交”按钮为保存，信息不能修改除非管理员。“复制并带入”可新建编号，并将正在查看的记录复制到新表中供修改。上下按钮查看原记录
4.该表会存在多人共同使用的情况，希望能分配权限。
具体文件见附件。感谢各位大神相助

3190496160

Sub 录入及修改()
Dim ar As Variant
Dim rn As Range
Dim br()
With Sheets("审批单")
    ar = .Range("a1:g24")
    bh = .[g3]
End With
If bh = "" Then MsgBox "请录入编号！": End
ReDim br(1 To 1, 1 To 13)
br(1, 1) = ar(3, 7)
br(1, 2) = ar(3, 2)
br(1, 3) = Sheets("sheet2").[a4]
br(1, 4) = ar(6, 5)
br(1, 5) = ar(8, 7)
br(1, 6) = ar(9, 2)
br(1, 7) = ar(10, 3)
br(1, 8) = ar(11, 3)
br(1, 9) = ar(12, 3)
br(1, 10) = ar(13, 3)
br(1, 11) = ar(14, 2)
br(1, 12) = ar(14, 7)
br(1, 13) = ar(15, 2)
With Sheets("记录")
    r = .Cells(Rows.Count, 1).End(xlUp).Row + 1
    Set rn = .Range("a1:a" & r).Find(bh, , , , , , 1)
    If rn Is Nothing Then
        x = r
        ts = "录入完毕！"
    Else
        x = rn.Row
        ts = "更新完毕！"
    End If
    .Cells(x, 1).Resize(1, UBound(br, 2)) = br
End With
MsgBox ts
End Sub

3190496160

3190496160

资金支出审批单.rar (31.17 KB, 下载次数: 13)

2024-5-14 07:48 上传

点击文件名下载附件

3190496160

只写了录入的代码，供参考，
这是个系统性的问题，关键是后面的思路，是不具备可操作性的，

LIUZHU

该文档打开后，卡顿现象很明显？

wayne0pao0

感谢感谢，学习了，受益匪浅