仓库进销存报表基本完成欢迎指点并优化或完成其余代码

feng16888 · 发表于 2012-8-13 14:01

青月轩发表于 2012-8-12 08:59
cctv那是我用来演示用的，如果我数据录入时输入了基本资料里没有的单号可以实现提示无此料号请重新输入 ...

With Target
If .Column = 2 And .Row > 5 Then
If Application.CountIfs(Sheet2.Range("b3:b" & Sheet2.[b65536].End(xlUp).Row), .Value) = 0 Then
.Select
MsgBox "无此料号，请重新输入！", 64
Application.EnableEvents = False
.Value = ""
Application.EnableEvents = True
End If
End If
End With

复制代码

无此料号的提示，请测试

青月轩 · 发表于 2012-8-13 17:19

谢谢能帮我把库存表那个弄好吗最重要的就是这个了

青月轩 · 发表于 2012-8-13 20:05

我刚测试了下好像没有什么提示啊

青月轩 · 发表于 2012-8-13 21:51

feng16888 发表于 2012-8-13 14:01
无此料号的提示，请测试

刚测试了下不起什么作用啊是不是我把代码放错地方了
还有就是能不能帮我把库存表的代码看看怎么会不起作用呢

feng16888 · 发表于 2012-8-13 22:32

本帖最后由 feng16888 于 2012-8-13 22:34 编辑

青月轩发表于 2012-8-13 21:51
刚测试了下不起什么作用啊是不是我把代码放错地方了
还有就是能不能帮我把库存表的代码看看怎么会不起 ...

放在数据输入的那张表中

青月轩 · 发表于 2012-8-13 23:45

feng16888 发表于 2012-8-13 22:32
放在数据输入的那张表中

谢谢啊再帮我看看库存表的代码吧谢谢

ihuhk2 · 发表于 2012-12-7 10:38

我好像总是在捡现成的

ty1014 · 发表于 2012-12-9 14:59

不见楼主的附件呢

冰蓝魄师 · 发表于 2013-3-27 21:57

哥哥们我是新手想用EXCEL弄一个过磅管理软件希望可以多多关照
QQ17921398

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

[求助] 仓库进销存报表 基本完成 欢迎指点并优化或完成其余代码