Отключение определенных пользовательских форм на основе соответствующих ячеек

Question

У меня есть группа ячеек, A1:A5, каждая из которых имеет соответствующую форму пользователя combobox, combobox1-5.Если какая-либо из этих ячеек пуста, мне нужно отключить их комбинированный список.Я уверен, что мог бы сделать это с чем-то вроде:

Dim count As Integer
count = 0
    Do Until count = 4
        If Cells(1 + count, "A").Value = "" Then
            Select Case count
                Case 0
                    combobox1.disable
                Case 1
                    combobox2.disable
                Case 2
                    combobox3.disable
                Case 3
                    combobox4.disable
                Case 4
                    combobox5.disable
            End Select
        End If
        count = count + 1
    Loop

.. но похоже, что должен быть лучший способ сделать это.

Answer 1

Вы можете использовать цикл:

Dim n As Integer

for n = 1 to 5
    Me.controls("combobox" & n).Enabled = (ActiveSheet.Cells(n, "A").Value <> "")
next