无法保存工作表

水中的月光 · 发表于 2016-1-16 11:01

现在A2单元格如果输入数值，B2,C2单元格必输入数值，否则无法保存工作表。
现求助需要达到的目的，是在A列中某一单元格输入数值，则相应行次的B,C列单元格必输入数值，否则无法保存工作表。请高手指点迷津。

水中的月光 · 发表于 2016-1-18 08:18

没人？不科学呀，自顶一目！

水中的月光 · 发表于 2016-1-18 09:44

截止目前还未解决，，，

lzxdy · 发表于 2016-1-18 09:56

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Worksheets("Sheet1").Range("A2") <> "" Then
If Worksheets("Sheet1").Range("b2") = "" Or Worksheets("Sheet1").Range("C2") = "" Then
MsgBox "Sheet1表的B2或C2单元格不能为空！", , "提醒"
Worksheets("Sheet1").Activate
ActiveSheet.Range("A1").Select
Cancel = True
End If
End If
End Sub

水中的月光 · 发表于 2016-1-18 10:03

lzxdy 发表于 2016-1-18 09:56
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Worksheets("Sheet1 ...

不好意思，不是我想要的那种效查，谢谢

liulang0808 · 发表于 2016-1-18 10:05

只是做了一个限制，建议楼主根据需求再进一步完善吧

水中的月光 · 发表于 2016-1-18 10:09

现在可以实现的要求的是第一行，太少了，想按照这样的规则，向下

lzxdy · 发表于 2016-1-18 10:11

水中的月光发表于 2016-1-18 10:03
不好意思，不是我想要的那种效查，谢谢

你加一个循环就成了呀。

水中的月光 · 发表于 2016-1-18 10:15

liulang0808 发表于 2016-1-18 10:05
只是做了一个限制，建议楼主根据需求再进一步完善吧

老师，我在你传的表格中，试了一下，在A3中，输入数据，B3,或C3,都可不输入数据就能保存，这不是我想要的，。我在7楼重新上传了附件，新的附件中，如果B2或C2不输入数据就不能保存。但是我想向下都按这样的规则，只要A列有内容，B/C就要有数据，进行限制，否则不能保存。谢谢老师。

水中的月光 · 发表于 2016-1-18 10:17

lzxdy 发表于 2016-1-18 10:11
你加一个循环就成了呀。

能根据7楼中的附件加个循环吗，谢谢老师，

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

[求助] 无法保存工作表