Екцел ВБА графикони
Графикони се могу назвати објектима у ВБА, слично радном листу, такође можемо уметнути графиконе у ВБА на исти начин, прво изаберемо податке и тип графикона који желимо за ван податке, сада постоје две различите врсте графикона које пружамо један је уграђени графикон где се графикон налази у истом листу података, а други је познат као лист графикона где се графикон налази у посебном листу података.
У анализи података, визуелни ефекти су кључни показатељи учинка особе која је урадила анализу. Визуелни прикази су најбољи могући начин на који аналитичар може пренијети своју поруку. Будући да смо сви изврсни корисници, обично проводимо поприлично времена анализирајући податке и доносећи закључке бројевима и графиконима. Стварање графикона је уметност којом се треба овладати и надам се да имате добро знање о стварању табела са екцелом. У овом чланку ћемо вам показати како да креирате графиконе помоћу ВБА кодирања.
Како додати графиконе помоћу ВБА кода у програму Екцел?
# 1 - Креирајте графикон помоћу ВБА кодирања
Да бисмо креирали било који графикон, требали бисмо имати неку врсту нумеричких података. За овај пример користићу доленаведене узорке података.
Ок, идемо на ВБА едитор.
Корак 1: Покрените потпроцедуру.
Шифра:
Суб Цхартс_Екампле1 () Енд Суб
Корак 2: Дефинишите променљиву као графикон.
Шифра:
Суб Цхартс_Екампле1 () Затамни МиЦхарт као графикон Крај Суб
Корак 3: Будући да је графикон објектна променљива, морамо је подесити .
Шифра:
Суб Цхартс_Екампле1 () Дим МиЦхарт Ас Цхарт Сет МиЦхарт = Цхартс.Адд Енд Суб
Горњи код ће додати нови лист као лист графикона, а не као радни лист.
Корак 4: Сада морамо да дизајнирамо графикон. Отвори изјавом.
Шифра:
Суб Цхартс_Екампле1 () Дим МиЦхарт Ас Цхарт Сет МиЦхарт = Цхартс.Адд Витх МиЦхарт Енд Витх Енд Суб
Корак 5: Прва ствар са графиконом који треба да урадимо је да поставимо опсег извора одабиром методе „Постави изворне податке“ .
Шифра:
Суб Цхартс_Екампле1 () Дим МиЦхарт Ас Цхарт Сет МиЦхарт = Цхартс.Адд Витх МиЦхарт .СетСоурцеДата Енд Витх Енд Суб
Корак 6: Овде морамо поменути опсег извора. У овом случају, мој опсег извора је у листу са називом „Лист1“, а опсег је „А1 до Б7“.
Шифра:
Суб Цхартс_Екампле1 () Дим МиЦхарт Ас Цхарт Сет МиЦхарт = Цхартс.Адд Витх МиЦхарт .СетСоурцеДата Схеетс ("Схеет1"). Ранге ("А1: Б7") Енд Витх Енд Суб
Корак 7: Следећи корак је да одаберемо врсту графикона који ћемо створити. За ово морамо да одаберемо својство Тип графикона .
Шифра:
Суб Цхартс_Екампле1 () Дим МиЦхарт Ас Цхарт Сет МиЦхарт = Цхартс.Адд Витх МиЦхарт .СетСоурцеДата Схеетс ("Схеет1"). Ранге ("А1: Б7") .ЦхартТипе = Енд Витх Енд Суб
Корак 8: Овде имамо разне табеле. Изабраћу графикон „ клЦолумнЦлустеред “.
Шифра:
Суб Цхартс_Екампле1 () Дим МиЦхарт Ас Цхарт Сет МиЦхарт = Цхартс.Адд Витх МиЦхарт .СетСоурцеДата Схеетс ("Схеет1"). Ранге ("А1: Б7") .ЦхартТипе = клЦолумнЦлустеред Енд Витх Енд Суб
Ок, у овом тренутку, покренимо код помоћу тастера Ф5 или ручно и видимо како графикон изгледа.
Корак 9: Сада промените друга својства графикона. Да бисте променили наслов графикона, доле је код.
Овако, имамо многа својства и методе са графиконима. Користите сваку од њих да бисте видели утицај и научили.
Суб Цхартс_Екампле1 () Дим МиЦхарт Ас Цхарт Сет МиЦхарт = Цхартс.Адд Витх МиЦхарт .СетСоурцеДата Схеетс ("Схеет1"). Ранге ("А1: Б7") .ЦхартТипе = клЦолумнЦлустеред .ЦхартТитле.Тект = "Енд Перформанце" Енд Перформанце
# 2 - Направите графикон истим Екцел листом као облик
To create the chart with the same worksheet (datasheet) as shape, we need to use a different technique.
Step 1: First Declare threes Object Variables.
Code:
Sub Charts_Example2() Dim Ws As Worksheet Dim Rng As Range Dim MyChart As Object End Sub
Step 2: Then Set the Worksheet reference.
Code:
Sub Charts_Example2() Dim Ws As Worksheet Dim Rng As Range Dim MyChart As Object Set Ws = Worksheets("Sheet1") End Sub
Step 3: Now set the range object in VBA
Code:
Sub Charts_Example2() Dim Ws As Worksheet Dim Rng As Range Dim MyChart As Object Set Ws = Worksheets("Sheet1") Set Rng = Ws.Range("A1:B7") End Sub
Step 4: Now, set the chart object.
Code:
Sub Charts_Example2() Dim Ws As Worksheet Dim Rng As Range Dim MyChart As Object Set Ws = Worksheets("Sheet1") Set Rng = Ws.Range("A1:B7") Set MyChart = Ws.Shapes.AddChart2 End Sub
Step 5: Now, as usual, we can design the chart by using the “With” statement.
Code:
Sub Charts_Example2() Dim Ws As Worksheet 'To Hold Worksheet Reference Dim Rng As Range 'To Hold Range Reference in the Worksheet Dim MyChart As Object Set Ws = Worksheets("Sheet1") 'Now variable "Ws" is equal to the sheet "Sheet1" Set Rng = Ws.Range("A1:B7") 'Now variable "Rng" holds the range A1 to B7 in the sheet "Sheet1" Set MyChart = Ws.Shapes.AddChart2 'Chart will be added as Shape in the same worksheet With MyChart.Chart .SetSourceData Rng 'Since we already set the range of cells to be used for chart we have use RNG object here .ChartType = xlColumnClustered .ChartTitle.Text = "Sales Performance" End With End Sub
This will add the chart below.
#3 - Code to Loop through the Charts
Like how we look through sheets to change the name or insert values, hide & unhide them. Similarly, to loop through the charts, we need to use chart object property.
The below code will loop through all the charts in the worksheet.
Code:
Sub Chart_Loop() Dim MyChart As ChartObject For Each MyChart In ActiveSheet.ChartObjects 'Enter the code here Next MyChart End Sub
#4 - Alternative Method to Create Chart
We can use the below alternative method to create charts. We can use the Chart Object. Add method to create the chart below is the example code.
This will also create a chart like the previous method.
Code:
Суб Цхартс_Екампле3 () Дим Вс Ас Ворксхеет Дим Рнг Ас Ранге Дим МиЦхарт Ас ЦхартОбјецт Сет Вс = Ворксхеетс ("Схеет1") Сет Рнг = Вс.Ранге ("А1: Б7") Сет МиЦхарт = Вс.ЦхартОбјецтс.Адд (Лефт: = АцтивеЦелл.Лефт, Ширина: = 400, Врх: = АцтивеЦелл.Топ, Висина: = 200) МиЦхарт.Цхарт.СетСоурцеДата Извор: = Рнг МиЦхарт.Цхарт.ЦхартТипе = клЦолумнСтацкед МиЦхарт.Цхарт.ЦхартТитле.Тект = "ПерформанцеТитле.Тект =" Салес.Тект = "Перформанце". Суб
