如何在EXCEL中自动实现流水编号,且保存?

allen1976

请教各位老师:
   如何在EXCEL中自动实现流水编号,且保存在另一工作薄中? 用VB,代码要怎么写?
工单单号从:SOXC000001开始
我想实现如下的效果;
1,当按下"保存"按钮,制令单,黄色区域的信息就会显示在另一张"工单查询中"工作薄中;
2,当按下"新增"按钮,制令单号就会自动编号为:SOXC000002,同时,上一张单号(SOXC000001)的内容(蓝色字体)自动全部清空,因为我要填写新的工单了
…………
依次类推
感恩!!

刘青梅

学习了，谢谢

余方方

学习了，谢谢

zh394514687

楼主我也遇到了跟你一样的问题能把你的表单发给我看下吗不胜感激我的邮箱地址是zhang394514687@163.com

jackie-online

查看一下自动编号源代码

bingerw

look up

pureshadow

with sheets("...")
end with
WITH后的代码中，会有一些直接以点开头的代码，如.range("a:a")，其实是sheets("..").range("a:a")，这里用WITH把相同的都省略了，所以WITH后面的内容根据你想省略的内容来写。
cells(myfind.row,1)是指一个单元格，这个单元格的行是myfind.row，列是1，所以能等于这个单元格的必须也是一个单元格，而range("b14:b19")是一个区域了，所以结果出错。

allen1976

对于VB, 我完全不懂, 抱歉
下面红色字体是我改的
提示"此制令单号不存在".....不知代码要怎么改......
郁闷~~~~~`````

Sub qu()
Dim MyFind
With Sheets("物料查询")  (为工单查询时, 工单查询上的数据粘贴到了"制令单"的对应区域,所以我改了)
    Set MyFind = .Range("a:a").Find(Range("d6"), Lookat:=xlWhole)
    If MyFind Is Nothing Then
        MsgBox "此制令单号不存在"
    Else
         Range("b14:b19") = .Cells(MyFind.Row, 1)
         Range("c14:c19") = .Cells(MyFind.Row, 2)
         Range("e14:e19") = .Cells(MyFind.Row, 3)
            
    End If
    Set MyFind = Nothing
End With
End Sub

pureshadow

代码中最难的部分都帮你写出来了，剩下的就是这个单元格等于那个单元格的简单语句，也写了一两个例句，楼主你自己研究吧。
授人鱼不如授人以渔。

allen1976

我重做了一份"送货单据",
还是单据上的内容还是不能另外保存在查询的工作薄中,
另外,
能否在点击按钮2"保存送货单"时,设置提示窗口:"数据已经保存,请勿重复操作",防止在"送货单查询"表内出现重复的单据内容,如果没有重复,就提示"数据保存成功"??
感恩感恩!!!!!