根据单元格颜色在组合框上添加项目

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