分段生产状态看板自动化

1、  构建数据模型，通过实际工序状态，计算最后的颜色

2、  使用图形制作分段平面图

3、  使图形名称与分段对应，并显示分段名称

4、  运行宏，根据分段状态，使相应的图形填充颜色

1、第一行为自定义各工序看板的颜色

第二行为表头

第三行及以下为实际发生的日期

第一列为分段名称，往右依次为工序名称，最后一列为颜色，公式为COUNT（B3：E3），通过对实际数据个数的统计，判断最后一道工序和要填充的颜色。

1、插入图形，构建分段平面图

2、设置图形的形状格式：无填充、边框为实线，设置颜色和宽度。

3、复制多个图形并调整对齐，最后如下图所示，这是我随便画的，大家可以把分段划分图作为底图在上边绘制分段：

1、选中任意图形，在编辑栏输入“=”，然后点击相应的分段名称的单元格，并选择文字对齐方式为左右居中，上下居中，所有的图形，按照这个方法设置完成，如下图所示：

2、按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

运行代码，将所有图形的名称进行按分段名命名，以便在填充颜色时，方便查找。

1、将下列代码复制到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

2、在工作表中输入分段的实际完成时间，然后运行代码，VBA将根据工序的实际状态进行颜色填充，效果如下：