使用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提取A2,B2,C2,D2,E2内容复制到K2单元格内

在VBA（Visual Basic for Applications）中，你可以使用`Range`对象的`Value`属性以及数组来一次性将多个单元格的内容复制到目标位置。以下是创建一个脚本，用于提取A2至E2的值并复制到K2单元格内的例子：

Sub CopyMultipleCells()
    Dim sourceRange As Range
    Set sourceRange = Range("A2:E2") ' 定义源范围为A2到E2
    Dim targetCell As Range
    Set targetCell = Range("K2")     ' 定义目标细胞为K2

    ' 将源范围的值复制到临时数组
    Dim values() As Variant
    values = sourceRange.Value
    
    ' 将数组数据粘贴到目标单元格
    targetCell.Value = values ' 直接赋值给目标单元格
End Sub

运行这个VBA宏后，A2、B2、C2、D2和E2的值就会被复制到K2单元格。