|
楼主 |
发表于 2014-4-3 23:49
|
显示全部楼层
810126769 发表于 2014-4-3 20:39
哦,还得这样修改:
你好,我加入到我的代码中,执行的时候还是存在没有数据的时候提示,但是照样进行保存空表格。
Sub 录入()
Dim i, j
i = Sheets("登记").Cells(Rows.Count, 2).End(xlUp).Row
j = Sheets(Sheets("登记").Cells(3, 7).Value & "台账").Cells(Rows.Count, 1).End(xlUp).Row + 1
If B5= "" Or C5 = "" Or D5= "" Or E5 = "" F5 = "" H5 = "" I5 = "" J5 = "" Then
MsgBox "请输入对应空白项数据之后再保存"
cancel=true
End If
Sheets("登记").Range("b5:h" & i).Copy Sheets(Sheets("登记").Cells(3, 7).Value & "台账").Range("a" & j)
Sheets("登记").Range("i5:j" & i).Copy Sheets(Sheets("登记").Cells(3, 7).Value & "台账").Range("i" & j)
MsgBox "数据已成功录入到" & "《" & Sheets("登记").Cells(3, 7).Value & "台账》工作表"
[B5:J9] = ""
End Sub
能不能麻烦您帮我在这段代码中进行修改呢,只要有一项数据位空,则停止保存,只有当所有数据全部填完之后才能进行保存。
|
|