アクティブ行の色を変えたい

質問

アクティブ行の色を変えたいのですが、下記の手順「やったこと」で設定しても設定色に変更されません。以下の操作以外は何もしていませんが、設定手順に問題があるのでしょうか。尚、対象はＥＸＣＥＬの該当「シート」のみ対応させたいと考えています。※［やったこと］以外の操作は一切行っていません。

［環境］MS Office2007（Windows10）
［ＥＸＣＥＬ情報］
ファイル名：ムービーリスト

フィールド名：Ａ～Ｈ
Ａ列：ＮＯ「１からの連番で特に意味はない」
Ｂ列：タイトル名「約１３００ほど」
Ｃ列：製作国
Ｄ列：ジャンル「アクション・・・他」
Ｅ列：主演
Ｆ列：実話可否「対象を（実話）と記載」
Ｇ列：アカデミー可否「対象を（アカデミー賞）と記載」
Ｈ列：内容「映画の解説」

［やったこと（条件付書式）］
１，「条件付き書式」→「新しいルール」→「数式を利用して、書式設定するセルを決定」
２，数式欄：=CELL("row")=ROW()
３，書式をクリック：色を選択
４，コマンドボタンの「ＯＫ」を選択

［やったこと（Visual Basic）］
１，「開発」→「Sheet1（ムービー）」→「コードの表示」
２，Worksheet_SelectionChangeイベント

「Private Sub Worksheet_SelectionChange(ByVal Target As Range)
　　Application.ScreenUpdating = True
　End Sub」

３，「上書き保存」→「いいえ」→「ファイルの種類（ＥＸＣＥＬマクロ有効ブック）」→「名前：ムービーリスト」→「保存」

以上ですが、宜しくお願いします。

回答No.3

bunjii · ベストアンサー

>そこで「=$A:$H1332」に変更しましたが保存できませんでした。
「=$A:$H1332」は誤りで、「$A$7:$H$1332」に変更してください。
「保存できませんでした」が意味不明です。
「適用」ボタンで変更できないということならA列に行番号が無いためです。
「$A:$H」のように列のみを指定すると1行から最終行まで全行を指定したことになります。

お礼

範囲指定の仕方が分かりました。やってみて動作しました。ありがとうございます。

回答No.4

okormazd

適用先の入力位置が違う。

お礼

範囲指定の仕方が分かりました。やってみて動作しました。ありがとうございます。図解いただき感謝いたします。

回答No.2

imogasi

前の質問もそうだが、下記のステップ（下記3、４、５など以下など）を順次踏んで、コードを書いてますか。いきなりコードを他の箇所からVBE画面にコピペしている、などありませんか。
ワークシートの画面で
１．開発ーＶｉｓｕａｌＢａｓｉｃ
２．ＶＢＥ画面がでて、そこで
３．表示
４．プロジェクトエクスプローラー
５．そこでＳｈｅｅｔ１などシートの選択
６・コード　　ーー＞ＶＢＥの白紙の用紙が出る
７．「Generaｌ」と表示されているところのドロップダウンで、Worksheetを選ぶ
８．右側の「Declaration」部で「tSelectionChange」を選ぶ
９．そこで出てきた
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub
の空白行に
Target.Interior.ColorIndex = 6
を入れる。
シート画面を出し、シートのセルをクリックすると黄色に色づく。
ただし前段階で色付けたセルの色は消えない、これをどうするか。
勉強してください。
条件つき書式と違ってVBAでやるときの面倒なところ。

お礼

アドバイスをありがとうございます。

回答No.1

bunjii

>［やったこと（条件付書式）］
適用先はどのように設定しましたか？
=$A$1:$H$1300 のように指定すれば適用範囲を超えた行および列へ移動しても塗りつぶしされないでしょう。
すべての行を対象にするときは =$A:$H のように指定すると良いでしょう。

>［やったこと（Visual Basic）］
https://hamachan.info/win7/Excel/active.html のような参考を丸写しですよね？
このVBAの動作はアクティブセルの移動を検知して再計算していると思います。
動作確認していませんがコードに誤りが無いようです。

補足

早速のアドバイスをありがとうございます。
おっしゃる通り「https://hamachan.info/win7/Excel/active.html のような参考を丸写しですよね？」でございます。構文行を１行空けたり、開始をずらしたりを何度も試しました「馬鹿なことでしたが、知らないことは触らない方が幸せかと思った次第です」。しかし、これは人助けの面もありまして、実現しなくてはなりません。質問での文言足らずはお許し下さい。

アドバイスいただいたとおり「次の数式を満たす値を書式設定」でエリアを指定するコマンドボタンを押してマウススクロールさせると「=$A$7:$H$1332」になりましたので「=$A7:$H1332」に変更しましたが保存できませんでした。そこで「=$A:$H1332」に変更しましたが保存できませんでした。

ご面倒欠けますが「値」をどう確定すれば良いのでしょうか。