Страницы: 1
RSS
Полное имя компонента ActiveX, другими словами путь к компоненту
 
Здравствуйте, я пишу очень нужную программу в Excel. У меня есть 23 ComboBox, имя у них проиндексировано(сырье№1, сырье№2.....). По аналогии с ячейками путь к ней может быть просто Лист1.cells(5,4) или расписан workbook("книга1").sheets("Лист1").cells(5,4), подскажите, как будет выглядить путь к combobox!!! Польхуюсь MS Office 2007
 
{quote}{login=NickolaDed}{date=25.08.2010 03:36}{thema=Полное имя компонента ActiveX, другими словами путь к компоненту}{post}Здравствуйте, я пишу очень нужную программу в Excel. У меня есть 23 ComboBox, имя у них проиндексировано(сырье№1, сырье№2.....). По аналогии с ячейками путь к ней может быть просто Лист1.cells(5,4) или расписан workbook("книга1").sheets("Лист1").cells(5,4), подскажите, как будет выглядить путь к combobox!!! Польхуюсь MS Office 2007{/post}{/quote}  
Уточню, я в курсе что можно сделать так Sheets("Лист1").Сырье№1.Enable=true  
Однако мне необходимо оформить в таком виде Sheets("Лист1").БлаБлаБла("сырье№1").Enable=true, это необходимо, чтобы организавать цикл по combobox!!!
 
Люди, Человеки помогите!!! Делопроизводство стоит из за этого!!!
 
Слишком много слов, а смысла - мало.  
3 раза перечитал - ничего не понял...  
 
Будет пример файла с ВНЯТНЫМ объяснением проблемы - будут шансы на помощь.
 
Есть 23 combobox, их имена соответственно сырье№1, сырье№2 и т.д.  
У меня стоит задача организовать цикл по combobox например так  
 
For R=1 to 23  
  Sheets("Лист1").БлаБлаБла("сырье№"+R).Enabled=False  
Next R  
 
Для этого мне необходимо что за БлаБлаБла надо писать в коде!!!
 
Sub test1()  
   Dim combo As ComboBox  
   For R = 1 To 23  
       Set combo = Sheets(1).Shapes("сырье№" & R).OLEFormat.Object.Object  
       combo.Enabled = True  
   Next R  
End Sub  
 
 
Sub test2()  
   For R = 1 To 23  
       Sheets(1).Shapes("сырье№" & R).OLEFormat.Object.Object.Enabled = False  
   Next R  
End Sub
 
Огромное спасибо!!!
Страницы: 1
Читают тему
Наверх
Loading...