photosdematures.com

Mga Chart ng Excel VBA

Ang mga tsart ay maaaring tinatawag na mga bagay sa VBA, katulad ng worksheet maaari din naming ipasok ang mga tsart sa VBA sa parehong pamamaraan, pipiliin muna namin ang uri ng data at tsart na gusto namin para sa out data, ngayon mayroong dalawang magkakaibang uri ng mga tsart na nagbibigay kami ng isa ay ang naka-embed na tsart kung saan ang tsart ay nasa parehong sheet ng data at isa pa ay kilala bilang chart sheet kung saan ang tsart ay nasa magkakahiwalay na sheet ng data.

Sa pagtatasa ng data, ang mga visual effects ay ang mga pangunahing tagapagpahiwatig ng pagganap ng taong nagawa ang pagtatasa. Ang mga visual ay ang pinakamahusay na posibleng paraan na maihahatid ng isang analyst sa kanyang mensahe. Dahil lahat kami ay mga gumagamit ng excel kadalasan ay gumugugol kami ng isang malaking halaga ng oras sa pag-aaral ng data at gumawa ng mga konklusyon sa mga numero at tsart. Ang paglikha ng isang tsart ay ang sining upang makabisado at inaasahan kong mayroon kang mahusay na kaalaman sa paglikha ng mga tsart na may excel. Sa artikulong ito, ipapakita namin sa iyo kung paano lumikha ng mga tsart gamit ang VBA coding.

Paano Magdagdag ng Mga Tsart gamit ang VBA Code sa Excel?

Maaari mong i-download ang VBA Charts Excel Template dito - VBA Charts Excel Template

# 1 - Lumikha ng Tsart gamit ang VBA Coding

Upang lumikha ng anumang tsart dapat magkaroon kami ng ilang uri ng data na bilang. Para sa halimbawang ito, gagamit ako sa ibaba ng sample na data.

Ok, tumalon tayo sa editor ng VBA.

Hakbang 1: Simulan ang Sub Pamamaraan.

Code:

 Mga Sub Chart_Example1 () End Sub 

Hakbang 2: Tukuyin ang variable bilang tsart.

Code:

 Mga Sub Chart_Example1 () Madilim ang MyChart Bilang Chart End Sub 

Hakbang 3: Dahil ang tsart ay isang variable ng bagay na kailangan namin Itakda ito

Code:

 Mga Sub Chart_Example1 () Madilim ang MyChart Bilang Chart Itakda ang AkingChart = Mga Tsart. Idagdag ang End Sub 

Ang code sa itaas ay magdaragdag ng isang bagong sheet bilang isang sheet sheet, hindi bilang isang worksheet.

Hakbang 4: Ngayon kailangan naming idisenyo ang tsart. Buksan Sa Pahayag.

Code:

 Mga Sub Chart_Example1 () Madilim ang MyChart Bilang Chart Itakda ang MyChart = Mga Tsart. Idagdag Sa AkingChart na Nagtatapos Sa Katapusan na Sub 

Hakbang 5: Ang una bagay sa tsart na kailangan nating gawin ay Itakda ang saklaw ng mapagkukunan sa pamamagitan ng pagpili ng "Itakda ang Data ng Pinagmulan" paraan

Code:

 Mga Sub Chart_Example1 () Madilim ang MyChart Bilang Tsart Itakda ang AkingChart = Mga Tsart. Idagdag Sa MyChart .SetSourceData Nagtatapos Sa End Sub 

Hakbang 6: Dito kailangan nating banggitin ang saklaw ng pinagmulan. Sa kasong ito, ang saklaw ng aking pinagmulan ay nasa sheet na pinangalanan bilang "Sheet1" at ang saklaw ay "A1 hanggang B7".

Code:

 Mga Sub Chart_Example1 () Madilim ang MyChart Bilang Chart Itakda ang MyChart = Mga Chart. Idagdag Sa MyChart .SetSourceData Sheets ("Sheet1"). Saklaw ("A1: B7") Nagtatapos Sa End Sub 

Hakbang 7: Susunod na kailangan namin upang piliin ang uri ng tsart na gagawin namin. Para dito, kailangan nating pumili Uri ng Tsart pag-aari

Code:

 Mga Sub Chart_Example1 () Madilim ang MyChart Bilang Chart Itakda ang MyChart = Mga Chart. Idagdag Sa MyChart .SetSourceData Sheets ("Sheet1"). Saklaw ("A1: B7") .ChartType = Tapusin Sa End Sub 

Hakbang 8: Narito mayroon kaming iba't ibang mga tsart. Pipiliin ko ang "xlColumnClustered”Tsart.

Code:

 Mga Sub Chart_Example1 () Madilim ang MyChart Bilang Chart Itakda ang MyChart = Mga Chart. Idagdag Sa MyChart .SetSourceData Sheets ("Sheet1"). Saklaw ("A1: B7") .ChartType = xlColumnClustered End Sa End Sub 

Ok, sa sandaling ito patakbuhin natin ang code gamit ang F5 key o manu-mano at tingnan kung paano ang hitsura ng tsart.

Hakbang 9: Baguhin ngayon ang iba pang mga pag-aari ng tsart. Upang baguhin ang pamagat ng tsart sa ibaba ay ang code.

Tulad nito, marami kaming mga katangian at pamamaraan na may mga tsart. Gamitin ang bawat isa sa kanila upang makita ang epekto at alamin.

 Mga Sub Chart_Example1 () Madilim ang MyChart Bilang Chart Itakda ang MyChart = Mga Chart. Idagdag Sa MyChart .SetSourceData Sheets ("Sheet1"). Saklaw ("A1: B7") .ChartType = xlColumnClustered .ChartTitle.Txt = "Pagganap ng Pagbebenta" Nagtapos Sa End Sub 

# 2 - Lumikha ng isang Tsart na may Parehong Excel Sheet bilang Hugis

Upang likhain ang tsart na may parehong worksheet (datasheet) bilang hugis kailangan nating gumamit ng ibang pamamaraan.

Hakbang 1: Una Ipahayag ang tatlong Mga variable ng Bagay.

Code:

 Mga Sub Chart_Example2 () Dim Ws As Worksheet Dim Rng As Range Dim MyChart As Object End Sub 

Hakbang 2: Pagkatapos Itakda ang sanggunian sa Worksheet.

Code:

 Mga Sub Chart_Example2 () Dim Ws As Worksheet Dim Rng As Range Dim MyChart As Object Set Ws = Worksheets ("Sheet1") End Sub 

Hakbang 3: Itakda ngayon ang saklaw na object sa VBA

Code:

 Mga Sub Chart_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 

Hakbang 4: Itakda ngayon ang object ng tsart.

Code:

 Sub Charts_Example2 () Dim Ws As Worksheet Dim Rng As Range Dim MyChart As Object Set Ws = Worksheets ("Sheet1") Itakda ang Rng = Ws.Range ("A1: B7") Itakda ang MyChart = Ws.Shapes.AddChart2 End Sub 

Hakbang 5: Ngayon, tulad ng dati, maaari naming idisenyo ang tsart sa pamamagitan ng paggamit ng pahayag na "Gamit".

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") 'Ngayon variable "Ws" ay katumbas ng sheet " Sheet1 "Itakda ang Rng = Ws.Range (" A1: B7 ") 'Ngayon na variable na" Rng "ay humahawak sa saklaw na A1 hanggang B7 sa sheet na" Sheet1 "Itakda ang MyChart = Ws.Shapes.AddChart2' Chart ay idadagdag bilang Hugis sa parehong worksheet Sa MyChart.Chart .SetSourceData Rng 'Dahil naitakda na namin ang hanay ng mga cell na gagamitin para sa tsart ginamit namin ang RNG object dito .ChartType = xlColumnClustered .ChartTitle.Txt = "Pagganap ng Pagbebenta" Nagtapos Sa End Sub 

Ito ay idaragdag ang tsart sa ibaba.

# 3 - Code sa Loop sa pamamagitan ng Mga Tsart

Tulad ng kung paano kami tumitingin sa mga sheet upang baguhin ang pangalan o magpasok ng mga halaga, itago at ilayo ang mga ito. Katulad nito upang mag-loop sa mga tsart na kailangan namin upang magamit ang pag-aari ng object ng tsart.

Ang code sa ibaba ay maiikot sa lahat ng mga tsart sa worksheet.

Code:

 Sub Chart_Loop () I-dim ang MyChart Bilang ChartObject Para sa bawat MyChart Sa ActiveSheet.ChartObjects 'Ipasok ang code dito Susunod MyChart End Sub 

# 4 - Alternatibong Paraan upang Lumikha ng Tsart

Maaari naming gamitin ang alternatibong pamamaraan sa ibaba upang lumikha ng mga tsart. Maaari naming gamitin ang Bagay ng Tsart. Magdagdag ng pamamaraan upang likhain ang tsart sa ibaba ay ang halimbawa ng code.

Lilikha din ito ng isang tsart tulad ng nakaraang pamamaraan.

Code:

 Sub Charts_Example3 () Dim Ws As Worksheet Dim Rng As Range Dim MyChart As ChartObject Set Ws = Worksheets ("Sheet1") Set Rng = Ws.Range ("A1: B7") Itakda ang MyChart = Ws.ChartObjects.Add (Kaliwa: = ActiveCell.Left, Width: = 400, Top: = ActiveCell.Top, Taas: = 200) MyChart.Chart.SetSourceData Source: = Rng MyChart.Chart.ChartType = xlColumnStacked MyChart.Chart.ChartTitle.Txt = "Pagganap ng Sales" Pagtatapos Sub