Как получить имя типа иконки, установить условное форматирование

Question

У меня есть лист "Bai 1", в диапазоне F6: F11, у меня есть значок условного форматирования, установленный 3 стрелками. Я хочу получить название "3 стрелки" от VBA. Но это не работает. Это мой код:

If Worksheets("Bai 1").Range("F6:F11").FormatConditions.Count > 0 Then   
        If Worksheets("Bai 1").Range("F6:F11").FormatConditions(1).Type = 6 Then ' 6 is  xlIconSet
             MsgBox Worksheets("Bai 1").Range("F6:F11").FormatConditions(1).IconSetCondition.IconSet             
    End If    
End If

Спасибо за вашу помощь. Извините, если мой английский sh не хорош.

Answer 1

Полагаю, вы ищете свойство IconSet.ID.

Возвращает одну из констант перечисления XlIconSet, в которой указано имя набора значков. используется в правиле условного форматирования набора значков.

MsgBox Worksheets("Bai 1").Range("F6:F11").FormatConditions(1).IconSet.ID

, а затем вы можете проанализировать результат с помощью UDF на основе XlIconSet enum .

Private Function GetIconType(ByVal iconID as Long) As String
     Select Case iconID
          Case 1
              GetIconType = "3 Arrows"
          Case 2
              GetIconType = "3 Arrows Gray"
          '... and so on
     End Select
End Function