エクセルで列を反転表示する方法とは？

質問

• エクセルで自動で列を反転表示する方法を紹介します。
• エクセルのシート上でマウスの動きに合わせて列全体の色を変える方法も紹介します。
• エクセルのVBAを使って行や列の色を自動で変えることも可能です。

回答No.2

siddhaartha

＞既に塗りつぶしされている行を通過すると塗りつぶしされていた行が
＞塗りつぶしなしになってしまいました

気づいちゃいましたか。そこの制御を入れようか迷ったんですが
めんどくさ・・・いや、その場合の動きをどうしたいのかが質問文からは
分からなかったので省きました。

「既に塗りつぶされている行」が個別セルの色ってことではなく
単純に”行全体”の色のことであれば、下のようなコードはどうでしょう。

＃個別セルの色ってことならばその行に含まれる全使用セルの
＃全色を記憶する領域を作ってやれば同じ考えかたで出来ます。

前のコードから「ADD」と「Modify」の数行を変更しただけです。

-----------------------------------------------
Public glnBfrRow As Long '選択行の記憶領域
'---- ADD START ----
Public glnBfrColor As Long '選択行の色記憶領域
'---- ADD E N D ----

Private Sub Worksheet_SelectionChange _
(ByVal Target As Range)

'複数セル選択時は無視
If (Target.Count > 1) Then
Exit Sub
End If

'前の選択行の色を戻す
If (glnBfrRow <> 0) Then
Rows(glnBfrRow).Interior. _
ColorIndex = glnBfrColor '--- Modify
End If

'---- ADD START ----
'現在の選択行の色を記憶
glnBfrColor = Target.Cells(1, 1). _
Interior.ColorIndex
'---- ADD E N D ----

'現在の選択行の色を変更
Rows(Target.Row).Interior. _
ColorIndex = 15 '<---好きな色番号に変更

'現在の選択行を記憶
glnBfrRow = Target.Row

End Sub
-----------------------------------------------

お礼

再度ご返答ありがとうございます！！

試してみました。
例えばA5～D5までが黄色で塗られていた場合に
カーソルが通り過ぎるとA5～IV5までが黄色になってしまいました。
またA5～D5までが黄色、E5～G5までが緑の場合にカーソルが通り過ぎるとA5～IV5までが緑になってしまいました。

う～、いい感じなのに～！というところでした！！
でも、ご親切に本当にありがとうございました。

私が望んでいるのはニッカンスポーツのトップ→プロ野球→スコア速報→ニッカン式スコアでチームの選手の詳細結果が表示されていて、そこにマウスをあてると薄いブルーに反転表示され横一列のつながりや見やすくなる機能です。これは機能名？はあるのでしょうか？

今やってる仕事でもこの機能が使えたら確認時間が多少短縮されると思い、できないかな～と思いました。

本当にありがとうございました。