Excel三种迷你图-Excel迷你信号图

在单元格内根据填入的数字自动插入柱形图。

而按等差输入数据，则能生成类似的信号图

Office3658

Excel迷你信号图操作动画

 Excel迷你信号图详细VBA代码：               

        Function s(rng As Range)

            Application.ScreenUpdating = False

            Application.Volatile

            On Error Resume Next

            Set ce = rng(rng.Count).Offset(0, 1)

            For Each Shp In ce.Worksheet.Shapes

                ce.Worksheet.Shapes(ce.Address(, , xlR1C1) & "shape").Delete

            Next

            c = rng.Count

            w = ce.Width

            h = ce.Height

            ma = Application.Max(rng)

            With ce.Worksheet.Shapes

                For i = 1 To c

                    x1 = ce.Left + 1.1 * w * i / 12

                    y1 = ce.Top + 0.9 * ce.Height

                    x2 = x1

                    y2 = ce.Top + ce.Height - rng(i) / ma * 0.9 * h

                    Set Shp = .AddLine(x1, y1, x2, y2)

                    Shp.Name = ce.Address(, , xlR1C1) & "shape"

               Next

            End With

            ActiveSheet.DrawingObjects.Select

            Selection.ShapeRange.Line.Weight = 3#

            Selection.ShapeRange.Line.ForeColor.SchemeColor = 17

            rng.Offset(1, 1).Select

            s = ""

            Application.ScreenUpdating = True

        End Function