使用VBA写一段代码，当A2单元格内容改变或被编辑时自动触发，若A2为"boy",则C2、D2单元格变为红色，并不可编辑。

你可以使用 VBA 编写一段宏，将事件绑定到 A2 单元格的 Change 事件。以下是满足您需求的代码示例：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 检查修改的是不是 A2 单元格
    If Intersect(Target, Range("A2")) Is Nothing Then Exit Sub
    
    ' 如果 A2 的值为 "boy"
    If Target.Value = "boy" Then
        ' 将 C2 和 D2 设置为红色字体
        Range("C2:D2").Font.Color = RGB(255, 0, 0) ' 红色
        
        ' 阻止单元格被编辑，设置只读
        Range("C2:D2").Locked = True
    Else
        ' 若 A2 值不再是 "boy"，恢复默认颜色并允许编辑
        Range("C2:D2").Font.Color = RGB(0, 0, 0) ' 黑色
        Range("C2:D2").Locked = False
    End If
End Sub

这段代码会监听工作表上 A2 单元格的变化。如果变化后 A2 的值是 "boy"，它会立刻让 C2 和 D2 变成红色并锁定不可编辑；反之，如果 A2 内容更改后不再是 "boy"，它会把这两个单元格的颜色恢复为黑色并允许编辑。

相关问题

使用VBA写一段代码，若A2为"boy",则C2、D2单元格变为红色，并不可编辑。

在VBA中，你可以使用If...Then...Else语句结合条件格式化来实现这个功能。这里是一个简单的示例代码：

Sub ColorCells()
    Dim strCell As String
    strCell = Range("A2").Value
    
    If strCell = "boy" Then
        ' 将C2单元格设为红色并锁定
        Cells(2, 3).Interior.ColorIndex = RGB(255, 0, 0) ' 红色背景
        Cells(2, 3).Locked = True
        
        ' 将D2单元格设为红色并锁定
        Cells(2, 4).Interior.ColorIndex = RGB(255, 0, 0)
        Cells(2, 4).Locked = True
    Else
        ' 如果A2不是"boy"，不做颜色改变且解锁单元格
    End If
End Sub

这段代码首先检查A2单元格的内容，如果内容是"boy"，则将C2和D2单元格设置为红色并锁定。如果内容不是"boy"，则保持默认的颜色，且这两个单元格可编辑。

用VBA写一段代码，把A1单元格的内容复制到A2中

以下是 VBA 代码：

Sub CopyA1toA2()
Range("A2").Value = Range("A1").Value
End Sub

这段代码会把 A1 单元格的内容复制到 A2 中。