函数的高阶应用-(零辅助列)帕累托/瀑布图/正态分布式排列图模版分享

tspliu

Jake_88 发表于 2020-7-31 13:32
铁叔~作为一个函数小白，真心请教您怎么看隐藏公式啊
刚刚试着用快捷键Ctrl+A全选工作表，右键-【设置单元 ...

Sub hidenames()
For Each x In ThisWorkbook.Names
x.Visible = True
Next
End Sub
'虽然我也不懂，但是这个显示公式还是能帮你一下

luikias

早上好：
个人建议
帕累托图的垂直 (值) 轴 坐标的数据最大值是全部数据的和。
这样帕累托图的柱状图的角与性才是相切的。

当你追加条件时，坐标轴能相应的变化那就完美了
如果不变的话就会变的很奇怪

luikias

早：
在楼主的表格上追加了点检更新按钮更新坐标。
实在是班门弄斧，会VBA的别骂。

jiscal

谢谢楼主的分享，我想请教下有没有办法在正态分布图上添加上下规格管制界限的

流浪铁匠

luikias 发表于 2020-8-9 10:04
早：
在楼主的表格上追加了点检更新按钮更新坐标。
实在是班门弄斧，会VBA的别骂。

确实这是纯函数解法目前存在的问题
柱形图合计总值10365时，柱形图的自动最大值会变成12000而不是10365(数据源加个1个隐藏值保证柱形图的数据最大值是10365),但柱形图本身会因为修正取整等原因把图表坐标最大值大于图表数据的最大值
这就是造成柱形图和折线图不能贴在一起的原因
除非能明确柱形图的自动默认的最大值的计算规则，修正柱形图或折线图的数据源最大值比例，保证二者相同，才能达到你说的效果(vba直接改最大值当然简单多了,目前函数在未找到图表这个自动调整最大值的规则前无法保证柱形图和折线图的贴合问题)

流浪铁匠

jiscal 发表于 2020-8-13 21:57
谢谢楼主的分享，我想请教下有没有办法在正态分布图上添加上下规格管制界限的

如果是数学上的正态分布图的话我不懂，只是为了区分那个自动按中间大两端小排列的柱形图而顺道按正态公式做法做的0辅助列图表
这个正态分布图的分配数据都是相关函数自动生成的


如果理解正态分布的公式的话估计看需求修改公式来进行处理了

lyl411

请教大大正太分布公式是怎么隐藏的啊，实在是找不到显示的方法。对VBA一窍不通，所以大大发的代码，也不知道怎么用。

augustjerry

可怕的高端玩家。

vbee

自动排序的帕累托图

1. 散点x轴        =IF(INT(COUNTA(INDIRECT("图!$A:$B"))/2)>3,ROW(INDIRECT("图!a1:a"&INT(COUNTA(INDIRECT("图!$A:$B"))/2))),{1})
   
2. 误差值        =IF(INT(COUNTA(INDIRECT("图!$A:$B"))/2)>3,INT(COUNTA(INDIRECT("图!$A:$B"))/2)-1,1)
   
3. 折线图数据        =INT(COUNTA(INDIRECT("图!$A:$B"))/2)>3 N(ROW(INDIRECT("图!a1:a"&INT(COUNTA(INDIRECT("图!A:B"))/2)))-1>=TRANSPOSE(ROW(INDIRECT("图!a1:a"&INT(COUNTA(INDIRECT("图!A:B"))/2)-1)))) OFFSET(INDIRECT("图!B2"),,,COUNTA(INDIRECT("图!A:B"))/2-1) "图!a1:a" "图!A:B"
   
4. 柱形图名称        =INT(COUNTA(INDIRECT("图!$A:$B"))/2)>3 INDIRECT("图!A1") COUNTIF(OFFSET(INDIRECT("图!b2"),,,COUNTA(INDIRECT("图!a:b"))/2-1),"<"&OFFSET(INDIRECT("图!b2"),,,COUNTA(INDIRECT("图!a:b"))/2-1))/1%%+ROW(OFFSET(INDIRECT("图!b2"),,,COUNTA(INDIRECT("图!a:b"))/2-1)) "图!a1:
   
5. 柱形图数据        =IF(INT(COUNTA(INDIRECT("图!$A:$B"))/2)>3,LARGE(OFFSET(INDIRECT("图!B2"),,,COUNTA(INDIRECT("图!a:b"))/2-1),ROW(INDIRECT("图!a1:a"&INT(COUNTA(INDIRECT("图!a:b"))/2)-1))),{1})
   
6. 最大值        =IF(INT(COUNTA(INDIRECT("图!$A:$B"))/2)>3,SUM(INDIRECT("图!B:B")),1)
   

复制代码

cherry_post

铁大威武！