Массив из CheckBox - Microsoft Office Excel

julius · 09.07.2013, 11:14

Добрый день.

Есть лист Excel на котором находятся 20 CheckBox (CheckBox1...CheckBox20)

Хочу загнать их все в один массив для дальнейшей обработки, на сходу получаю ошибку:

Dim CHBX(1 To 20) As Object

CHBX(1) = Sheets("Лист1").CheckBox1
CHBX(2) = Sheets("Лист1").CheckBox2
CHBX(3) = Sheets("Лист1").CheckBox3
CHBX(4) = Sheets("Лист1").CheckBox4
................................... .................

Пытался писать без просто Sheets("Лист1"), и с использованием activesheet, и вместо as object вставлял OleObject и checkbox - ничего не помагает.

Подскажите, пожалуйста, кто знает.

slan · 09.07.2013, 11:49

с обектными переменными используется оператор set

julius · 09.07.2013, 11:54

Если имеется в виду

Set CHBX(1) = Sheets("Лист1").CheckBox1

то тоже не работает

slan · 09.07.2013, 13:19

а у меня работает..

значит что-то вы там не то написали, а файл выкладывать не хотите

DiemonStar · 09.07.2013, 15:35

Цитата:

а у меня работает..

истинно так.

Цитата:

на сходу получаю ошибку:

Какую ошибку? Они, как-бы, разные бывают...

julius · 09.07.2013, 17:09

Ошибка subscribe out of range

Но я протестировал код в новом файле, то через Set работает.
Видимо что то накрутил в предыдущем файле.
Спасибо.

09.07.2013, 11:14	#1
julius Пользователь Регистрация: 22.11.2009 Сообщений: 25	Массив из CheckBox Добрый день. Есть лист Excel на котором находятся 20 CheckBox (CheckBox1...CheckBox20) Хочу загнать их все в один массив для дальнейшей обработки, на сходу получаю ошибку: Dim CHBX(1 To 20) As Object CHBX(1) = Sheets("Лист1").CheckBox1 CHBX(2) = Sheets("Лист1").CheckBox2 CHBX(3) = Sheets("Лист1").CheckBox3 CHBX(4) = Sheets("Лист1").CheckBox4 ................................... ................. Пытался писать без просто Sheets("Лист1"), и с использованием activesheet, и вместо as object вставлял OleObject и checkbox - ничего не помагает. Подскажите, пожалуйста, кто знает.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
CheckBox	Анечка1	Компоненты Delphi	4	12.05.2014 11:28
Как выполнить функцию в случае нажатия на CheckBox, если данный CheckBox был добавлен через код?	PAMAC	Microsoft Office Excel	7	21.02.2013 15:33
двухмерный массив Checkbox-ов	ruffiӔn	Компоненты Delphi	1	15.03.2009 21:05
CheckBox	zzzzz	Компоненты Delphi	6	22.07.2008 12:35

09.07.2013, 11:49	#2
slan Форумчанин Регистрация: 30.01.2008 Сообщений: 314	с обектными переменными используется оператор set

09.07.2013, 11:54	#3
julius Пользователь Регистрация: 22.11.2009 Сообщений: 25	Если имеется в виду Set CHBX(1) = Sheets("Лист1").CheckBox1 то тоже не работает

09.07.2013, 13:19	#4
slan Форумчанин Регистрация: 30.01.2008 Сообщений: 314	а у меня работает.. значит что-то вы там не то написали, а файл выкладывать не хотите

09.07.2013, 17:09	#6
julius Пользователь Регистрация: 22.11.2009 Сообщений: 25	Ошибка subscribe out of range Но я протестировал код в новом файле, то через Set работает. Видимо что то накрутил в предыдущем файле. Спасибо.