Question

帮我翻译以下EXCEL中语言的全部意思？？

Sub 添加出入库记录_Click() If Cells(4, 5) = "" Then MsgBox "货号不能为空，请选择发生出入库记录的商品！" Else If Cells(4, 7) = "" And Cells(4, 8) = "" Then MsgBox "出入库数量不能为空，请至少输入一个进库或出库数量！" Else Dim i As Long Dim j As Long i = Sheets("流水账").Cells(1, 8) Sheets("流水账").Cells(i, 1) = Sheets("登记界面").Cells(4, 5) Sheets("流水账").Cells(i, 2) = Sheets("登记界面").Cells(4, 6) Sheets("流水账").Cells(i, 3) = Sheets("登记界面").Cells(4, 7) Sheets("流水账").Cells(i, 4) = Sheets("登记界面").Cells(4, 8) Sheets("流水账").Cells(i, 5) = Now() For j = 2 To Sheets("库存结余").Cells(1, 7) + 1 If Sheets("库存结余").Cells(j, 1) = Sheets("登记界面").Cells(4, 5) Then Sheets("库存结余").Cells(j, 3) = Sheets("登记界面").Cells(4, 10) Else End If Next j MsgBox "出货库记录添加成功！" Sheets("登记界面").Cells(4, 5) = "" Sheets("登记界面").Cells(4, 7) = "" Sheets("登记界面").Cells(4, 8) = "" End If End If End Sub

Answer 1

以下我部分给你说明，其他雷同 Sub 添加出入库记录_Click() 宏 ：添加出入库记录 If Cells(4, 5) = "" Then 假如格Cells(4, 5) =空白则 MsgBox "货号不能为空，请选择发生出入库记录的商品！" 提示货号不能为空，请选择发生出入库记录的商品！" Else 否则 If Cells(4, 7) = "" And Cells(4, 8) = "" Then 假如格Cells(4, 7) ，Cells(4, 8)都=空白则 MsgBox "出入库数量不能为空，请至少输入一个进库或出库数量！" 提示出入库数量不能为空，请至少输入一个进库或出库数量！ Else 否则 Dim i As Long Dim j As Long 定义i,j变量为长整型数据 i = Sheets("流水账").Cells(1, 8) 变量i附值，i=表流水账格Cells(1, 8) Sheets("流水账").Cells(i, 1) = Sheets("登记界面").Cells(4, 5) 表流水账的Cells(i, 1)=表登记界面Cells(4, 5) 以下雷同 Sheets("流水账").Cells(i, 1) = Sheets("登记界面").Cells(4, 5) Sheets("流水账").Cells(i, 2) = Sheets("登记界面").Cells(4, 6) Sheets("流水账").Cells(i, 3) = Sheets("登记界面").Cells(4, 7) Sheets("流水账").Cells(i, 4) = Sheets("登记界面").Cells(4, 8) Sheets("流水账").Cells(i, 5) = Now() 表流水账Cells(i, 5)=当前时间 For j = 2 To Sheets("库存结余").Cells(1, 7) + 1 变量j取值2至表库存结余的Cells(1, 7) + 1 If Sheets("库存结余").Cells(j, 1) = Sheets("登记界面").Cells(4, 5) Then 假如库存结余").Cells(j, 1) = Sheets("登记界面").Cells(4, 5）则 Sheets("库存结余").Cells(j, 3) = Sheets("登记界面").Cells(4, 10) Else End If Next j MsgBox "出货库记录添加成功！" Sheets("登记界面").Cells(4, 5) = "" Sheets("登记界面").Cells(4, 7) = "" Sheets("登记界面").Cells(4, 8) = "" End If End If End Sub