|
いつもお世話になります。
以下のコードでデーターが有る時は線が引けるのですがデーターが欠けると
D のみにしか線が引けないのですが改良点を教えてください。
たとえば T5, U5 にデーターが無い時等です。
Sub Sen()
Dim Cel As Range, Ans As Variant
For Each Cel In Range("D5:U5")
If Cei.Value <> "" Then
Ans = Application.Match(Cel.Value, Row(14), 0)
If Not IsError(Ans) Then
Call bobo(Cel, Cells(14, Ans))
End If
End If
Next
End Sub
Sub bobo(Cel As Range, RG As Range)
Dim SttL As Double, SttT As Double
Dim EndL As Double, EndT As Double
SttL = Cel.Left + Cel.Width / 2
SttT = Cel.Offset(1).Top
EndL = RG.Left + RG.Width / 2
EndT = RG.Top
With ActiveSheet.Shapes.AddLine(SttL,SttT,EndL,EndT)
.Line.EndArrowheadStyle = mosArrowheadTriangle
End With
End Sub
|
|