【Excelマクロ】セルがある行を分かりやすく表示するマクロ

Excelマクロの紹介

セルがある行を分かりやすく表示するマクロ。
使いたいシートにマクロを置いてください。

セルが動く度に、上下に横線を引きます。
線を描いているだけなので、触ると線を動かせてしまいます😅
毎回描画しなおすので、ワンテンポ遅れます😅

※ソースは、マイネ王上で表示するために、半角スペースを全角スペースに変換しています


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
　　Application.ScreenUpdating = False

　　With Target
　　　　Dim i As Long
　　　　For i = ActiveSheet.Shapes.Count To 1 Step -1
　　　　　　If ActiveSheet.Shapes.Item(i).Name = "uh_Line" Then
　　　　　　　　ActiveSheet.Shapes.Item(i).Delete
　　　　　　End If
　　　　Next i

　　　　Dim myLine As Shape
　　　　Dim startCell As Range
　　　　Set startCell = ActiveCell.Offset(0, 0)
　　　　Set myLine = ActiveSheet.Shapes.AddLine(startCell.Left - 10000, startCell.Top, startCell.Left + 10000, startCell.Top)
　　　　myLine.Name = "uh_Line"
　　　　myLine.Line.ForeColor.RGB = RGB(255, 165, 0) ' オレンジ色
　　　　myLine.Line.Weight = 1 ' 太さ
　　　　
　　　　Set startCell = ActiveCell.Offset(1, 0)
　　　　Set myLine = ActiveSheet.Shapes.AddLine(startCell.Left - 10000, startCell.Top, startCell.Left + 10000, startCell.Top)
　　　　myLine.Name = "uh_Line"
　　　　myLine.Line.ForeColor.RGB = RGB(255, 165, 0) ' オレンジ色
　　　　myLine.Line.Weight = 1 ' 太さ

　　End With

　　Application.ScreenUpdating = True
End Sub

Excelについて語ろう♪ サークル https://king.mineo.jp/circle/873488a183eadfb1