烦请老师优化一下食谱公示里面的代码

wcj6376tcp

chxw68 发表于 2024-6-4 17:49
修改好了。

这下完全符合我单位需求了，谢谢！

chxw68

晚上又优化了一下。

wcj6376tcp

chxw68 发表于 2024-6-4 23:11
晚上又优化了一下。

老师你好，实际录入中又遇到问题了，当一周内公示区单列出来的物品出现价格不同时，公示区不能体现，提货单体现了的。麻烦看看公示区能否同名不同价的也单列出来，现在是数量金额合计了，单价只是其中任意一个。导致用单价乘以数量与金额不一致。

chxw68

修改好了。

wcj6376tcp

chxw68 发表于 2024-6-5 09:52
修改好了。

刚才下了也是一样哒

wcj6376tcp

chxw68 发表于 2024-6-5 09:52
修改好了。

刚才32楼的还是有这个问题呢？比如你随便改一天的大米或者油的价格，总的数量和金额对的上，但用单价乘以数量就不对。

chxw68

wcj6376tcp 发表于 2024-6-5 10:13
刚才32楼的还是有这个问题呢？比如你随便改一天的大米或者油的价格，总的数量和金额对的上，但用单价乘以 ...

米油这一类只有两行数据，所以把一个大米覆盖掉了，需要把汇总表格行数扩一下。

wcj6376tcp

chxw68 发表于 2024-6-5 11:28
米油这一类只有两行数据，所以把一个大米覆盖掉了，需要把汇总表格行数扩一下。

Sub 备份()
    Dim sh As Worksheet, m&, rq
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    For Each sh In Worksheets
        If sh.Name Like "周[一二三四五]" Or sh.Name = "周汇总" Then
            m = m + 1
            If m = 1 Then sh.Select Else sh.Select False
        End If
    Next
    rq = Sheets("周汇总").Range("A24") & Format(Sheets("周一").Range("A24"), "yyyymmdd") & "-" & Format(Sheets("周五").Range("A24"), "yyyymmdd")
    ActiveWindow.SelectedSheets.Copy
    bf = ThisWorkbook.Path & "\食堂公示备份"
    If Len(Dir(bf, vbDirectory)) = 0 Then MkDir bf '建目录
    ActiveWorkbook.Close True, bf & "\" & rq & ".xlsx"
    Sheets("周汇总").Select
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
    'MsgBox "备份完毕!"
End Sub
老师，因为需要轮换使用，我在你的后面加了一个call 备份，现在把周一-周五和周汇总都备份了，想不要放假的表，能否帮忙修改一下

wcj6376tcp

chxw68 发表于 2024-6-5 11:28
米油这一类只有两行数据，所以把一个大米覆盖掉了，需要把汇总表格行数扩一下。

能否帮我修改一下放假的表不备份，现在都备份了。

chxw68

修改好了。