怎样设置在一定条件下某个单元格没有内容时，表格就不能关闭？

samir

我想给表格设置一种功能：当某个单元格有数据时，另一个单元格就必须有数据或文本，否则这个表格就不能关闭，例如：附件 测试.zip (1.5 KB, 下载次数: 13)

2011-12-30 11:10 上传

点击文件名下载附件

中当A1中有内容时，B2、C2中必须要填写，否则表格就不能关闭，听说这个功能需要VBA，但小弟对这个基本上是空白，请各位大虾帮帮小弟，解释详细点，多谢！

zhaogang1960

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim lr&, x As WorksheetFunction
    Set x = WorksheetFunction
    With Sheets("Sheet1")
        lr = x.CountA(.Range("a:a")) - 1
        If lr = 0 Then Exit Sub
        If x.CountA(.Cells(2, 2).Resize(lr)) <> lr Or x.CountA(.Cells(2, 3).Resize(lr)) <> lr Then
            MsgBox "请填写B列或C列！"
            Cancel = True
            Exit Sub
        End If
        Application.DisplayAlerts = False
        Me.Save
    End With
End Sub

yancjm

zhaogang1960 发表于 2011-12-30 11:35
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim lr&, x As WorksheetFunction
    Set x  ...

還是可以關閉，只是有一個提示信息

zhaogang1960

yancjm 发表于 2011-12-30 11:40
還是可以關閉，只是有一個提示信息

请看演示：

测试.rar (4.96 KB, 下载次数: 44)

2011-12-30 12:29 上传

点击文件名下载附件

yancjm

zhaogang1960 发表于 2011-12-30 12:29
请看演示：

OK了，{:soso_e179:}

samir

zhaogang1960 发表于 2011-12-30 12:29
请看演示：

感谢版主！！