根据相应的单元格禁用特定的用户表单

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