如何根据Excel工作表区域值设置用户窗体命令按钮的背景色

需求规则 #

• 若指定单元格区域内存在任意值为-1的单元格，命令按钮背景色设为红色
• 若指定单元格区域内不存在-1但存在任意值为0的单元格，命令按钮背景色设为黄色
• 若指定单元格区域内所有单元格值均为1，命令按钮背景色设为绿色
• 其余情况命令按钮背景色设为白色

原代码存在的问题 #

1. 优先级逻辑错误：遍历单元格时会持续覆盖按钮背景色，最终颜色仅由最后一个遍历到的单元格取值决定，完全不符合预设的规则优先级
2. 数值匹配错误：判断条件中将数字与带引号的字符串对比，若单元格内为数值格式的-1/0/1，判断条件会直接失效

修正后可直接使用的代码 #

Private Sub CommandButton1_Click()
    UserForm29.Hide
    UserForm1.Label1 = TextBox1.Value
    
    Dim rng As Range
    ' 绑定指定单元格区域
    Set rng = Sheets("Sheet1").Range("C3:C11")
    
    ' 按照规则优先级从高到低判断
    If WorksheetFunction.CountIf(rng, -1) > 0 Then
        UserForm1.CommandButton1.BackColor = vbRed
    ElseIf WorksheetFunction.CountIf(rng, 0) > 0 Then
        UserForm1.CommandButton1.BackColor = vbYellow
    ElseIf WorksheetFunction.CountIf(rng, 1) = rng.Cells.Count Then
        UserForm1.CommandButton1.BackColor = vbGreen
    Else
        UserForm1.CommandButton1.BackColor = vbWhite
    End If
End Sub

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