SheetSelectionChangeイベント

Workbook.SheetSelectionChange

記述場所

  • ワークブックイベント (Microsoft Excel Objects / ThisWorkbook)

書式

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range) 

   ' 処理

End Sub

サンプル

選択範囲のシート名とアドレスをステータス バーに表示

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range) 
   Application.StatusBar = Sh.Name & ":" & Target.Address 
End Sub

選択したセルの背景色と文字色をランダムに変更

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
   
   Dim lngType As Long: lngType = Sh.Type
   Dim i As Long
   
   ' 現在ワークシートを選択している場合は処理します
   If lngType = xlWorksheet Then
       
       ' 選択したセルの背景色と文字色をランダムに変更します
       Target.Interior.ColorIndex = Int(Rnd * 57)
       Target.Font.ColorIndex = Int(Rnd * 57)
       
   End If
   
End Sub