Добрый день, коллеги! Помогите, пжл, со следующим вопросом. Есть бюджет компании с несколькими юрлицами и проектами, которые включаются/отключаются с помощью флажков (элементы управления). Но при этом у меня отдельно включаются проекты и отдельно юрлица. Проблема: как сделать, чтобы при выборе одного из юрлиц, включались только проекты, которые к нему относятся. Например, если нажимаем галочку компания 1, то автоматически остаются галочки по проектам Лес и Пик. При этом еще чтобы оставалась возможность проекты отдельно щелкать. Файл с примером во вложении. Заранее спасибо! PS Компания 1: Лес и Пик Компания 2 - ФОК, Мероприятия, Офис
Извиняюсь, я, наверное, не совсем корректно написал в теме. Да, по юрлицам все ок, но при этом еще чтобы оставалась возможность проекты отдельно щелкать. При этом не обязательно, чтобы по юрлицам галки отключались.
тут нет экстрасенсов и никто не угадает КАК ОНО ДОЛЖНО работать, пока Вы не напишете КАК ОНО ДОЛЖНО работать (поправил чуть файл, не те №№ флажков написал в массивы в первом варианте)
Возникла проблема при переносе кода в рабочий файл: при нажатии на галки юрлиц ничего не происходит, но при этом при запуске непосредственно из кода все работает. В чем может быть проблема? Файл во вложении
Sub Флажок1_Щелчок()
ChangeFlag Array(3, 6), [a4]
End Sub
Sub Флажок2_Щелчок()
ChangeFlag Array(4, 7, 14), [a5]
End Sub
Sub ChangeFlag(a, v)
Dim i&
For i = 0 To UBound(a)
ActiveSheet.Shapes("Check Box " & a(i)).OLEFormat.Object.Value = v
Next
End Sub
скопировали в программый модуль Вашего файла
осталось связать обьекты находящиеся у Вас в файле с макросами, лежащими там же: правой кнопкой по Флажку Компания 1, назначить макрос, и выберите из списка Флажок1_Щелчок ... и по аналогии 2