[已解决]TextBox1自动显示流水号的最后一个号+1

闲乐人

请老师们帮忙：
先谢过老师们！
    我的窗体上有ComboBox1和TextBox1，表Sheet2为数据。当打开窗体，点击窗体的ComboBox1，选中某个单位时，TextBox1则自动显示表Sheet2中该单位的流水号的最后一个号+1。（也就是生成一个的流水号）

最佳答案

月排行榜 / 总排行榜

无聊的疯子

2013-3-29 22:28

这样的效果?

1. 
   
2. Private Sub ComboBox1_Change()
   
3. Dim C As Range, Ar
   
4.   With Sheets("Sheet2")
   
5.     Set C = .Range("B:B").Find(Me.ComboBox1.Value, , , 1, , 2)
   
6.     If C Is Nothing Then
   
7.       MsgBox "数据: " & Me.ComboBox1.Value & " 未找到!!", , "错误"
   
8.       Exit Sub
   
9.     Else
   
10.       Ar = Split(C.Offset(, 1).Value, "Y")
    
11.       Me.TextBox1.Value = Ar(0) & "Y" & Ar(1) + 1
    
12.     End If
    
13.   End With
    
14. End Sub
    

复制代码

跳转到最佳答案楼层

爱疯

Private Sub ComboBox1_Change()
    Dim rng As Object
    Set rng = Sheets("Sheet2").Range("b:b").Find(ComboBox1.Value, , , , , xlPrevious)
    If rng Is Nothing Then
        TextBox1 = "无记录"
    Else
        TextBox1 = rng.Row
    End If
End Sub

无聊的疯子

这样的效果?

1. 
   
2. Private Sub ComboBox1_Change()
   
3. Dim C As Range, Ar
   
4.   With Sheets("Sheet2")
   
5.     Set C = .Range("B:B").Find(Me.ComboBox1.Value, , , 1, , 2)
   
6.     If C Is Nothing Then
   
7.       MsgBox "数据: " & Me.ComboBox1.Value & " 未找到!!", , "错误"
   
8.       Exit Sub
   
9.     Else
   
10.       Ar = Split(C.Offset(, 1).Value, "Y")
    
11.       Me.TextBox1.Value = Ar(0) & "Y" & Ar(1) + 1
    
12.     End If
    
13.   End With
    
14. End Sub
    

复制代码

无聊的疯子

爱疯 发表于 2013-3-29 22:26
Private Sub ComboBox1_Change()
    Dim rng As Object
    Set rng = Sheets("Sheet2").Range("b:b").F ...

find 少了查找的匹配模式,会受到 手工设置的影响,所以还是应该添加上的好,防止意外

闲乐人

无聊的疯子 发表于 2013-3-29 22:28
这样的效果?

非常感谢老师，就是这效果。比我预想的还周全，谢谢~！谢谢！！！

闲乐人

无聊的疯子 发表于 2013-3-29 22:28
这样的效果?

老师，运行中发现一个问题，加入数据表中不同单位的水号字母不同，则会出错。
如：甲单位是；甲-D01、乙单位则是；乙-E01、而丙单位又是；丙-Y01等，单点击ComboBox1时会报错。能改吗？

无聊的疯子

闲乐人 发表于 2013-3-29 22:54
老师，运行中发现一个问题，加入数据表中不同单位的水号字母不同，则会出错。
如：甲单位是；甲-D01、乙 ...

如果你的数字都只有2位的话,可以直接截取数字进行累加