Показать/Скрыть ряд на Диаграмме

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Показать/Скрыть ряд на Диаграмме (Макросы/Sub)

Vostok

Дата: Вторник, 10.02.2015, 14:34 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 211

Репутация: 1 ±

Замечаний: 40% ±

Excel 2010

Необходимо показать-скрыть ряд на Диаграмме с помощью чек-бокса.
Имеем таблицу данных с нужным столбцом:

Для этого столбца, данные которого нанесены на Диаграмме, делаем на листе с Диаграммой чек-бокс:

Хотелось бы при наличии галочки в чек-боксе Ряд показывать, а при отсутствии галочки в чек-боксе - Ряд скрывать.
Попробовал такие варианты:

где
Currency_USD_CAD_Spot - Глобальное имя Диапазона всей таблицы данных. Иными словами взял столбец № 7 из этой таблицы и хотел скрыть/показать на листе самой таблицы. Код подсмотрел у Уокенбаха, но имя диапазона таблицы то у меня Глобальное, и ActiveSheet. наверное и не нужен в коде. Не могу сообразить. Не хватает знаний мат.части. Help кто может!

"Посылая кого-то в Google, Помните, завтра туда могут Послать Вас !"

Ответить

Vostok

Дата: Вторник, 10.02.2015, 15:48 | Сообщение № 2

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 211

Репутация: 1 ±

Замечаний: 40% ±

Excel 2010

Ну вот, одно решение нашёл.
[vba]

Код

Private Sub CheckBox1_Click()
Range("A3").Font.Color = RGB(255, 255, 255)
If Range("A3") = True Then
     [Currency_USD_CAD_Spot].Columns(7).Hidden = True
     Range("A3") = False
Else
     [Currency_USD_CAD_Spot].Columns(7).Hidden = False
     Range("A3") = True
End If
End Sub

[/vba] Но что-то оно мне как-то не очень нравится. Приходится записывать в ячейку листа либо True либо False, в зависимости от включение-отключения Ряда. Может кто ещё вариант найдёт, пооптимальнее.

"Посылая кого-то в Google, Помните, завтра туда могут Послать Вас !"

Сообщение отредактировал Vostok - Вторник, 10.02.2015, 15:49

Ответить

Leanna

Дата: Вторник, 10.02.2015, 15:54 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 189

Репутация: 78 ±

Замечаний: 0% ±

excel 2010

а если сразу считыать значение checkbox?
[vba]

Код

Private Sub CheckBox1_Click()
Range("A3").Font.Color = RGB(255, 255, 255)
If CheckBox1.Value = True Then
[Currency_USD_CAD_Spot].Columns(7).Hidden = True
Else
[Currency_USD_CAD_Spot].Columns(7).Hidden = False
End If
End Sub

[/vba]
или
[vba]

Код

Private Sub CheckBox1_Click()
Range("A3").Font.Color = RGB(255, 255, 255)
[Currency_USD_CAD_Spot].Columns(7).Hidden = CheckBox1.Value
End Sub

[/vba]

Лучше день потерять, потом за пять минут долететь!

Сообщение отредактировал Leanna - Вторник, 10.02.2015, 15:56

Ответить

_Boroda_

Дата: Вторник, 10.02.2015, 15:57 | Сообщение № 4

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16675

Репутация: 6481 ±

Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS

Ну тогда уж
[vba]

Код

Private Sub CheckBox1_Click()
Range("A3").Font.Color = RGB(255, 255, 255)
[Currency_USD_CAD_Spot].Columns(7).Hidden=CheckBox1.Value
End Sub

[/vba]
и без всяких ифов
Но это все тот же вариант, просто иначе записан

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

Vostok

Дата: Среда, 11.02.2015, 04:34 | Сообщение № 5

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 211

Репутация: 1 ±

Замечаний: 40% ±

Excel 2010

Цитата _Boroda_, 10.02.2015 в 15:53, в сообщении № 3

Варианты-то есть, да вот только времени на рисование данных, диаграммы и чекбокса жалко.

Да это и не нужно. У меня же уже всё нарисовано, и Диаграммы, и чек-боксы. Мне Идея была нужна, так сказать - Направление действий.
Вот такое, например:

Цитата Leanna, 10.02.2015 в 15:54, в сообщении № 4

а если сразу считыать значение checkbox?

Это всё что мне было нужно. Хорошее решение. В приведённом то мною примере (от Уокенбаха) всё несколько сложновато и почему то не работает, хотя при первом запуске всё-таки работало. Всем Thanks за Идеи.

"Посылая кого-то в Google, Помните, завтра туда могут Послать Вас !"

Сообщение отредактировал Vostok - Среда, 11.02.2015, 04:44

Ответить

Vostok

Дата: Среда, 11.02.2015, 06:36 | Сообщение № 6

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 211

Репутация: 1 ±

Замечаний: 40% ±

Excel 2010

Результат изысканий:
[vba]

Код

Private Sub CheckBox1_Click()
[Currency_USD_CAD_Spot].Columns(7).Hidden = Not CheckBox1.Value
End Sub

[/vba]
Наличие галочки в CheckBox - True - Ряд отображать.
Отсутствие галочки в CheckBox - False - Ряд не отображать.

"Посылая кого-то в Google, Помните, завтра туда могут Послать Вас !"

Сообщение отредактировал Vostok - Среда, 11.02.2015, 06:39

Ответить

_Boroda_

Дата: Среда, 11.02.2015, 07:45 | Сообщение № 7

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16675

Репутация: 6481 ±

Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS

Ну, скрывать столбцы - это не всегда такая уж хорошая идея.

А другую чтобы показать - нужно на реальном файле макрос писать. Хотя бы на простеньком. А Вы его не предоставили. Поэтому и получили только правку своего же кода.
А все почему? А потому, что Вам лениво файлик нарисовать.

Ответить

Vostok

Дата: Среда, 11.02.2015, 08:02 | Сообщение № 8

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 211

Репутация: 1 ±

Замечаний: 40% ±

Excel 2010

Тут другой вопрос возник в ходе этой же темы. Хочу циклом поставить у чек-боксов листа всем True и не получается подставить цифру через переменную в имя CheckBox:
[vba]

Код

With Worksheets("Черновик")
'For i=1 To 3
.CheckBox1.Value = True
.CheckBox2.Value = True
.CheckBox3.Value = True
'Next i
End With

[/vba]
[moder]Вы доиграетесь скоро. Влеплю по замечанию на каждое прошедшее нарушение - как раз 100% наберется.
Какое отношение этот вопрос имеет к теме " Показать/Скрыть ряд на Диаграмме"?
Тема закрыта. Нарушение п.5q Правил форума.
* Жаль, что вариант(ов?) Бороды в этой теме уже не будет.

"Посылая кого-то в Google, Помните, завтра туда могут Послать Вас !"

Сообщение отредактировал Vostok - Среда, 11.02.2015, 08:18

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Показать/Скрыть ряд на Диаграмме (Макросы/Sub)

Страница 1 из 1
1