求助excel VBA实现,A1单元格必须输入内容,A2才能输入内容

发布网友 发布时间：2024-10-23 22:29

我来回答

共2个回答

热心网友 时间：2024-10-30 08:53

下面程序只针对某个表，如Sheet1。

鼠标右击该表的名称（如Sheet1），选择“查看代码”，粘贴下列代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$B$1" Then
        If Cells(1, 2) <> "" Then
            If Cells(1, 1) = "" Then
                MsgBox "A1 不能为空"    '此句可不要
                Cells(1, 2) = ""
                Cells(1, 2).Select
            End If
        End If
    End If
End Sub

热心网友 时间：2024-10-30 08:53

操作栏->数据->数据验证；设置设置如上图