|
VBA会用吗?
- Sub aaa()
- Dim i&, Rngxd As Range, Rngwc As Range, d As Date
- For i = 4 To [ba65536].End(3).Row
- d = Cells(i, 7)
- For j = 53 To 56
- Set Rngxd = Rows(2).Find(d)
- Set Rngwc = Rows(2).Find(Cells(i, j))
- Shapes.AddShape(msoShapeRightArrow, Rngxd.Offset(i - 2).Left, Cells(i, 1).Top, Rngwc.Offset(, 1).Left - Rngxd.Left, Cells(i, 1).Height).Select
- Selection.ShapeRange.Line.Visible = msoFalse
- With Selection.ShapeRange.Fill
- .Visible = msoTrue
- .ForeColor.RGB = Cells(2, j).Interior.Color
- .Transparency = 0
- .Solid
- End With
- d = Rngwc.Offset(, 1)
- Next j
- Next i
- End Sub
复制代码 |
|