Как да създадете диаграма чрез VBA в Microsoft Excel
В тази статия ще научим как да създаваме диаграма чрез VBA в Microsoft Excel.
Нека разберем с едно просто упражнение как можем да създадем диаграма чрез VBA в Microsoft Excel.
Имаме данни в диапазон A1: F10, в който колона A съдържа името на ученика, колона B Оценки 1, колона C Оценки 2, колона D Оценки 3, колона E съдържа Общ резултат, а колона F съдържа среден резултат.
Следвайте дадените по-долу стъпки и код:-
- Вмъкнете команден бутон от раздел Разработчик> Вмъкване> Команден бутон 1.
- Натиснете клавиша Alt+F11, за да отворите страницата VBE, за да напишете макроса.
- След това отидете на раздела за вмъкване и поставете модул.
- Напишете по -долу споменатия код на страницата.
Private Sub CommandButton1_Click ()
Обхват ("A2: A10, F1: F10"). Изберете
ActiveSheet.Shapes.AddChart.Select
ActiveChart.SetSourceData Източник: = Range ("'Sheet1'! $ A $ 2: $ A $ 10, 'Sheet1'! $ F $ 2: $ F $ 10")
ActiveChart.ChartType = xlColumnClustered
ActiveSheet.ChartObjects (1). Активирайте
ActiveSheet.ChartObjects (1) .Cut
Листове („Лист2“). Изберете
ActiveSheet.Paste
Листове („Лист1“). Изберете
Диапазон ("F11"). Активирайте
End Sub
Код Обяснение:- Първо ще определим обхвата на избор за вмъкване на диаграмата, след което ще зададем източника на данни и типа на диаграмата. Преди да извършим действие върху диаграмата, трябва да я активираме, след което избираме местоназначението, където искаме да поставим нашата диаграма, и след това трябва да се върнем към лист 1.
- За да стартирате макроса, натиснете клавиша F5.
- Диаграмата ще бъде създадена в лист 2 на работната книга.
Това е начинът, по който можем да създадем диаграма чрез VBA в Microsoft Excel.
