VBA зависимые списки WORD

[knuklus]

Здравствуйте, нужна помощь в решении проблемы.

В приложенном файле я набрасал списки

Я прошу связать хотя бы одно значение, на пример:

Шаг1: "Оборудование", выбираем: модем

теперь в следующем списке должны остаться только модели модемов (Acorp ADSL LAN110, ZTE ZXDSL 931WII)


Шаг2: "Модель", выбираем: Acorp ADSL LAN110

и в ниже где чекбоксы комплектация должны остаться:
Модем
Сетевой кабель RJ45
Сетевой кабель RJ11
Адаптер питания

(прикрепил вордовский документ)

[Aleksandr H.]

step1

Private Sub model_DropButtonClick()
    Dim ar As Variant
    Dim типОборудования As String, md As String
    Dim i As Integer
    ar = Array(Array("Acorp ADSL LAN110", "модем"), Array("Интеркросс ICxDSL 5633 E", "модем"), Array("Ростелеком F@st 1704", "модем"), _
                Array("Ростелеком F@st 1744", "модем"), Array("Ростелеком F@st 2804", "модем"), Array("Ростелеком VDSL", "модем"), _
                Array("Ростелеком ADSL", "модем"), Array("Ростелеком QBR-1041WU", "модем"), Array("DOMOLINK_FREEPORT", "не модем"), _
                Array("ZTE ZXDSL 931WII", "не модем"), Array("Zyxel KEENETIC LITE", "не модем"), Array("Zyxel P660HN LITE EE", "не модем"), _
                Array("Zyxel P660HT3 EE", "не модем"), Array("Промсвязь HD mini", "не модем"), Array("Infomir MAG 250 micro", "не модем"), _
                Array("Infomir RT STB HD 1.11-BD 27", "не модем"), Array("Motorola VIP 1003G", "не модем"), Array("Motorola VIP 1963G", "Ресивер"), _
                Array("Smartlabs SML-282 HD Base", "Ресивер"), Array("Smartlabs SML-482", "Ресивер"), Array("Zyxel STB 1001S rev.1", "Ресивер"), _
                Array("Zyxel STB 1001S rev.2", "Ресивер"), Array("Yuxing YX-6916A", "Ресивер"), Array("D-link 320", "Ресивер"), _
                Array("D-link 620", "Ресивер"), Array("Linksys SPA2102", "Ресивер"))
типОборудования = UCase(hardware.Value)
model.Clear
For i = LBound(ar) To UBound(ar)
    md = ar(i)(1)
    If UCase(ar(i)(1)) = типОборудования Then model.AddItem ar(i)(0)
 Next
End Sub

[knuklus]

и куда его вставить?
Аленксандр можешь кинуть сам документ в ответку?

[Aleksandr H.]

Сообщение от knuklus

В приложенном файле я набрасал списки

Сообщение от knuklus

и куда его вставить?

походу не ты "набрасывал списки".

[knuklus]

Спасибо за проделанную работу.
Суть понятна, я уже связал списки.

немного не корректных 2 момента:

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

2. чекбоксы можно сделать по умолчанию скрытыми, то есть. что бы после выбора нужной модели отображались только нужные чекбоксы?

p.s. если есть скайп, помоги доделать, твоя помощь не за "спасибо". Мой скайп такой же как и ник

[Aleksandr H.]

1. вынести формирование списка в отдельную процедуру
2. можно. только будут отображаться в порядке как есть. Те если нужно отображать только Кабель ХДМІ то он будет отображаться как сейчас, а не на месте чекбокса "Роутер"

[knuklus]

Еще серийник заносится сканером в поле серийного номера, можно реализовать возможность, что бы если раскладка стоит на РУС, атоматически переключалась на en?

[Ципихович Эндрю]

ничего себе Вы на Ворд что вешаете
а что это даёт, я понмаю, что сканер сканировал, то и положит в поле по аналогии как скопировал, разве от раскладки что-то изменится?