Пользовательский выпадающий список, где я могу добавлять или удалять элементы на основе цветовой кодировки ячейки

Question

Я пытаюсь закодировать ComboBox в пользовательской форме, которая берет его элементы из существующего списка.В списке есть цветные ячейки красного и зеленого цветов, я хотел бы добавлять и удалять элементы из ComboBox на основе цветовой кодировки, красный означает, что он появляется в списке, а зеленый означает, что он не появится.Пока я не нашел никаких решений для этого.

Буду признателен за вашу помощь

Answer 1

Предположим, что у нас есть:

• Форма пользователя с именем frmTest

• Поле со списком cmbTest

  Option Explicit
  
  Private Sub UserForm_Initialize()
  
      Dim Lastrow As Long, i As Long
  
      With ThisWorkbook.Worksheets("Sheet1")
  
          Lastrow = .Cells(.Rows.Count, "A").End(xlUp).Row
  
          frmTest.cmbTest.Clear
  
          For i = 1 To Lastrow
              If .Range("A" & i).Interior.Color = 255 Then
  
                  With frmTest.cmbTest
                      .AddItem (Sheet1.Range("A" & i))
                  End With
  
              End If
  
          Next i
  
      End With
  
  End Sub
  

Answer 2

Скажем, вы хотите проверить столбец C (столбец = 3):

Dim i as integer

For i = 1 to 50 'row 1 to 50
    If Cells(i,3).Interior.Color = RGB(insert RGB of red color) Then 'So if the statement is true, we want to add the cell's contents to the ComboBox.

        YourSheetName.YourComboBoxName.AddItem Cells(i,2).Value 'Add cell contents to the ComboBox

    End If
Next i

Я полагаю, что это должно сработать.