VocExcel(単語帳) / VBA Tips
 
 [Key] エクセル / Excel / VBA /マクロ


<--- 戻る

選択している行の詳細を別セルに表示

サンプルファイル


選択行の詳細を別セルに表示します。




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
--