Зміст
У цій статті я покажу вам, як можна створити динамічну діаграму в Excel за допомогою VBA .
Завантажити Практичний посібник
Завантажте цей практичний посібник, щоб потренуватися, поки ви читаєте цю статтю.
Динамічна діаграма в Excel.xlsm5 простих кроків для створення динамічної діаграми за допомогою Excel VBA
Тут у нас є аркуш під назвою Аркуш1 в якому міститься таблиця, що містить дохід та прибутки компанії за кілька років.
Наше завдання сьогодні - згенерувати динамічний графік з цієї таблиці за допомогою Excel VBA .
⧪ Крок 1: Відкриття вікна Visual Basic
Преса ALT+F11 на клавіатурі, щоб відкрити Visual Basic вікно.
⧪ Крок 2: Вставка нового модуля
Перейдіть на сторінку Вставка> Модуль на панелі інструментів. Натисніть на кнопку Модуль Новий модуль під назвою Модуль 1 буде вставлено.
⧪ Крок 3: Розміщення коду VBA
Це найважливіший крок. Поставити наступне VBA Код в модулі.
⧭ код VBA:
Sub Create_Dynamic_Chart() Application.ScreenUpdating = False With ActiveSheet.Shapes(Application.Caller).Fill.ForeColor If .Brightness = 0 Then .Brightness = -0.150000006 Else .Brightness = 0 End If End With Dim Sequence() As String Desired_Shapes = Array("Rounded Rectangle 1", "Rounded Rectangle 2", "Rounded Rectangle 3") For i = LBound(Desired_Shapes) ToUBound(Desired_Shapes) With ActiveSheet.Shapes(Desired_Shapes(i)) If .Fill.ForeColor.Brightness = -0.150000006 Then Sequence(UBound(Sequence)) = .TextFrame2.TextRange.Characters.Text ReDim Preserve Sequence(UBound(Series) + 1) End If End With Next i If UBound(Sequence)> 0 Then ReDim Preserve Sequence(UBound(Sequence) - 1)Аркуші("Лист1").СписокОб'єктів("Таблиця1").Діапазон.Автофільтр Поле:=1 Аркуші("Лист1").СписокОб'єктів("Таблиця1").Діапазон.Автофільтр _ Поле:=1, Критерії1:=Послідовність, Оператор:=xlФільтрЗначень Application.ScreenUpdating = True End Sub 
⧪ Крок 4: Збереження книги у форматі XLSM
Далі поверніться до робочої книги і збережіть її як Книга Excel з підтримкою макросів .
⧪ Крок 5: Кінцевий результат
Запустіть код з файлу Виконати Sub / UserForm на панелі інструментів.
Динамічну діаграму, створену на основі таблиці, ви знайдете в розділі Лист2 аркуша.
Важливі моменти для запам'ятовування
Таблиця - це найкращий спосіб створити динамічну діаграму, оскільки при додаванні або видаленні елемента з таблиці, таблиця автоматично підлаштовується, і так само для діаграми. Але є й інші способи зробити це, наприклад, за допомогою кнопки Іменований діапазон .
