Автоматическое изменение количества чек боксов на форме

@Pilot1245 · Регистрация: 11.09.2010

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

Здравствуйте! Подскажите пожалуйста как в VBA EXCEL организовать Автоматическое изменение количества чек-боксов на форме в зависимости от условий например:
есть динамический массив масс(K) as string K-постоянно изменяется нужно поместить на форму K чек-боксов и назвать их значениями масс(K)?
Заранее благодарен!

@petr-sev · 01.10.2010, 10:37

Visual Basic

Dim I As Long
Dim Tmp As Object
 
For I = Me.Controls.Count - 1 To 0 Step -1 'удаление чекбоксов, созданных в прошлый раз
    If Left(Me.Controls.Item(I).Name, 10) = "myCheckBox" Then Me.Controls(I).Item(I).Remove
Next
For I = 1 To K
    Set Tmp = Me.Controls.Add("Forms.CheckBox.1", "myCheckBox" & Str(I), True)   'добавить чекбокс
    Tmp.Left = 10   'определить его положение
    Tmp.Top = 10 * K
    Tmp.Caption = "мой чекбокс" & Str(I) 'определить его подпись
    Set Tmp = Nothing
Next

@Pilot1245 · 01.10.2010, 13:55 **[ТС]**

спасибо большое!

Добавлено через 1 час 35 минут
petr-sev, что-то только один чек-бокс рисует?

Добавлено через 22 минуты
что-то только один чек-бокс рисует и созданные не удаляет

@petr-sev · 01.10.2010, 17:24

извини, не было времени отладить код
один чекбокс потому, что они выводятся в одни и те же координаты и приваливают друг друга
а при удалении неправильно используется метод Remove
счас все работает:

Visual Basic

Dim I As Long
Dim Tmp As Object
 
For I = Me.Controls.Count - 1 To 0 Step -1 'удаление чекбоксов, созданных в прошлый раз
    If Left(Me.Controls.Item(I).Name, 10) = "myCheckBox" Then Me.Controls.Remove I
Next
For I = 1 To K
    Set Tmp = Me.Controls.Add("Forms.CheckBox.1", "myCheckBox" & Str(I), True)   'добавить чекбокс
    Tmp.Left = 10   'определить его положение
    Tmp.Top = 15 * I
    Tmp.Caption = "мой чекбокс" & Str(I) 'определить его подпись
    Set Tmp = Nothing
Next

@Pilot1245 · 02.10.2010, 14:26 **[ТС]**

огромное спасибо!

Добавлено через 20 часов 59 минут
petr-sev, Привет! Извиняюсь за беспокойство, вчера здорово мне помог. НО:

Dim I As Long
Dim Tmp As Object

For I = Me.Controls.Count - 1 To 0 Step -1 'удаление чекбоксов, созданных в прошлый раз
If Left(Me.Controls.Item(I).Name, 10) = "myCheckBox" Then Me.Controls.Remove I
Next
For I = 1 To K
Set Tmp = Me.Controls.Add("Forms.CheckBox.1", "myCheckBox" & Str(I), True) 'добавить чекбокс
Tmp.Left = 10 'определить его положение
Tmp.Top = 15 * I
Tmp.Caption = "мой чекбокс" & Str(I) 'определить его подпись
Set Tmp = Nothing
Next
если вместо чекбокса создавать OptionButton, как с ними потом работать если нужно присвоить переменной строка=Tmp.Caption в зависимости от того какой из переключателей включен (я их уже объеденил в группу)
Заранее благодарен!

@Pilot1245 2 / 2 / 0 Регистрация: 11.09.2010 Сообщений: 38
		1
	Автоматическое изменение количества чек боксов на форме 01.10.2010, 06:37. Показов 1748. Ответов 4 Метки нет (Все метки) Здравствуйте! Подскажите пожалуйста как в VBA EXCEL организовать Автоматическое изменение количества чек-боксов на форме в зависимости от условий например: есть динамический массив масс(K) as string K-постоянно изменяется нужно поместить на форму K чек-боксов и назвать их значениями масс(K)? Заранее благодарен! 0

@Pilot1245 2 / 2 / 0 Регистрация: 11.09.2010 Сообщений: 38
	01.10.2010, 13:55 [ТС]	3
	спасибо большое! Добавлено через 1 час 35 минут petr-sev, что-то только один чек-бокс рисует? Добавлено через 22 минуты что-то только один чек-бокс рисует и созданные не удаляет 0

@Pilot1245 2 / 2 / 0 Регистрация: 11.09.2010 Сообщений: 38
	02.10.2010, 14:26 [ТС]	5
	огромное спасибо! Добавлено через 20 часов 59 минут petr-sev, Привет! Извиняюсь за беспокойство, вчера здорово мне помог. НО: Dim I As Long Dim Tmp As Object For I = Me.Controls.Count - 1 To 0 Step -1 'удаление чекбоксов, созданных в прошлый раз If Left(Me.Controls.Item(I).Name, 10) = "myCheckBox" Then Me.Controls.Remove I Next For I = 1 To K Set Tmp = Me.Controls.Add("Forms.CheckBox.1", "myCheckBox" & Str(I), True) 'добавить чекбокс Tmp.Left = 10 'определить его положение Tmp.Top = 15 * I Tmp.Caption = "мой чекбокс" & Str(I) 'определить его подпись Set Tmp = Nothing Next если вместо чекбокса создавать OptionButton, как с ними потом работать если нужно присвоить переменной строка=Tmp.Caption в зависимости от того какой из переключателей включен (я их уже объеденил в группу) Заранее благодарен! 0