进销存系统[完美]，希望对大家有帮助！

kwinawyeth · 发表于 2010-2-5 17:30

刚才这段代码有点小小的瑕疵，不好意思。我调试好后在发一段代码

kwinawyeth · 发表于 2010-2-5 18:02

以下代码已调试过：

Sub 删除明细()
Dim i As Integer
  i = 16
  Do While Range("C" & i) <> ""
         i = i + 1
  Loop
  If Range("C15") = "" Then
   MsgBox "什么都没有！老大，您删什么？"
  ElseIf Range("C16") = "" And Range("N15") <> "" Then
   Rows("15:15").Delete Shift:=xlUp
   Rows("15:15").Insert Shift:=xlDown
   Rows("8:8").Copy
   Rows("15:15").Select
         ActiveSheet.Paste
  ElseIf Range("C16") = "" And Range("N15") = "" Then
   Rows("15:16").Delete Shift:=xlUp
   Rows("15:15").Insert Shift:=xlDown
   Rows("8:8").Copy
   Rows("15:15").Select
         ActiveSheet.Paste
  ElseIf Range("n" & i - 1) = "" Then
   Rows(i - 1).Delete Shift:=xlUp
  End If
  Range("C2").ClearContents
  Range("C2").Select
End Sub

yoyolin520 · 发表于 2010-2-5 18:24

学习一下，谢谢分享

name004 · 发表于 2010-2-5 19:22

我看应该很好，越是简单的，越是美好。实际工作中要的就是这个，我给你捧场。
居然是个成熟的企业信息系统，了不起。
提一点点建议：1、命令吧最好不要改动，实践证明，那是非常多余的动作，反而给其他表格的操作带来麻烦。2、附加详尽说明书，让大家会用，3、如果有奉献精神，最好能让大家从空白表开始建立自己的数据库。
我也来个小工具，数据录入不用鼠标，录入表的保护密码---123，在AA烈的公式中，可以根据本地的情况修改税率

[ 本帖最后由 name004 于 2010-2-5 19:52 编辑 ]

yluin · 发表于 2010-2-5 19:48

不可以用的嘛~~限制住了

name004 · 发表于 2010-2-5 20:05

，仔细看了，确实是个成熟的系统，系统菜单已经预留了接口，看来，编制这个系统，你的思路比我考虑得细致，现在就缺一个详尽的说明书。

929708159 · 发表于 2010-2-5 21:45

谢谢，先收下了

zblkf · 发表于 2010-2-5 21:48

好好看看，学习下

carefree娟 · 发表于 2010-2-5 22:17

原帖由 kwinawyeth 于 2010-2-4 11:19 发表
代码加密，是因为我的代码写得太糟糕，不敢贻笑大方。
我的代码主要是录制宏，后从宏复制过来，或在论坛上收罗，东拼西凑。
勉强凑成一个东西。
说完美，那是自以为！根本算不上，应该是班门弄斧。
论坛上高手如 ...

CYJ.cerri@163.com

sparkie1983 · 发表于 2010-2-5 23:07

露珠辛苦了，学学看

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

[分享] 进销存系统[完美]，希望对大家有帮助！