饭店进销存表格自动结算怎么弄

饭店进销存表格自动结算，通常指的是使用电子表格软件（如microsoft excel）来跟踪和管理饭店的进货、销售和库存情况。以下是如何设置一个基本的自动结算系统的方法：

1. 准备数据：

• 在excel中创建一个新的工作簿，并命名它为“饭店进销存”。
• 在第一行输入标题，例如“日期”、“进货数量”、“进货单价”、“进货总价”、“销售数量”、“销售单价”、“销售总价”和“库存数量”。

2. 输入初始数据：

• 在第一列（日期）中输入每天的日期。
• 在第二列（进货数量）中输入每天的进货数量。
• 在第三列（进货单价）中输入进货商品的单价。
• 第四列（进货总价）中输入进货的总价，即进货数量乘以进货单价。
• 第五列（销售数量）中输入每天的销售数量。
• 第六列（销售单价）中输入销售商品的单价。
• 第七列（销售总价）中输入销售的总价，即销售数量乘以销售单价。
• 第八列（库存数量）中输入每天的库存数量，这是前一天的库存加上当天的进货数量减去当天的销售数量。

3. 设置公式：

• 在“库存数量”列中，输入以下公式来计算库存变化：`=d2-e2+f2`，其中d2是当前日期，e2是前一天的库存数量，f2是当天的进货数量。
• 在“销售总价”列中，输入以下公式来计算销售总价：`=c2*g2`，其中c2是当前日期的销售数量，g2是当天的销售单价。
• 在“库存数量”列中，输入以下公式来计算库存变化：`=d2-e2+f2`，其中d2是当前日期，e2是前一天的库存数量，f2是当天的进货数量。
• 在“销售总价”列中，输入以下公式来计算销售总价：`=c2*g2`，其中c2是当前日期的销售数量，g2是当天的销售单价。

4. 设置条件格式：

• 选中“库存数量”列，然后点击“开始”选项卡中的“条件格式”。
• 在“新建规则”对话框中，选择“小于”，然后设置一个数值，比如100。
• 点击“设置”按钮，然后在“格式”选项卡中设置字体颜色为红色，并勾选“填充”选项。

5. 保存并保护工作簿：

• 点击“文件”选项卡，然后选择“另存为”。
• 在“另存为”对话框中，选择“excel模板（*.xltx）”，然后输入文件名，例如“饭店进销存”。
• 点击“保存”，然后点击“工具”选项卡中的“保护工作簿”。
• 在“保护工作簿”对话框中，确保选择了“结构”复选框，然后点击“确定”。

6. 使用宏自动化操作：

• 在“开发工具”选项卡中，点击“Visual Basic”按钮。
• 在“Visual Basic for Applications”窗口中，双击“Sheet1”工作表，然后点击“代码”选项卡。
• 在“代码”窗口中，粘贴以下代码：

```vba

Sub UpdateInventory()

For i = 2 To Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row

If IsEmpty(Cells(i, 8)) Then

Cells(i, 8).Value = Cells(i
• 1, 7).Value
Cells(i, 9).Value = Cells(i
• 1, 8).Value
Cells(i, 10).Value = Cells(i
• 1, 9).Value
Cells(i, 11).Value = Cells(i
• 1, 10).Value
Cells(i, 12).Value = Cells(i
• 1, 11).Value
Cells(i, 13).Value = Cells(i
• 1, 12).Value
Cells(i, 14).Value = Cells(i
• 1, 13).Value
Cells(i, 15).Value = Cells(i
• 1, 14).Value
Cells(i, 16).Value = Cells(i
• 1, 15).Value
Cells(i, 17).Value = Cells(i
• 1, 16).Value
Cells(i, 18).Value = Cells(i
• 1, 17).Value
Cells(i, 19).Value = Cells(i
• 1, 18).Value
Cells(i, 20).Value = Cells(i
• 1, 19).Value
Cells(i, 21).Value = Cells(i
• 1, 20).Value
Cells(i, 22).Value = Cells(i
• 1, 21).Value
Cells(i, 23).Value = Cells(i
• 1, 22).Value
Cells(i, 24).Value = Cells(i
• 1, 23).Value
Cells(i, 25).Value = Cells(i
• 1, 24).Value
Cells(i, 26).Value = Cells(i
• 1, 25).Value
Cells(i, 27).Value = Cells(i
• 1, 26).Value
Cells(i, 28).Value = Cells(i
• 1, 27).Value
Cells(i, 29).Value = Cells(i
• 1, 28).Value
Cells(i, 30).Value = Cells(i
• 1, 29).Value
Cells(i, 31).Value = Cells(i
• 1, 30).Value
Cells(i, 32).Value = Cells(i
• 1, 31).Value
Cells(i, 33).Value = Cells(i
• 1, 32).Value
Cells(i, 34).Value = Cells(i
• 1, 33).Value
Cells(i, 35).Value = Cells(i
• 1, 34).Value
Cells(i, 36).Value = Cells(i
• 1, 35).Value
Cells(i, 37).Value = Cells(i
• 1, 36).Value
Cells(i, 38).Value = Cells(i
• 1, 37).Value
Cells(i, 39).Value = Cells(i
• 1, 38).Value
Cells(i, 40).Value = Cells(i
• 1, 39).Value
Cells(i, 41).Value = Cells(i
• 1, 40).Value
Cells(i, 42).Value = Cells(i
• 1, 41).Value
Cells(i, 43).Value = Cells(i
• 1, 42).Value
Cells(i, 44).Value = Cells(i
• 1, 43).Value
Cells(i, 45).Value = Cells(i
• 1, 44).Value
Cells(i, 46).Value = Cells(i
• 1, 45).Value
Cells(i, 47).Value = Cells(i
• 1, 46).Value
Cells(i, 48).Value = Cells(i
• 1, 47).Value
Cells(i, 49).Value = Cells(i
• 1, 48).Value
Cells(i, 50).Value = Cells(i
• 1, 49).Value
Cells(i, 51).Value = Cells(i
• 1, 50).Value

End If

Next i

End Sub

```

• 然后运行宏“UpdateInventory”，它将自动更新库存数量、销售总价和库存数量。
• 你可以通过双击单元格或按F9键来运行宏。
• 如果需要手动更新数据，可以取消勾选“运行宏时自动重算”选项。
• 确保所有相关的单元格都被选中，然后运行宏。