EXCEL 如何制作瀑布图,对于有些数据做图表非常适合用瀑布图，比如生活开支......
分段生产状态看板自动化
来源：互联网
2023-02-20 19:21:00 141
为了更加直观的反应生产状态，生产看板和目视化应运而生，作为船舶制造企业，分段生产状态看板是最典型的一个案例。通常由计划员进行打印后，张贴在作战室，用不同颜色的笔进行标示工序状态。作为电子文档，也是用手工的方法进行填充颜色，那么能不能根据数据记录自动生成目视化看板呢？今天就分享一下思路和做法：
工具/原料
- EXCEL2013
- WINDOWSXP
思路
1、 构建数据模型，通过实际工序状态，计算最后的颜色
2、 使用图形制作分段平面图
3、 使图形名称与分段对应，并显示分段名称
4、 运行宏，根据分段状态，使相应的图形填充颜色
构建数据模型
第一行为自定义各工序看板的颜色
第二行为表头
第三行及以下为实际发生的日期
第一列为分段名称，往右依次为工序名称，最后一列为颜色，公式为COUNT（B3：E3），通过对实际数据个数的统计，判断最后一道工序和要填充的颜色。
插入图形，构建分段平面图
插入图形，构建分段平面图
设置图形的形状格式：无填充、边框为实线，设置颜色和宽度。
复制多个图形并调整对齐，最后如下图所示，这是我随便画的，大家可以把分段划分图作为底图在上边绘制分段：
设置分段显示和图形名称
选中任意图形，在编辑栏输入“=”，然后点击相应的分段名称的单元格，并选择文字对齐方式为左右居中，上下居中，所有的图形，按照这个方法设置完成，如下图所示：
按ALT F11打开vba编辑器，编辑代码如下：
Sub RENAME_SHAPE()
On Error Resume Next
For Each P In ActiveSheet.Shapes
P.Select
Selection.Name = Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text
Next
End Sub
运行代码，将所有图形的名称进行按分段名命名，以便在填充颜色时，方便查找。
四、运行宏，根据分段状态，使相应的图形填充颜色
将下列代码复制到VBA编辑器
Sub FILL_COLOR()
N = Cells(1, 1).CurrentRegion.Rows.Count
For i = 3 To N
ActiveSheet.Shapes(Cells(i, 1).Value).Select
With Selection.ShapeRange.Fill
.ForeColor.RGB = Cells(1, Cells(i, 6) 1).Interior.Color
.Solid
End With
Next
End Sub
在工作表中输入分段的实际完成时间，然后运行代码，VBA将根据工序的实际状态进行颜色填充，效果如下：
注意事项
- 图片的名称要和分段名称一致
- VBA代码并不复杂，只要将逻辑弄明白，命令可以采用录制的方法学习
以上方法由办公区教程网编辑摘抄自百度经验可供大家参考！
上一篇：带单位求和怎么求和 下一篇：excel输入字隐藏了怎么解决
