在Excel宏函数中插入饼图

Question

I am new to macro function. I have been trying to insert a pie chart on the Subject_name fields (X,Y,Z) in Excel via macro function. The user should be able to plot this graph when clicking a macro command button. Basically, it should count and then use the number to plot the chart.

Here is the example of current data:

Channel_Type | Channel_Category | Category | **Subject_Name**
  MICROBLOG          General         A           X
   Forum             General         A           Z
   BLOG              General         A           Y
   FORUM             General         A           X
  MICROBLOG          General         A           Z
   BLOG              General         A           Z

Here is the desired outcome:

X : 2 | Y : 1 | Z : 3

This is what i tried before to plot the graph for the whole sheet but i am unsure of how to just select one column:

Option Explicit

Sub Example()
Dim cht As ChartObjects
For Each cht In Worksheets(1).ChartObjects

Next cht
cht.Chart.ChartType = xlPie


End Sub

I have been stuck for awhile. Appreciate any help.

Answer 1

Before you can plot a chart, you need to aggregate the data and provide the numbers that you want to plot in a chart. A chart does not do that automatically and no chart can plot text values.

There are many ways to aggregate the data into the three number values you need for the pie chart, for example a pivot table or formulas using Countif. Or you could write VBA that loops over the text values and aggregates the count into three variables.

Once the numbers have been generated, you can use them to create a chart.

Any of the above can be done manually or with VBA. If you use the Pivot approach, VBA may not even be required. It depends on your circumstances.

Answer 2

Consider setting your data up in a table which includes a count column at the end. You can enter =1 into this (assuming each row is a unique record) and it will auto-fill down for each row. Create a pivot chart (pie chart) off the 'Subject name' and 'count' fields. Then you can tie the refresh of the pivottable to a command button (if you must use VBA) and the chart will update at a button push. The data being in an Excel table means it will also pick up new rows as added.

Answer 3

You can do this completely without VBA and even have it updated automatically.

The formula in H2 is =COUNTIF(D:D,G1) and copied down up to H4. The chart was just inserted manually through menu:

• select G1:H4
• menu => insert => chart (select 2D circle)
• select the template you like

This chart will update automatically if you add entries in column AD.

No VBA!