使用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写一段代码，当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代码将sheet中所有单元格中的CCU字符的字体颜色设置为红色

当然可以，以下是一段简单的VBA代码，用于将Excel工作表（Sheet1假设）中所有包含"CCU"字符的单元格字体颜色设置为红色：

Sub ChangeColorIfContainsCCU()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1") ' 更改为您需要的 sheet 名称
    
    Dim rng As Range
    For Each rng In ws.UsedRange ' 遍历工作表的所有单元格
        If InStr(1, rng.Value, "CCU", vbTextCompare) > 0 Then ' 检查单元格是否包含 "CCU"
            rng.Font.Color = RGB(255, 0, 0) ' 如果包含，将其设为红色
        End If
    Next rng
End Sub

在这段代码中，我们首先设置了工作表变量`ws`，然后遍历该工作表中每一个单元格`rng`，如果单元格值中存在"CCU"，就将其字体颜色设置为红色。