Excel (一般機能)

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

 
(Windows 8.1 : Excel 2013)
アクティブセルの表示
投稿日時: 18/11/28 15:26:15
投稿者: kazbow
メールを送信

お世話になります。
アクティブセルの列及び行に色をつけて現在のセルをわかりやすくしたいのです。
例えばカーソルがD8にあった場合には、D列と8行目を、D9に移動したらD列と9行目というようにしたいのですが、一般機能ではできないでしょうか?
宜しくお願いします。

回答
投稿日時: 18/11/28 16:40:15
投稿者: Suzu

アクティブなセルに倣って
 
セルの左側の 行 を表わす数字、 列を表わす アルファベット の
背景色が変わっているのですが、それでは不足なのでしょうか。
 
セル色変えると、折角背景色を変えて居たりしているのが判らなくなってしまいますよ。

投稿日時: 18/11/28 16:47:09
投稿者: kazbow
メールを送信

早速の返答ありがとうございます。
アクティブセルを分かりやすくしたいのです。
背景色は利用してないので、問題ありません。
宜しく御願いします。

回答
投稿日時: 18/11/28 16:49:51
投稿者: Suzu

一般機能であれば条件付き書式でしょう。
 
条件式に
=OR(CELL("ROW")=ROW(), CELL("COL")=COLUMN())
 
書式はお好みでどうぞ。
 
 
入力する度にセルの色が変わる。。
私なら、そんな余計なお世話の設定なぞ要らん!! ってクレーム入れるレベルの機能です。
 
あーー再計算のタイミングに(入力開始等)しか追従しません。
あくまでリアルタイムでなら、VBAが必要。

回答
投稿日時: 18/11/28 17:00:15
投稿者: WinArrow
投稿者のウェブサイトに移動

自動的にカーソルのある位置のセルに色を付けることは、一般機能では無理です。
 
一つの方法としては、
(1)条件付き書式を使用して、カーソルの場所の判定と、塗りつぶし色を設定します。
条件付き書式を設定したいセル範囲を選択しておいて
「条件付き書式」ー「数式を使用して〜〜」−「ルール」のボックスに
=AND(CELL("row")=ROW(),CELL("COL")=COLUMN())
を入力し、「書式」は任意に設定します。
 
(2)VBEの画面で、Thisworkbookモジュールに次のプロシジャを作成します。
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    Application.ScreenUpdating = True
End Sub
 
 
 
 

回答
投稿日時: 18/11/28 17:04:14
投稿者: WinArrow
投稿者のウェブサイトに移動

補足
(1) 、 (2) のどちらかではなく
(1) と (2) の両方です。(

投稿日時: 18/11/28 18:01:14
投稿者: kazbow
メールを送信

ありがとうございました。
アクティブセルに色が付きました。
 
欲を言うとアクティブセルだけでなく、アクティブセルのある行及び列にも色を付ける事は出来ませんか?
重ね重ねのお願で申し訳ありませんが宜しくお願いします。m(__)m

回答
投稿日時: 18/11/28 18:22:39
投稿者: WinArrow
投稿者のウェブサイトに移動

kazbow さんの引用:

アクティブセルのある行及び列にも色を付ける事は出来ませんか?

 
=OR(CELL("row")=ROW(),CELL("COL")=COLUMN())

投稿日時: 18/11/28 19:24:07
投稿者: kazbow
メールを送信

ありがとうございました。
お陰様で希望通りの動きとなりました。
今後とも宜しくお願いします。