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

zjdh

祁连山庄 发表于 2023-1-27 12:08
只需要把录入界面的数据保存到进销存记录表里就行

1. 在“数据录入”表中加入宏：
Private Sub Worksheet_Activate()
    Application.Calculation = xlManual
End Sub
Private Sub Worksheet_Deactivate()
    Application.Calculation = xlAutomatic
End Sub
2.
Sub 录入保存()
‘.....’
fk = Sheets("数据录入").Range("C1:C11").Find("*", , xlValues, , , xlPrevious).Row - 5
If fk > 0 Then
    Application.Calculation = xlAutomatic
  ‘....
    Sheets("进销表").Cells(hh, 1).Resize(fk, 16) = Brr
        Application.Calculation = xlCalculationManual
End If
‘....’

祁连山庄

6-3.4，单价不是加权平均呀！可以发一份不是压缩版的给我吗？每次改完工程重置，文件就自动消失了！我的邮箱： 524941462@qq.com  我需要出库单价是全月一次加权平均

祁连山庄

或者你6-4.1版本的，可以增加2个工作表吗

祁连山庄

祁连山庄

每次都这样，自动消失了，打不开

祁连山庄

原始的文件打开，找不到工程库；把工程库找回来，就需要重新压缩保存，重新压缩保存后，再打开就找不到文件了

zjdh

祁连山庄 发表于 2023-1-27 15:58
主要是出库单价不是按全月一次加权平均算的

加权单价当然是不安月计算的，而是按库存数量和库存金额计算的。

zjdh

祁连山庄 发表于 2023-1-27 17:06
每次都这样，自动消失了，打不开

说明你的系统有问题，你先将文件解压后再运行试试。

zjdh

祁连山庄 发表于 2023-1-27 17:02
或者你6-4.1版本的，可以增加2个工作表吗

当然可以增加工作表，可是你增加的表格与我的系统如何关联却是大问题。
你会处理吗？

祁连山庄

出现下标越界e