Google App Script：编写IF语句实现点击图片切换单元格颜色

直接以单元格填充色作为判断条件即可实现需求，以下是完整代码和操作步骤：

Sub ToggleC6Color()
    Dim targetCell As Range
    Set targetCell = ThisWorkbook.ActiveSheet.Range("C6")
    
    ' 判断当前单元格是否为默认白色
    If targetCell.Interior.Color = RGB(255, 255, 255) Then
        ' 切换为绿色
        targetCell.Interior.Color = RGB(0, 176, 80)
    Else
        ' 切换回白色
        targetCell.Interior.Color = RGB(255, 255, 255)
    End If
End Sub

关键说明 #

• RGB(255,255,255)是标准白色的RGB值，若使用Excel主题自带白色，也可替换为xlColorIndexAutomatic（RGB值判断更精准）
• 示例中的绿色为Excel默认深绿色，可根据需求替换成其他RGB颜色值

操作步骤 #

• 按Alt+F11打开VBA编辑器
• 右键当前工作簿→插入→模块，粘贴上述代码
• 返回Excel界面，右键目标图片→指定宏，选择ToggleC6Color
• 测试点击：第一次点击C6变绿，再次点击恢复白色

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