如附件:[attach]40415[/attach]作者: pureshadow 时间: 2009-11-18 18:07
新增的代码改一下：
Sub nw()
Range("d6") = "SOXC" & Format(Right(Range("d6"), 6) + 1, "000000")
Range("h6,d8:d11,f8:f11,h8:h11,b14:j19").Select
Selection.ClearContents
End Sub作者: pureshadow 时间: 2009-11-18 18:10
查询的代码：
Sub qu()
Dim MyFind
With Sheets("工单查询")
Set MyFind = .Range("a:a").Find(Range("d6"), Lookat:=xlWhole)
If MyFind Is Nothing Then
MsgBox "此制令单号不存在"
Else
Range("d8") = .Cells(MyFind.Row, 2)
其他类推
End If
set myfind = nothing
End With
End Sub作者: allen1976 时间: 2009-11-19 11:03
第一个
帮我解决啦, 感谢大哥!!!
第二个:
把您的物料查询的宏代码添加之后: "制令单"中的绿色区域(物料)的内容还是没有能够自动存到新的工作薄中<物料查询>中啊:
[attach]40428[/attach]作者: allen1976 时间: 2009-11-19 13:52
我重做了一份"送货单据",[attach]40431[/attach]
还是单据上的内容还是不能另外保存在查询的工作薄中,
另外,
能否在点击按钮2"保存送货单"时,设置提示窗口:"数据已经保存,请勿重复操作",防止在"送货单查询"表内出现重复的单据内容,如果没有重复,就提示"数据保存成功"??
感恩感恩!!!!!作者: pureshadow 时间: 2009-11-19 14:47
代码中最难的部分都帮你写出来了，剩下的就是这个单元格等于那个单元格的简单语句，也写了一两个例句，楼主你自己研究吧。
授人鱼不如授人以渔。作者: allen1976 时间: 2009-11-19 15:22
对于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 时间: 2009-11-20 09:19
with sheets("...")
end with
WITH后的代码中，会有一些直接以点开头的代码，如.range("a:a")，其实是sheets("..").range("a:a")，这里用WITH把相同的都省略了，所以WITH后面的内容根据你想省略的内容来写。
cells(myfind.row,1)是指一个单元格，这个单元格的行是myfind.row，列是1，所以能等于这个单元格的必须也是一个单元格，而range("b14:b19")是一个区域了，所以结果出错。作者: bingerw 时间: 2009-12-8 20:42
look up作者: jackie-online 时间: 2009-12-15 13:35
查看一下自动编号源代码作者: zh394514687 时间: 2011-3-22 16:02
楼主我也遇到了跟你一样的问题能把你的表单发给我看下吗不胜感激我的邮箱地址是zhang394514687@163.com作者: 余方方 时间: 2011-3-22 17:23
学习了，谢谢作者: 刘青梅 时间: 2016-12-4 22:41
学习了，谢谢