Создать массив из значений, соответствующих галочкам на форме

@Golgitab · Регистрация: 22.10.2012

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

Visual Basic
1
2
ActiveSheet.Range("$A$4:$C$10147").AutoFilter Field:=2, Criteria1:=Array( _
        "1", "2", "3", "4"), Operator:=xlFilterValues

Имеется данный код. Нужно, чтобы в

Visual Basic
1
Criteria1:=

был массив собранный из формы методом постановки галочек

Visual Basic
1
(checkbox)

. Не могу понять, каким образом нужно создавать массив.
Как добавить элемент в массив, например цифру "1" по клику на

Visual Basic
1
checkbox

??

@Golgitab · 08.11.2012, 09:00 **[ТС]**

1. Пользователь кликает на чекбоксы, которые добавляют в общий массив соответствующую чексбосу цифру.
2. Если пользователь снимает галочку, то та цифра которая добавилась, должна удалятся.
3. После собранный массив подставляется в критерий для сортировки данных.(см. рис. выше)

Скрипт · 08.11.2012, 09:19

Golgitab, выложенная форма работает так:

пользователь выбирает нужные CheckBoxы;
нажимает кнопку и формируется массив, содержащий номера выбранных CheckBoxов.

Условия выполнения кода:
у CheckBoxов должны быть одинаковые имена; имена должны отличаться только порядковыми номерами в конце.

@Golgitab · 08.11.2012, 09:45 **[ТС]**

Скрипт,

Visual Basic
1
2
ActiveSheet.Range("$A$4:$C$10147").AutoFilter Field:=2, Criteria1:= _
        lArray(), Operator:=xlFilterValues

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

Visual Basic
1
2
ActiveSheet.Range("$A$4:$C$10147").AutoFilter Field:=2, Criteria1:= _
        Array("1","2","4"), Operator:=xlFilterValues

То отфильтрует по 1, 2 и 4 параметрам..
ошибку не выдает никакую

Скрипт · 08.11.2012, 09:58

Golgitab, для массива нужно сделать тип данных String:

Visual Basic
1
Dim sArray() As String

@Golgitab · 08.11.2012, 10:01 **[ТС]**

Скрипт, спасибо большое, что помогли мне разобраться! Все работает теперь как надо.

Новые блоги и статьи Все статьи Все блоги /
GitHub Copilot в JetBrains: модель по умолчанию, Fix и контроль MCP and_y87 12.10.2026 10 октября 2026 года GitHub обновил Copilot для JetBrains: добавил настройки стартовой модели, исправления из диагностики и управление автозапуском MCP. Поддержка IDE 2025. 1 прекращена — требуется. . .	День 5 из 28: Codex подсказывает следующий запрос and_y87 12.10.2026 9 октября 2026 года OpenAI запустила бету Composer predictions — подсказок следующего сообщения в текущем диалоге Codex. Это помощь с формулировкой запроса, а не автоматическое продолжение задачи. . . .	Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .
Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .

@Golgitab 2 / 2 / 1 Регистрация: 22.10.2012 Сообщений: 34
	08.11.2012, 10:01 [ТС]
	Скрипт, спасибо большое, что помогли мне разобраться! Все работает теперь как надо. 0