数据录入代码判断提醒

haryzbs · 发表于 2014-4-3 14:01

这是一段录入数据的代码：
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
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

我想在保存的时候需要判断某些位置是否有数据之后再保存，如果没有数据就添加文字提醒，麻烦大家帮我看一下。

haryzbs · 发表于 2014-4-3 18:53

没人会吗，，能不能帮我看看啊

yjlht007 · 发表于 2014-4-11 10:35

看不懂，我也不会，应该没有上传附件吧

haryzbs · 发表于 2014-4-12 00:31

yjlht007 发表于 2014-4-11 10:35
看不懂，我也不会，应该没有上传附件吧

谢谢您，，我已经解决了。。

		自动登录	找回密码
密码			免费注册