Добавить элементы в поле со списком в зависимости от цвета ячейки

Question

Я новичок в Excel-VBA и пытаюсь добавить элементы в поле со списком в зависимости от цвета ячейки.

В этом примере я только хочу, чтобы текст этих синих оттенков был добавлен в список комбинированного списка.

Sheets("Application").ComboBox1.List = Range("A:A").Value

Answer 1

Этот код будет проходить через столбец A и, если он найдет ячейку определенного цвета, он добавит ее в поле со списком, это будет происходить каждый раз, когда лист активируется.

Option Explicit
Private Sub Worksheet_Activate()

Dim rng As Range
Dim i As Long
Dim LastRow As Long

Me.ComboBox1.Clear

With Sheets("Application")

LastRow = .Cells(Rows.Count, "A").End(xlUp).Row

For i = 2 To LastRow

If .Cells(i, 1) <> vbNullString Then

If Cells(i, 1).Interior.Color = 12611584 Then
Me.ComboBox1.AddItem Cells(i, 1)
End If

End If

Next

End With

End Sub