vb 设置只有当同一行的单元格A输入内容后才能输入B单元格

在Visual Basic for Applications (VBA)，你可以使用Worksheet_Change事件来实现这样的功能。这需要你在Excel工作表中设置一个宏来监听单元格内容的变化。以下是一个简单的示例代码，它将确保只有在单元格A（假设为A1）输入内容后，单元格B（假设为B1）才能被编辑。

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 检查改变是否发生在单元格A1
    If Not Intersect(Target, Me.Range("A1")) Is Nothing Then
        ' 如果A1被清空，则同时清空B1
        If IsEmpty(Target.Value) Then
            Me.Range("B1").ClearContents
        End If
    End If
    
    ' 检查改变是否发生在单元格B1
    If Not Intersect(Target, Me.Range("B1")) Is Nothing Then
        ' 如果B1被修改，根据A1的内容决定是否允许
        If Not IsEmpty(Me.Range("A1").Value) Then
            ' A1有内容，允许修改B1
        Else
            ' A1为空，不允许修改B1，可以添加错误提示或撤销修改
            MsgBox "单元格A1为空，不允许修改B1单元格内容。", vbExclamation
            Application.EnableEvents = False ' 关闭事件触发，防止递归调用
            Me.Range("B1").Value = "" ' 清空B1
            Application.EnableEvents = True ' 重新开启事件触发
        End If
    End If
End Sub

请注意，上述代码中的`IsEmpty`函数用于检查单元格是否为空，而`Intersect`函数用于确定事件影响的单元格是否为特定的单元格或范围。在这段代码中，你需要根据实际的单元格地址调整`Range("A1")`和`Range("B1")`。

此外，当B1被修改时，代码会检查A1是否为空，如果A1为空，则不允许修改B1，并会弹出一个消息框提示用户。代码中使用了`Application.EnableEvents = False`来防止在清空B1时再次触发事件，这可以避免可能的递归调用。

在使用此代码之前，请确保你的Excel设置允许运行宏，并将此代码放在相应工作表的代码页中。