用于 Alt 热键自动化/模拟的 Excel VBA？

Question

我想使用 VBA 脚本自动添加“条件格式”>“色标”。但是当我用谷歌搜索时，我找不到任何解决方案。但我认为如果可以自动化/模拟 Excel 热键，例如“alt > H > L > S”，它应该是可能的。所以我想知道是否有办法做到这一点？

Answer 1

即使有可能通过模拟击键找到解决方案(这可以通过 SendKeys 来完成，参见 https://docs.microsoft.com/en-us/office/vba/language/reference/user-interface-help/sendkeys-statement)——不要走这条路。请放心，这永远不会可靠，太多的事情可能会出错。
使用 VBA 设置条件格式并不难。以下两个程序将色标设置为一个范围，第一个是简单的 2 色标，第二个是 3 色。如果您需要其他变体，请使用宏记录器了解如何设置正确的属性。

Sub setScaleCondition(r As Range)
    Dim cScale As ColorScale
    Set cScale = r.FormatConditions.AddColorScale(ColorScaleType:=2)
    
    cScale.ColorScaleCriteria(1).Type = xlConditionValueLowestValue
    cScale.ColorScaleCriteria(1).FormatColor.Color = vbRed
    cScale.ColorScaleCriteria(2).Type = xlConditionValueHighestValue
    cScale.ColorScaleCriteria(2).FormatColor.Color = vbGreen
End Sub


Sub setScaleCondition3(r As Range)
    Dim cScale As ColorScale
    Set cScale = r.FormatConditions.AddColorScale(ColorScaleType:=3)
    
    cScale.ColorScaleCriteria(1).Type = xlConditionValueLowestValue
    cScale.ColorScaleCriteria(1).FormatColor.Color = vbRed
    
    cScale.ColorScaleCriteria(2).Type = xlConditionValuePercentile
    cScale.ColorScaleCriteria(2).Value = 50
    cScale.ColorScaleCriteria(2).FormatColor.Color = RGB(200, 200, 200)
    
    cScale.ColorScaleCriteria(3).Type = xlConditionValueHighestValue
    cScale.ColorScaleCriteria(3).FormatColor.Color = vbGreen
End Sub