为了更加直观的反应生产状态，生产看板和目视化应运而生，作为船舶制造企业，分段生产状态看板是最典型的一个案例。通常由计划员进行打印后，张贴在作战室，用不同颜色的笔进行标示工序状态。作为电子文档，也是用手工的方法进行填充颜色，那么能不能根据数据记录自动生成目视化看板呢？今天就分享一下思路和做法：
工具/原料
EXCEL2013
WINDOWSXP
思路
1、 构建数据模型，通过实际工序状态，计算最后的颜色2、 使用图形制作分段平面图3、 使图形名称与分段对应，并显示分段名称4、 运行宏，根据分段状态，使相应的图形填充颜色
构建数据模型
1、第一行为自定义各工序看板的颜色第二行为表头第三行及以下为实际发生的日期第一列为分段名称，往右依次为工序名称，最后一列为颜色，公式为COUNT（B3：E3），通过对实际数据个数的统计，判断最后一道工序和要填充的颜色。
插入图形，构建分段平面图
1、插入图形，构建分段平面图
2、设置图形的形状格式：无填充、边框为实线，设置颜色和宽度。
3、复制多个图形并调整对齐，最后如下图所示，这是我随便画的，大家可以把分段划分图作为底图在上边绘制分段：
设置分段显示和图形名称
1、选中任意图形，在编辑栏输入“=”，然后点击相应的分段名称的单元格，并选择文字对齐方式为左右居中，上下居中，所有的图形，按照这个方法设置完成，如下图所示：
2、按ALT+F11打开vba编辑器，编辑代码如下：Sub RENAME_SHAPE()On Error Resume NextFor Each P In ActiveSheet.ShapesP.SelectSelection.Name = Selection.ShapeRange(1).TextFrame2.TextRange.Characters.TextNextEnd Sub运行代码，将所有图形的名称进行按分段名命名，以便在填充颜色时，方便查找。
四、 运行宏，根据分段状态，使相应的图形填充颜色
1、将下列代码复制到VBA编辑器Sub FILL_COLOR()N = Cells(1, 1).CurrentRegion.Rows.CountFor 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 NextEnd Sub
2、在工作表中输入分段的实际完成时间，然后运行代码，VBA将根据工序的实际状态进行颜色填充，效果如下：
