Създайте лентова диаграма - Примери за VBA код

Създайте лентова диаграма във VBA

Следващият урок ще опише как да създадете гистограма с VBA.

Стъпки:

1. Влезте в прозореца на проекта VBA, като щракнете с десния бутон върху името на лист и изберете „Преглед на кода“ или като изберете „ALT, F11“.

2. От дясната страна щракнете с десния бутон върху името на вашия проект и изберете вмъкнат „модул“.

3. Копирайте и поставете следния код в новия модул, който току -що създадохте:

Sub MakeChart () Dim myRange As Range Set myRange = Application.InputBox _ (Prompt: = "Изберете вход за диаграма", Type: = 8) Charts.Add ActiveChart.ChartType = xlColumnClustered ActiveChart.SetSourceData Източник: = myRange, _ PlotBy xlColumns ActiveChart.Location Къде: = xlLocationAsNewSheet End Sub

4. Щракнете върху бутона за запазване.

5. Щракнете върху малката икона на Excel в горния десен ъгъл под менюто „Файл“, за да излезете от прозореца на проекта VBA и да се върнете в Excel.

6. След това стартирайте макроса, като натиснете „Alt F8“, за да изведете списъка с наличните макроси и изберете „MakeChart“.

Coutif
Coutif
Coutif
Coutif
Coutif
Coutif
wave wave wave wave wave