|
1. A B C D E
1 3 2 4 1 5
2
3 4 3 2 5 1
2. A B C
1 3 4
2 2 3
3 4 2
4 1 5
5 5 1
上記の表で2.はコードを見つけたのですが、同じ数字同士を
線を引いて結べたのですが
1.の表にて縦に線を引けるのでしょうか教えてください。
宜しくお願いいたします。
2.のコードは下記のものです。
Sub Sample()
Dim c As Range, i As Long
Dim x1 As Single, y1 As Single, x2 As Single, y2 As Single
For Each c In Range("A1:A5")
For i = 1 To 5
If InStr(Cells(i, 3).Value, c.Vallue) > 0 Then
x1 = c.Offset(0, 1).Left
y1 = c.Top + (c.Height / 2)
x2 = Cells(i, 3)Left
y2 = Cells(i, 3).Top + Cells(i, 3).Height / 2)
ActiveSheet,Shapes.AddLine(x1, y1, x2, y2).Select
SelecTion.ShapeRange.Line.EndArrowheadStyle = _
mscArrowheadTriangle
End If
Next i
Next c
ActiveCell.Activate
End Sub
|
|