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
|