Съдържание
Създайте лентова диаграма във 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