如何用Excel VBA实现选中A2时将A2、A5设黄且G5设紫？

当然可以实现，只需要调整你的VBA代码，分别给不同单元格设置对应颜色就行，同时还要修正原代码里的几个小问题：

• Adress拼写错误，正确的属性名是Address
• 原代码里的Range(A2,A5,G5)引用方式有误，而且未给单元格地址加引号，需要分开指定不同的单元格区域来设置不同颜色
• 缺少完整的工作表事件结构，这段逻辑需要放在Worksheet_SelectionChange事件中

完整的VBA代码 #

把这段代码粘贴到目标工作表的模块中（打开VBA编辑器：Alt+F11，找到对应的工作表）：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ' 只处理单个单元格选中的场景，避免多选时触发错误
    If Target.Count > 1 Then Exit Sub
    
    If Target.Address = "$A$2" Then
        ' 将A2、A5设置为黄色
        Range("A2,A5").Interior.Color = RGB(255, 255, 0)
        ' 将G5设置为紫色（RGB值可根据需求调整）
        Range("G5").Interior.Color = RGB(128, 0, 128)
    End If
End Sub

代码说明 #

• 当选中单个单元格且该单元格是A2时，会执行颜色设置逻辑
• 用Range("A2,A5")一次性选中两个单元格设置黄色，再单独给G5设置紫色，实现需求的差异化颜色设置
• 增加Target.Count > 1的判断，避免选中多个单元格时触发不必要的操作，提升代码稳定性

内容的提问来源于stack exchange，提问作者ashley