HOME > Q&A > Excel （一般機能）

Excel （一般機能）
Excelの一般機能に関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 10 Pro : Microsoft 365)
移動セルの色を緑から他色に変更したい
投稿日時: 22/10/14 08:48:54
投稿者: takatada72

お世話になります。
 
在宅勤務をしている時に思うのですが、家のモニターの解像度が悪いため、Excelで
セルを移動していても、現在、どのセルに移動しているのかが分かりにくいのです。
 
そこで、赤い色にすれば、気がつけるかと考えております。
検索しても、セル全体の色替えは、出てくるのですが、移動中のセルの色替えは、
見つかりませんでした。
 
ご存知の方がおりましたら教えて頂けないでしょうか
 
宜しくお願い致します。
回答
投稿日時: 22/10/14 09:18:10
投稿者: んなっと

「移動中のセル」の意味が不明です。
 
仮にアクティブセルに色を付けるなら
 
　条件付き書式 数式を使用して〜
=AND(CELL("Col")=COLUMN(),CELL("Row")=ROW())
　　書式 塗りつぶし 赤
 
→Alt+F11でThisWorkbookに
 
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
 Application.ScreenUpdating = True
End Sub
 
→*.xlsmで保存
投稿日時: 22/10/14 09:30:44
投稿者: takatada72

早速のご回答をありがとうございました。
 
移動中のセルと分かりにくく失礼しました。
移動する時のセルの色になります。
 
全体のシートの枠の色は、グレーになります。
セルがある部分は、緑色になっていて、その色を他の色
に変更したいのです。
 
私の内容は、分かりますでしょうか
んなっとさんが投稿して頂いた方法を確認してみますね
 
引き続き宜しくお願い致します。
投稿日時: 22/10/14 09:52:04
投稿者: takatada72

んなっとさんが投稿して頂いた条件付きを試してみました。
 
セルを移動しただけだと色づきは、しませんでした。
セルを選択して編集モードにすると、セルに色が付きました。
 
できれば、セルを移動後に色付けできるとありがたいのです。
可能でしょうか
 
引き続き宜しくお願い致します。
回答
投稿日時: 22/10/14 10:01:12
投稿者: んなっと

→Alt+F11でThisWorkbookに
  
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
 Application.ScreenUpdating = True
End Sub
投稿日時: 22/10/14 10:30:09
投稿者: takatada72

ありがとうございました。
 
最初、同じように登録したのですが、うまく色付けされませんでした。
今回、ファイルを開き直してやってみたらできました。セルの場所が
リアルタイムに色付けされ、選択されている場所がわかりました。
 
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
 Application.ScreenUpdating = True
End Sub