Переименование OLEObjects

[viter.alex]

Я так понял, что у вас на эти комбобоксы прописаны события. Естественно, после изменения имени комбобокса, они работать не будут.

[Fierce]

EducatedFool, пишет, что все успешно переименовано. Но проблема в том, что если добавить процедуру, например:

Private Sub ComboBox1_1_Change()
Cells(1, 1) = 123
End Sub

Она не срабатывает. Я меняю значение на левом нижнем комбобоксе и ничего не происходит, хотя комбобокс по идее переименован из "ComboBox1_5" в "ComboBox1_1".
Да и в свойствах Name так и остаеться "ComboBox1_5", вот скрин

[Fierce]

viter.alex Если сделать так

Private Sub Button_Click()
Dim iObject As OLEObject
For Each iObject In Me.OLEObjects
    If iObject.Name Like "*" & 1 Then
        iObject.Delete
    End If
Next
Call ppp
End Sub

Sub ppp()
For Each iObject In Me.OLEObjects
    If iObject.Name Like "*" & 5 Then
        iObject.Name = Left(iObject.Name, Len(iObject.Name) - 1) & 1
    End If
Next
End Sub

То на четырех комбобоксах события срабатывают, а на пятом нет

[viter.alex]

EducatedFool, сдается мне, что без класса здесь не обойтись.
Fierce, а зачем их переименовывать?

[Fierce]

viter.alex Для каждого объекта прописан код. i и j - переменные Пусть объекты А - объекты, имя которых заканчиваеться на i, B - объекты, имя которых заканчиваеться на j
Хочу сделать, чтобы удалялась строка объектов "А", а объектам "В" присваивался код объектов "А"
Вот такой алгоритм я придумал:
1. Удаляеться строка объектов "А"
2. Удаляеться код объектов "В"
3. Переименовываем имена объектов "В" в имена объектов "А"
Все получаеться, кроме 3 пункта.

Может задежку поставить перед 3 пунктом? Вызвать процедуру через определенное время можно с помощью Application.OnTime, только как этой процедуре передать аргументы?

[EducatedFool]

Сообщение от viter.alex

EducatedFool, сдается мне, что без класса здесь не обойтись.

Да ну их нафиг, эти классы... долго их писать, однако
Хотя, конечно, это было бы правильнее.
Наверняка задачу можно решить намного проще (правда, я представления не имею, чего пытается добиться ТС при помощи этих комбобоксов)

Сообщение от Fierce

Вот такой алгоритм я придумал:
1. Удаляеться строка объектов "А"
2. Удаляеться код объектов "В"
3. Переименовываем имена объектов "В" в имена объектов "А"

Может, не надо ничего удалять?
А что если перемещать комбобоксы? (это вроде проще...)

К примеру, по какому-нибудь событию ВСЕ комбобоксы сдвигаются на пару сантиметров вверх, а верхний ряд комбобоксов спускается в нижнюю строку...
При желании отдельные комбобоксы можно скрыть (путем установки ширины и высоты в 0), и т.д.

И, вообще, зачем всё усложнять?
Зачем все эти комбобоксы? Чем Вас ячейки не устраивают?
В них тоже можно формировать выпадающие списки, да и работать с ними намного удобнее...

[Fierce]

Я наверное действительно все сильно усложнил. Ладно, если ничего с переименовкой не придумаю, заменю комбобоксы ячейками с выпадающими списками.
Всем, кто помогал, большое спасибо

[Fierce]

Проблема с переименовкой решена с помощью задержки на 1 сек.

Private Sub Button_Click()

Dim iObject As OLEObject
For Each iObject In Worksheets(1).OLEObjects
    If Right(iObject.Name, 1) = 1 Then
        iObject.Delete
    End If
Next
Application.OnTime Now + TimeValue("00:00:01"), "ppp"
End Sub

Sub ppp()
For Each iObject In Worksheets(1).OLEObjects
    If Right(iObject.Name, 1) = 5 Then
        iObject.Name = Left(iObject.Name, Len(iObject.Name) - 1) & 1
    End If
Next
End Sub