刚刚在网上看到一个哥们用A在EXCEL2010下做了段程序，可自动生成柏拉图。
小弟愚昧，不清楚如何使用下面的代码来自动生成柏拉图，哪位大哥知道，请告诉兄弟，最好上传个excel样例！兄弟不胜感激！
以下是程序源代码
'数据区域的左上角位置常量
Const UpperLeftPos = "B4"
Const UpperPos = "B"
Const LeftPos = 4
Sub 绘制标准柏拉图()
Dim Range1 As Range
'选择数据区域，Range("B2")这个格
刚刚在网上看到一个哥们用A在EXCEL2010下做了段程序，可自动生成柏拉图。
小弟愚昧，不清楚如何使用下面的代码来自动生成柏拉图，哪位大哥知道，请告诉兄弟，最好上传个excel样例！兄弟不胜感激！
以下是程序源代码
'数据区域的左上角位置常量
Const UpperLeftPos = "B4"
Const UpperPos = "B"
Const LeftPos = 4
Sub 绘制标准柏拉图()
Dim Range1 As Range
'选择数据区域，Range("B2")这个格子里放的是有效数据的行数，即分类的总个数
Set Range1 = Range(UpperLeftPos & ":" & Chr(Asc(UpperPos) + 1) & (LeftPos + Range("B2")) & "," & Chr(Asc(UpperPos) + 2) & LeftPos & ":" & Chr(Asc(UpperPos) + 2) & (LeftPos + Range("B2") + 1))
'插入柱形图
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Range1
'把百分比数据系列的图形格式变为“带数据值的折线图”，并画在由次要横坐标和次要纵坐标里
ActiveChart.SeriesCollection(2).Select
ActiveChart.SeriesCollection(2).AxisGroup = 2
ActiveChart.SeriesCollection(2).ChartType = xlLineMarkers
ActiveChart.SetElement (msoElementSecondaryCategoryAxisWithoutLabels)
ActiveChart.SetElement (msoElementSecondaryCategoryAxisShow)
'把次要横坐标的值显示到刻度上，而不是刻度中间，并隐藏次要横坐标的显示
ActiveChart.Axes(xlCategory, xlSecondary).Select
Selection.MajorTickMark = xlNone
Selection.TickLabelPosition = xlNone
ActiveChart.Axes(xlCategory, xlSecondary).AxisBetweenCategories = False
'调整柱形图的显示，去掉相邻柱子的间距，并给每个柱子加外框
ActiveChart.SeriesCollection(1).Select
ActiveChart.ChartGroups(1).GapWidth = 0
With Selection.Format.Line
.Visible = msoTrue
.ForeColor.ObjectThemeColor = msoThemeColorText1
.ForeColor.TintAndShade = 0
.ForeColor.Brightness = 0
With Selection.Format.Line
.Visible = msoTrue
.Weight = 1
'修改主要纵坐标，满值为累加和
ActiveChart.Axes(xlValue).Select
ActiveChart.Axes(xlValue).CrossesAt = 0
Selection.MajorTickMark = xlInside
ActiveChart.Axes(xlValue).MinimumScale = 0
ActiveChart.Axes(xlValue).MaximumScale = Range(Chr(Asc(UpperPos) + 3) & (LeftPos + Range("B2") + 1))
'修改次要纵坐标，满值为100%
ActiveChart.Axes(xlValue, xlSecondary).Select
ActiveChart.Axes(xlValue, xlSecondary).MaximumScale = 1
ActiveChart.Axes(xlValue, xlSecondary).MinimumScale = 0
Selection.MajorTickMark = xlInside
ActiveChart.Axes(xlValue, xlSecondary).CrossesAt = 1
Selection.TickLabels.NumberFormat = "0%"
'让百分比折线上的点显示出具体的数值
ActiveChart.SeriesCollection(2).Select
ActiveChart.SeriesCollection(2).ApplyDataLabels
ActiveChart.SeriesCollection(2).DataLabels.Select
Selection.Position = xlLabelPositionRight
'隐去横向的主要网格线
ActiveChart.Axes(xlValue).Select
ActiveChart.Axes(xlValue).MajorGridlines.Select
Selection.Format.Line.Visible = msoFalse
'为图表添加标题，标题的内容放在Range("B1")格子里
ActiveChart.SetElement (msoElementChartTitleAboveChart)
ActiveChart.ChartTitle.Select
ActiveChart.ChartTitle.Text = Range("B1")
End Sub
您可以这样操作：
把这些代码粘贴至Excel的VBA代码窗口中，然后保存，最后运行这个EXCEL文件，您就可以看到效果了。
Application.ScreenUpdating=False
Workbooks.Open "测试.xls"
'读取或写入数据的代码
Workbook...
如附件，你用用试试。
Sub 按钮1_单击()
If Cells(1, 5) && "" Then
Cells(1, 5).CurrentRegion...
大家还关注
确定举报此问题
举报原因(必选)：
广告或垃圾信息
激进时政或意识形态话题
不雅词句或人身攻击
侵犯他人隐私
其它违法和不良信息
报告，这不是个问题
报告原因(必选)：
这不是个问题
这个问题分类似乎错了
这个不是我熟悉的地区excel制作柏拉图的方法_Excel基础
excel制作柏拉图的方法
学习啦【Excel基础】 编辑：业华
　　中的柏拉图具体该如何进行制作呢?下面是由学习啦小编分享的excel制作柏拉图的方法，以供大家阅读和学习。
　　excel制作柏拉图的方法：
　　制作柏拉图步骤1：先看看最终的效果，最终制作出来的应该是如下所示的：
　　制作柏拉图步骤2：根据你要做的柏拉图的几个要点(反映到图中就是横坐标)列出来，每个要点对应的数量和累计百分比是多少，按照从大到小排列，如果要点很多，只需取前几个要点，如图：假设有10个问题点，我只列出前5项，后5项发生的数量很少这里并作其他问题点
　　制作柏拉图步骤3：插入柱形图，选择2个系列，分别对应2个纵坐标轴，这个应该没问题吧
　　制作柏拉图步骤4：选择第二个系列，就是红色那个柱状图，右键选择设置数据系列格式，选择次要坐标轴，就是我涂了黄色的那块，然后再选择红色柱状图，右键选择更改系列图标类型，选择XY散点图，如下图
　　制作柏拉图步骤5：选择图表，在上面菜单栏里选择显示次要横坐标轴，并把坐标轴范围设置为最小值是0，最大值是6，(因为这里我列出了6个问题点);然后再选择红色的折线图，设置X轴和Y轴的数据，注意X周选择0-6，Y周第一个数据选择0，然后按照顺序选择百分比的数据，如图
　　制作柏拉图步骤6：选择哪个折线图，右键选择设置数据系列格式-系列选项-次坐标轴，就变成如下所示：把图例和次要横坐标轴删掉，更改左边和右边的纵坐标轴，左边改为求和的数值87，最小值是0;右边最小值是0，最大值是1，顺便改下数字显示类型为百分比;
　　制作柏拉图步骤7：选择蓝色柱状图，设置数据系列格式，间距调为0，边框黑色，可以设置阴影这样效果要好点;选择红色的折线图，设置数据系列格式，选择数据标记选项，把小圆点调出来，然后把填充色改黄色或其他颜色，这样就基本成型了，
　　制作柏拉图步骤8：接着做一些细节调整，首先把标题提出来;然后右键蓝色柱状图，添加数据标签，然后右键红色折线图，添加数据标签;点中间区域，把主要横网格线去掉(可以选个填充色);再把折现图的数据标签的0和100%这2个标签分别拖到左上角和右上角，用于填写单位，最后再插入一个文本框输入日期和n，就大功告成了。
看了excel制作柏拉图的方法还看了：
本文已影响 人
[excel制作柏拉图的方法]相关的文章
看过本文的人还看了
6878人看了觉得好
739人看了觉得好
892人看了觉得好
【Excel基础】图文推荐}