小小出入库管理系统(2012年12月又作了更新)

057000123

zjdh 发表于 2013-8-14 18:43
当然可以啦！
不过最好每年“导出”一次数据，并将“库存转起初”，既保持数据的连贯性，又不至于由于文 ...

好的。谢谢楼主

yrz7175

谢谢楼主，慢慢研究

mfx780425

楼主：我将明细账的A列为月份，B列为日期，C列为凭证号，D列为摘要，代码如何改

zjdh

mfx780425 发表于 2013-8-18 10:54
楼主：我将明细账的A列为月份，B列为日期，C列为凭证号，D列为摘要，代码如何改

你把“MX”这段宏看明白了，就会修改啦。

mfx780425

我是菜鸟，数组我看不明白，所以没有修改成功，恳请楼主指点迷津

zjdh

mfx780425 发表于 2013-8-18 16:05
我是菜鸟，数组我看不明白，所以没有修改成功，恳请楼主指点迷津

如果你连数组都看不明白，就没得说了，你先去补补课吧！

mfx780425

终于搞定了

a5213

我请教一个问题，就是导入数据后原备份中的公式没有了，相当于“选择性粘贴--数值”，怎样通过修改以下代码来保留原备份中的公式。
Sub 导入()
    Application.ScreenUpdating = False
    On Error GoTo 1
    If MsgBox("导入新数据前本文件'数据库'内容将被清除！" & Chr(10) & Chr(10) & "继续导入吗?", 4 + 32 + 256, "提示!") = vbNo Then End
    Sheets("记录").Range("A2:S" & Sheets("记录").Range("A65500").End(3).Row + 2).ClearContents
    Nam = Application.GetOpenFilename(FileFilter:="备份档(*.bf),*.bf", Title:="请选取备份数据导入")
    Set WK = Workbooks.Open(Nam)
    ARR = WK.Sheets(1).Range("A2:S" & Range("A65500").End(3).Row)
    ThisWorkbook.Sheets("记录").Range("A2").Resize(UBound(ARR), 19) = ARR
    WK.Close
1   Application.ScreenUpdating = True
End Sub

zjdh

我的系统备份文件原本就没有公式的，若你的文件有公式
把这2句
ARR = WK.Sheets(1).Range("A2:S" & Range("A65500").End(3).Row)
ThisWorkbook.Sheets("记录").Range("A2").Resize(UBound(ARR), 19) = ARR
改为
WK.Sheets(1).Range("A2:S" & Range("A65500").End(3).Row).copy ThisWorkbook.Sheets("记录").Range("A2")

zjdh

2000楼自己坐，留个纪念。