Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

18577 / 76732

←次へ　｜　前へ→


	【63595】線を縦てに引きたい。

ﾄｷﾉﾊｼﾞﾒ - 09/11/20(金) 13:22 -


	引用なし

	パスワード

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

　　　

1 hits

▼

【63595】線を縦てに引きたい。 ﾄｷﾉﾊｼﾞﾒ 09/11/20(金) 13:22

≪