Имеется n-нное кол-во ЧекБоксов, каждый отвечает за видимость Ряда на Графике. Для каждого приходится писать практически одинаковые макросы, где отличается только номер Ряда и номер CheckBox'а. Как можно объединить эти коды, чтобы не захламлять Модуль?
Имеется n-нное кол-во ЧекБоксов, каждый отвечает за видимость Ряда на Графике. Для каждого приходится писать практически одинаковые макросы, где отличается только номер Ряда и номер CheckBox'а. Как можно объединить эти коды, чтобы не захламлять Модуль?rever27
Sub CheckBoxes1_Click() Call commonCheckBox_Click(1, 4) End Sub Sub CheckBoxes2_Click() Call commonCheckBox_Click(2, 2) End Sub Sub CheckBoxes3_Click() Call commonCheckBox_Click(3, 3) End Sub
Sub commonCheckBox_Click(ryadNum As Integer, chkNum As Integer) Sheets("Диаграмма1").SeriesCollection(ryadNum).Format.Line.Visible = IIf(Sheets("Диаграмма1").CheckBoxes("Check Box " & chkNum).Value = 1, True, False) End Sub
[/vba]
Как-то так: [vba]
Код
Sub CheckBoxes1_Click() Call commonCheckBox_Click(1, 4) End Sub Sub CheckBoxes2_Click() Call commonCheckBox_Click(2, 2) End Sub Sub CheckBoxes3_Click() Call commonCheckBox_Click(3, 3) End Sub
Sub commonCheckBox_Click(ryadNum As Integer, chkNum As Integer) Sheets("Диаграмма1").SeriesCollection(ryadNum).Format.Line.Visible = IIf(Sheets("Диаграмма1").CheckBoxes("Check Box " & chkNum).Value = 1, True, False) End Sub
Gustav, Спасибо, уже приятнее смотрится. А можно как нибудь узнать номер(Index) CheckBox, которого нажали? Если бы он был известен, то через For цикл можно было бы подобрать к нему Ряд в одном макросе. Т.е. если номер Бокса 2, то и ряда 2, и т.д.
Gustav, Спасибо, уже приятнее смотрится. А можно как нибудь узнать номер(Index) CheckBox, которого нажали? Если бы он был известен, то через For цикл можно было бы подобрать к нему Ряд в одном макросе. Т.е. если номер Бокса 2, то и ряда 2, и т.д.rever27
Помогите. Есть таблица. Столбик статус с CheckBox'ами, при изменении CheckBox (вкл/выкл) изменяется надпись "Блокирован", "Работает" нужно что бы, после того как я поставлю галочку CheckBox в столбике "Дата блокировки" устанавливалась текущая дата (статическая), а после того как я уберу галочку CheckBox то ячейка в столбике "Дата блокировки" была пустой. Заранее спасибо [moder]Создавайте свою тему. Эта закрыта
Помогите. Есть таблица. Столбик статус с CheckBox'ами, при изменении CheckBox (вкл/выкл) изменяется надпись "Блокирован", "Работает" нужно что бы, после того как я поставлю галочку CheckBox в столбике "Дата блокировки" устанавливалась текущая дата (статическая), а после того как я уберу галочку CheckBox то ячейка в столбике "Дата блокировки" была пустой. Заранее спасибо [moder]Создавайте свою тему. Эта закрытаSPYhelP
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
