做一个收文管理，自动编号问题请大神们看看

zhaoqi0513 · 发表于 2022-12-28 21:45

本帖最后由 zhaoqi0513 于 2022-12-30 14:04 编辑

已重新上传，完成了赋值，但是有赋值后的空行太多。
1.利用系统设置给combobox赋值，在登记录入窗体里，选取来文层级（中央、省级、渭南、华阴），通过来文层级，编制收文编号，编号规则如中央1-001；省级2-001，渭南3-001，华阴4-001，在文件库里收文编号不重复，通过选择来文层级依次自动生成收文编号。

2.我选用办结日期不能返回到textbox中，

3190496160 · 发表于 2022-12-29 10:20

看了半天，不知所云

582766 · 发表于 2022-12-29 12:21

不明白什么意思，楼主可以模拟下效果

ZHLK · 发表于 2022-12-29 16:15

本帖最后由 ZHLK 于 2022-12-29 16:16 编辑

在点击事件中加上下列代码，办结日期就有了
djlr.办结时限 = DateSerial(ComboBox1.Value, ComboBox2.Value + MBUU, DBUU)
Unload UserFormday

zhaoqi0513 · 发表于 2022-12-29 17:12

3190496160 发表于 2022-12-29 10:20
看了半天，不知所云

利用来文层级combobox下拉框的内容生成编号

zhaoqi0513 · 发表于 2022-12-29 17:20

582766 发表于 2022-12-29 12:21
不明白什么意思，楼主可以模拟下效果

利用来文层级combobox下拉框的内容生成编号

3190496160 · 发表于 2022-12-30 12:34

Private Sub UserForm_Initialize()
With Sheets("系统设置")
h = .Cells(Rows.Count, "C").End(xlUp).Row
If h = 3 Then MsgBox "系统设置为空！": Exit Sub
arr = .Range("c3:c" & h)
Set D = CreateObject("scripting.dictionary")
For i = 2 To UBound(arr)
D(arr(i, 1)) = ""
Next i
End With
来文层级.List = D.keys
End Sub

3190496160 · 发表于 2022-12-30 12:35

Private Sub 来文层级_Change()
cj = 来文层级.Text
If cj = "" Then Exit Sub
With Sheets("文件库")
h = .Cells(Rows.Count, "e").End(xlUp).Row
If h = 5 Then
xh = 1
Else
xh = Application.CountIf(.Range("e3:e" & h), cj) + 1
End If
End With
收文编号.Text = cj & Format(xh, "0000")
End Sub

3190496160 · 发表于 2022-12-30 12:35

公文管理1.rar (51.39 KB, 下载次数: 40)

3190496160 · 发表于 2022-12-30 12:36

求助能否得到别人的帮助，能否完美解决问题，表达能力至关重要

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

[求助] 做一个收文管理，自动编号问题请大神们看看