以《仓库进销存管理系统》来学习VBA知识

ctp_119

原帖由 qczvba 于 2011-3-19 10:55 发表
楼主真高，不错，最好用ACCESS为数据库。谢谢分享。有时程序不断优化才有兴趣。

太有同感了，程序设计要不断的改进和优化，这样也可以见证自己在不断的进步。过段时间你会发现自己当初设计的程序是多么的幼稚何低效呀。

juqingrong0701

楼主真牛额！！

ctp_119

现对删除数据模块进行更新，原来程序设计有逻辑错误，用替换方法时，出现逻辑错误，使数据失真。现做如下更正，把本代码复制替换原先代码即可。
Sub 删除数据()
Dim mybook As Workbook
Dim s As Integer
Dim i As Integer
Dim j As Integer
Dim m As Integer
Dim R As Integer
flag = True
Set mybook = GetObject(ThisWorkbook.Path & "\" & k & stri)
With mybook.Sheets("本期结存")
  .Unprotect ("1234")
  s = .[a65536].End(xlUp).Row - 1
  .Range("a2:b" & s & ",i2:k" & s).Copy     '注意：第二个&连接在，的前面尤为重要。哈哈
  With mybook.Sheets("上期结存")
    .Range("a2").PasteSpecial Paste:=xlPasteValues
    R = .Range("C65536").End(xlUp).Row
    For i = R To 2 Step -1
        If .Cells(i, 3) = 0 Then
        .Cells(i, 3).EntireRow.Delete
        End If
    Next i
  End With
  .Protect ("1234")
End With
With mybook.Sheets("入库")
    j = .[a65536].End(xlUp).Row
    .Range("a2:l" & j).ClearContents
End With
With mybook.Sheets("出库")
    m = .[a65536].End(xlUp).Row
    .Range("a2:k" & m).ClearContents
End With
Windows(mybook.Name).Visible = True
mybook.Close True
Set mybook = Nothing
End Sub

好望之角

好东西 顶起来
学习啦

lcgporite

可否添加单据日期及实际出,入库日期,产品台账(出,入,库,三者明细)

suqji

我是个爱好者，已几年时间，但是进展不大，不过还是很喜欢看这些文章

alexhowe

好帖子，仔细研究中

langwaipo

做记号， 待学习

张志云

做记号， 待学习

red_ann

浩瀚的宇宙啊