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

chen4u · 发表于 2010-2-5 11:06

可否提供源碼供俺學習之用。謝謝！

jjxie1234 · 发表于 2010-2-5 11:37

多学习快进步看来我得跑步了呢

cstxling · 发表于 2010-2-5 12:20

有好多学习的地方，真的。cstxling@tom.com

baiyifan · 发表于 2010-2-5 13:31

谢谢分享，先行收下，试用后再说

对眼 · 发表于 2010-2-5 14:07

下来学习学习。

kwinawyeth · 发表于 2010-2-5 14:36

以上留信箱的同仁，密码已发到您的邮箱，请您不要直接在论坛上公示，谢谢！！！
代码真的很蹩脚！前边有人说用了什么对象，什么中文函数，我都不懂。代码是东拼西凑的。大家喜欢就好！
如果哪位留了邮箱的同仁，我有漏给了密码，那很抱歉。您也向其他知道密码的同仁索取！

feso112 · 发表于 2010-2-5 16:02

欣赏一下楼主大作

zhc19620430 · 发表于 2010-2-5 16:31

看看，我也学习代码。

cpali3023 · 发表于 2010-2-5 16:33

没太大的实用性

kwinawyeth · 发表于 2010-2-5 16:49

在销售单模板中删除明细换成以下代码，使用更方便：

Sub 删除明细()
Dim i As Integer
  i = 16
  Do While Range("C" & i) <> ""
         i = i + 1
  Loop
  If Range("C15") = "" Then
  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
  ElseIf Range("n" & i - 1) <> "" Then
   Rows(i - 1).Delete Shift:=xlUp
  End If
Range("C2").ClearContents
  Range("C2").Select
End Sub

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

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