✅ Создание гистограммы - примеры кода VBA

Содержание

Создать гистограмму в VBA

Создать гистограмму в VBA

В следующем руководстве будет описано, как создать гистограмму с помощью VBA.

Шаги:

1. Войдите в окно проекта VBA, щелкнув правой кнопкой мыши имя листа и выбрав «Просмотреть код» или выбрав «ALT, F11».

2. С правой стороны щелкните правой кнопкой мыши имя проекта и выберите вставку «модуль».

3. Скопируйте и вставьте следующий код в новый модуль, который вы только что создали:

Sub MakeChart () Dim myRange As Range Set myRange = Application.InputBox _ (Prompt: = «Выбрать входные данные диаграммы», Тип: = 8) Charts.Add ActiveChart.ChartType = xlColumnClustered ActiveChart.SetSourceData Source: = myRange, _ PlotBy: = xlColumns ActiveChart.Location Где: = xlLocationAsNewSheet End Sub

4. Щелкните по кнопке сохранения.

5. Щелкните маленький значок Excel в правом верхнем углу под меню «Файл», чтобы выйти из окна проекта VBA и вернуться в Excel.

6. Затем запустите макрос, нажав «Alt F8», чтобы открыть список доступных макросов, и выбрав «MakeChart».