Как обратиться к элементам управления на рабочем листе?

Пользователь

Сообщений: 12 Регистрация: 01.01.1970

11.11.2010 19:26:00

Вобщем, пишу процедуру которая будет проверять, заполнены ли все Combobox на рабочем листе.

(1) Function Correct() As Boolean
(2) Dim pol As MSForms.Control
(3) Correct = True
(4) For Each pol In ActiveSheet.Controls
(5) If TypeOf pol Is MSForms.Combobox and pol.Value = Empty Then
(6) Correct = False
(7) End If
(8) Next
(9) End Function

В строке 4 выдает: Object doesn't support this property or method (Error 438)

Вместо ActiveSheet.controls пытался вводить Worksheets("Имя листа").controls, Sheets("Имя листа").controls - ниче не помогает.
Как обратиться к ЭУ на рабочем листе?

EducatedFool Пользователь Сообщений: 3695 Регистрация: 23.12.2012	#2 11.11.2010 20:01:03 Function Correct() As Boolean Correct = True For Each pol In ActiveSheet.OLEObjects If TypeOf pol.Object Is MSForms.ComboBox Then Correct = Correct And Len(pol.Object.Value) End If Next End Function Sub test() Debug.Print Correct End Sub Надстройки для Excel Парсинг сайтов Мониторинг цен конкурентов

Guest

Гость

11.11.2010 21:22:23

{quote}{login=EducatedFool}{date=11.11.2010 08:01}{thema=}{post}Function Correct() As Boolean
Correct = True
For Each pol In ActiveSheet.OLEObjects
If TypeOf pol.Object Is MSForms.ComboBox Then
Correct = Correct And Len(pol.Object.Value)
End If
Next
End Function

Sub test()
Debug.Print Correct
End Sub{/post}{/quote}

С таким решением как
{quote} Correct = Correct And Len(pol.Object.Value){/quote}
при работе с переменной Boolean я еще не сталкивался. Ну и то, что ошибок вылазить не будет, если объект попадется не ComboBox, тоже понял. Спасибо!

Alex_ST Пользователь Сообщений: 2774 Регистрация: 22.12.2012 На лицо ужасный, добрый внутри	#4 12.11.2010 09:31:23 А чо собсно удивляться то? Ведь ответил сам Йодо - учитель Джедаев! У него ещё не таким приёмам научиться можно... :-) С уважением, Алексей (ИМХО: Excel-2003 - THE BEST!!!)

Юрий М

Модератор

Сообщений: 61089 Регистрация: 14.09.2012

Контакты см. в профиле

12.11.2010 10:45:30

{quote}{login=vatras}{date=11.11.2010 07:26}{thema= заполнены ли все Combobox на рабочем листе.{/post}{/quote}
Да - простой цикл перебора контролов на листе с проверкой типа контрола: как только встречаем пустой ComboBox - выводим сообщение и выходим из процедуры.

fedomax Пользователь Сообщений: 62 Регистрация: 01.01.1970	#6 12.11.2010 11:48:56 Worksheets().Controls("ComboBox" + CStr(i))

Читают тему