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 質問
【63596】Re:線を縦てに引きたい。 Jaka 09/11/20(金) 14:06 発言
【63606】Re:線を縦てに引きたい。 トキノハジメ 09/11/20(金) 17:45 質問
【63607】Re:線を縦てに引きたい。 トキノハジメ 09/11/20(金) 18:08 お礼

18577 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free