Как передать переменной имя существующего контрола

@AndreA SN · Регистрация: 26.08.2011

Author24 — интернет-сервис помощи студентам

собственно в теме весь вопрос и изложил
есть переменная

Visual Basic

1	Dim ctl As Control

есть список контролов в массиве в строковом формате

Visual Basic

    M(0, 0) = "OptionButton1"
    M(0, 1) = "OptionButton3"
    M(0, 2) = "OptionButton5"
    M(0, 3) = "OptionButton7"
    M(0, 4) = "OptionButton9"
    M(0, 5) = "OptionButton11"

Нужно последовательно присваивать имена контролов переменной, чтобы можно было эти контролы потом мучить
как правильно осуществить присваивание?

Добавлено через 6 минут

Visual Basic

Private Sub RevisionData()
    On Error GoTo ErrorHandler
    Dim ctl As Control
    Dim ctl2 As Control
    
    For i = 0 To UBound(M, 2)
        If M(0, i) <> Empty And M2(0, i) <> Empty Then
            
            If M(1, i) <> M2(1, i) And M(1, i) <> "" And M2(1, i) <> "" Then
                Set ctl = M(0, i) ' НЕ РАБОТАЕТ
                Set ctl2 = M2(0, i) ' НЕ РАБОТАЕТ
                ctl.Caption = M(1, i)
                ctl2.Caption = M2(1, i)
            End If
        End If
    Next i
    Exit Sub
ErrorHandler:
    MsgBox "ОШИБКА СВЕРКИ", vbExclamation + vbOKOnly
End Sub

@Казанский · 27.06.2012, 17:35

А где контролы? Если на форме, то

Visual Basic

1	Set ctl = controls(M(0, i))

Если на листе, то

Visual Basic

1	Set ctl = activesheet.oleobjects(M(0, i)).object

@AndreA SN · 27.06.2012, 17:51 **[ТС]**

на форме всё. на форме 100 опционов расположено: две группы по 50 штук
видимыми становятся только те, в которых caption не совпадает.
Достаточно эффективное средство принятия решения при количестве числовых данных - дофигищща
Казанский, как всегда выручил. Благодарю тебя)))

@AndreA SN 1018 / 122 / 2 Регистрация: 26.08.2011 Сообщений: 1,155 Записей в блоге: 2
	27.06.2012, 17:51 [ТС]	3
	на форме всё. на форме 100 опционов расположено: две группы по 50 штук видимыми становятся только те, в которых caption не совпадает. Достаточно эффективное средство принятия решения при количестве числовых данных - дофигищща Казанский, как всегда выручил. Благодарю тебя))) 0

Опции темы