ベストアンサー

エクセルですカーソルの列に色を付けたい

2016/02/16 14:58

エクセルの2007ですカーソルの位置の列全体にに色を付けたいですやり方がわからないのですいませんがよろしくお願いします

ymrys73
お礼率11% (33/276)

オフィス系ソフト
回答数8
ありがとう数1

みんなの回答 （8）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

m3_maki
ベストアンサー率64% (296/460)

2016/02/16 16:54 回答No.5

こちらを参考に。アクティブセルの行に色を付ける http://hamachan.info/win7/Excel/active.html

その他の回答 (7)

mitarashi
ベストアンサー率59% (574/965)

2016/02/21 01:01 回答No.8

人様の受け売りですが、後腐れの無いこの方法が良いと存じます。行・列共に着色されますが、列だけに改造は容易です。 http://okwave.jp/qa/q4029237.html ThisWorkbook モジュールに、 Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Application.EnableEvents = False With Target Range(.EntireColumn.Address & "," & .EntireRow.Address).Select 'Range(.EntireColumn.Address).Select '列のみ .Activate End With Application.EnableEvents = True End Sub

imogasi
ベストアンサー率27% (4737/17069)

2016/02/16 17:56 回答No.7

質問者は、質問の内容が途中で変わるレベルだし、ＶＢＡはできないだろうから本件はあきらめた方がよい。下記（Ａ）、（Ｂ）のそれぞれに、列記号部分を選択すること、と、セルの書式設定で、塗りつぶしなしにする操作が必要ですがやむを得ない。手作業操作で（消去と設定の）２段になることを我慢して（Ａ）列船体の塗指氏の色を設定（Ｂ）一段前の色設定の列の色を設定をなしにするこれならわかっていると言いたいかもしれないが。ーーエクセルにはVBAというものがあり、その機能の中にイベントというものがあり、そこに Worksheet_SelectionChangeイベントがある。必ずしも、質問者に向かって、やってみてはと言っているのではないが、それを使ってＶＢＡでやるなら、私の考えた方法は、標準モジュールに、まず Public m Sub test01() Set m = Range("A1") End Sub を作る。ーー次にＳｈｅｅｔ１のWorksheetのSelection_Changeイベントで Private Sub Worksheet_SelectionChange(ByVal Target As Range) Target.EntireColumn.Interior.Color = vbYellow m.EntireColumn.Interior.Color = xlNone Set m = Target End Sub と作り、前者の標準モジュールのTest１を事前に１回だけ実行しておく。その後Sheet１の、ある列のどれかのセルをクリックすると、列全体が黄色になり、他の列のセルに移ってクリックすると、前の列の色は消え、クリックしたセルが黄色になる。ーーしかしこれも自信を持って勧められない。（１）毎回ブックを開くときにTest01を実行しておかなければならないこと。クリックの初回だけは、（前回に当たるものがなく）処理が例外的にならざるを得ないと思うが、それのしのぎ方です。これを省きたいのだが、小生の力不足で、今もって実現する方法がわからない。WEBなどの関連記事にも出くわさない。（２）この着色を、ある段階以後で止める方法を備えてないこと。着色をやめたいところの、シート利用段階があるはず。これはボタンでもシートに設けて、着色モードとその他通常モードを切り替えることはできるが、処理が煩雑になる。（３）エラーが起こると,VBAの知識が無いと修復できないだろうこと。VBAのイベントの利用になれてないと行き詰まると思う。質問者が作っても他の人が使う場合は混乱するだろうと思う。

chie65536（@chie65535）
ベストアンサー率44% (8741/19839)

2016/02/16 16:59 回答No.6

追記。「画面がチラチラして気になる」という場合は、添付画像のように、最初と最後に１行づつ足してください。

chie65536（@chie65535）
ベストアンサー率44% (8741/19839)

2016/02/16 16:48 回答No.4

＞あ、説明不足ですいません＞現在のカーソルのある位置の色を変えたいのです＞もしカーソルが変わると色のついた列も変えたいのです＞なんとかなりませんかね？該当シートの「選択範囲が変化した時に呼ばれるイベント」に、以下のコードを埋め込んで下さい。 Private Sub Worksheet_SelectionChange(ByVal Target As Range) Application.EnableEvents = False Cells.Select Selection.Interior.ColorIndex = xlNone Columns(Target.Column).Select With Selection.Interior .ColorIndex = 3 '赤色を指定 .Pattern = xlSolid End With Target.Select Application.EnableEvents = True End Sub ただし「カーソルが居なくなった場所のセルの色が『色なし』に戻る」ので、シートのセルに色付けしてある表では使えません。

shaikencenter
ベストアンサー率35% (191/539)

2016/02/16 16:45 回答No.3

いまどこにカーソルがあるのかを、色で分かるようにしたいということだと思います。いろいろ調べましたが、私も解りません。参考のURLから「Excel cell collor」で検索すると「網掛けを適用してをーくシートの・・・・」が見れます。これはは　1行ごとに色を付けるよう（実際は網掛けをつけていますが）にするやり方で、これを使うと1列ごとに変えることもできます。ご希望には添えませんんが、当面の回答とさせていただきます。