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

zhaoqi0513

3190496160 发表于 2022-12-30 12:35
Private Sub 来文层级_Change()
cj = 来文层级.Text
If cj = "" Then Exit Sub

有用，但是不要中文，只是编号中央对应1-&000；省级对应2-&001，渭南对应3-&000，华阴对应4-&000

3190496160

zhaoqi0513 发表于 2022-12-30 15:40
有用，但是不要中文，只是编号中央对应1-&000；省级对应2-&001，渭南对应3-&000，华阴对应4-&000

哈哈哈哈哈哈，无语

zhaoqi0513

3190496160 发表于 2022-12-30 17:02
哈哈哈哈哈哈，无语

编号只要实现，1-0001，2-0002，1-0002就行，我最新附件写的哪样

3190496160

zhaoqi0513 发表于 2022-12-30 18:15
编号只要实现，1-0001，2-0002，1-0002就行，我最新附件写的哪样

事先不把情况说清楚，论坛是做义务的，没有多少人愿意在一个问题上反复折腾的，特别是没有任何挑战性的问题，除非是有偿
题外话：看了你的帖子，所有的回复，自始至终，对帮你的人，没有半句感谢的话，总是一样的口气：就像老师在批改学生作业似的口吻

zhaoqi0513

3190496160 发表于 2022-12-30 19:46
事先不把情况说清楚，论坛是做义务的，没有多少人愿意在一个问题上反复折腾的，特别是没有任何挑战性的问 ...

肯定是感谢大神，没有大神也做不下去了。本身咱也是给人帮忙。。。。只是学习。还是谢谢你

3190496160

zhaoqi0513

3190496160 发表于 2023-1-2 13:24

感谢老师耐心指导，非常的感谢。。。
我是这样解决的，没有老师的智能化，还是要向老师学习
  cj = 来文层级.Text
    If cj = "" Then Exit Sub
    With shtWJk
        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
   
    Dim cjbm As String
    If cj = "中央" Then
        cjbm = "1"
    ElseIf cj = "省委政府" Then
        cjbm = "2"
    ElseIf cj = "省级部门" Then
        cjbm = "3"
    ElseIf cj = "渭南市委政府" Then
        cjbm = "4"
    ElseIf cj = "渭南部门" Then
        cjbm = "5"
    ElseIf cj = "华阴及其他" Then
        cjbm = "6"
    Else
        cjbm = "7"
    End If
    收文编号.Text = cjbm & "-" & Format(xh, "000")

3190496160

zhaoqi0513 发表于 2023-1-2 16:02
感谢老师耐心指导，非常的感谢。。。
我是这样解决的，没有老师的智能化，还是要向老师学习
  cj = 来 ...

如果类型少，可以用枚举法，，但是，如果是几十几百甚至是几千，就不可能枚举了

zhaoqi0513

3190496160 发表于 2023-1-3 13:27
如果类型少，可以用枚举法，，但是，如果是几十几百甚至是几千，就不可能枚举了

谢谢，春风化雨耐心指导