Private Sub Worksheet_SelectionChange(ByVal Target As Range)


　'シート上に選択行の詳細を表示する

　On Error Resume Next

　Dim myRow

　myRow = ActiveCell.Row


　If myRow >= 11 And myRow <= Cells(65536, "B").End(xlUp).Row Then

　Cells(3, "C") = Cells(myRow, "B") '連番
　Cells(4, "C") = Cells(myRow, "C") '単語
　Cells(5, "C") = Cells(myRow, "D") '意味

　Else

　Cells(3, "C") = "" '連番
　Cells(4, "C") = "" '単語
　Cells(5, "C") = "" '意味



　End If


End Sub