Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Создание диаграмм и спарклайнов - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Создание диаграмм и спарклайнов (Макросы/Sub)
Создание диаграмм и спарклайнов
Oh_Nick Дата: Понедельник, 19.04.2021, 20:03 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 188
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Доброго времени суток!

Задача возникла следующая:

1) Есть форма, которая автоматически открывается при открытии файла. На этой форме есть два чека: спарклайны и диаграммы

Как сделать, чтобы при нажатии на спарклайны и кнопку Crate сделались спарклайны в ячейках C2:C13 (в зависимости от А2:B13)
Как сделать, чтобы при нажатии на диаграммы и кнопку Crate вывелась диаграмма на отдельный лист?

Заранее спасибо!
К сообщению приложен файл: 0288327.xlsm(23.9 Kb)
 
Ответить
СообщениеДоброго времени суток!

Задача возникла следующая:

1) Есть форма, которая автоматически открывается при открытии файла. На этой форме есть два чека: спарклайны и диаграммы

Как сделать, чтобы при нажатии на спарклайны и кнопку Crate сделались спарклайны в ячейках C2:C13 (в зависимости от А2:B13)
Как сделать, чтобы при нажатии на диаграммы и кнопку Crate вывелась диаграмма на отдельный лист?

Заранее спасибо!

Автор - Oh_Nick
Дата добавления - 19.04.2021 в 20:03
psih Дата: Вторник, 20.04.2021, 09:08 | Сообщение № 2
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

[vba]
Код
Private Sub CommandButton1_Click()
If CheckBox1 = True Then
    Range("$C$2").SparklineGroups.Add Type:=xlSparkLine, SourceData:="B2:B13"
End If
If CheckBox2 = True Then
    ActiveSheet.Shapes.AddChart2(201, xlColumnClustered).Select
    ActiveChart.SetSourceData Source:=Range("Данные!$A$1:$B$13")
    ActiveChart.Location Where:=xlLocationAsNewSheet
End If
End Sub
[/vba]
К сообщению приложен файл: 5260265.xlsm(22.3 Kb)
 
Ответить
Сообщение[vba]
Код
Private Sub CommandButton1_Click()
If CheckBox1 = True Then
    Range("$C$2").SparklineGroups.Add Type:=xlSparkLine, SourceData:="B2:B13"
End If
If CheckBox2 = True Then
    ActiveSheet.Shapes.AddChart2(201, xlColumnClustered).Select
    ActiveChart.SetSourceData Source:=Range("Данные!$A$1:$B$13")
    ActiveChart.Location Where:=xlLocationAsNewSheet
End If
End Sub
[/vba]

Автор - psih
Дата добавления - 20.04.2021 в 09:08
Oh_Nick Дата: Вторник, 20.04.2021, 10:26 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 188
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
psih, супер, но спарклайны добавляются только в C2. А как сделать. чтобы в массиве C2:C13?
 
Ответить
Сообщениеpsih, супер, но спарклайны добавляются только в C2. А как сделать. чтобы в массиве C2:C13?

Автор - Oh_Nick
Дата добавления - 20.04.2021 в 10:26
Oh_Nick Дата: Вторник, 20.04.2021, 10:44 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 188
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
китин, почему то debug...
К сообщению приложен файл: 6141039.xlsm(34.7 Kb)
 
Ответить
Сообщениекитин, почему то debug...

Автор - Oh_Nick
Дата добавления - 20.04.2021 в 10:44
psih Дата: Вторник, 20.04.2021, 10:46 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Я не совсем понял, что должно быть в остальном диапазоне С2:C13. Постройте там руками спарклайны и покажите, какие они там должны быть.
 
Ответить
СообщениеЯ не совсем понял, что должно быть в остальном диапазоне С2:C13. Постройте там руками спарклайны и покажите, какие они там должны быть.

Автор - psih
Дата добавления - 20.04.2021 в 10:46
Oh_Nick Дата: Вторник, 20.04.2021, 15:01 | Сообщение № 6
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 188
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
psih, все, я понял. все ок , спасибо!
 
Ответить
Сообщениеpsih, все, я понял. все ок , спасибо!

Автор - Oh_Nick
Дата добавления - 20.04.2021 в 15:01
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Создание диаграмм и спарклайнов (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования Jobsora jooble
© 2010-2021 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!