- ベストアンサー
アクティブ行の色を変えたい
アクティブ行の色を変えたいのですが、下記の手順「やったこと」で設定しても設定色に変更されません。以下の操作以外は何もしていませんが、設定手順に問題があるのでしょうか。尚、対象はＥＸＣＥＬの該当「シート」のみ対応させたいと考えています。※［やったこと］以外の操作は一切行っていません。 ［環境］MS Office2007（Windows10） ［ＥＸＣＥＬ情報］ ファイル名：ムービーリスト フィールド名：Ａ～Ｈ Ａ列：ＮＯ「１からの連番で特に意味はない」 Ｂ列：タイトル名「約１３００ほど」 Ｃ列：製作国 Ｄ列：ジャンル「アクション・・・他」 Ｅ列：主演 Ｆ列：実話可否「対象を（実話）と記載」 Ｇ列：アカデミー可否「対象を（アカデミー賞）と記載」 Ｈ列：内容「映画の解説」 ［やったこと（条件付書式）］ １，「条件付き書式」→「新しいルール」→「数式を利用して、書式設定するセルを決定」 ２，数式欄：=CELL("row")=ROW() ３，書式をクリック：色を選択 ４，コマンドボタンの「ＯＫ」を選択 ［やったこと（Visual Basic）］ １，「開発」→「Sheet1（ムービー）」→「コードの表示」 ２，Worksheet_SelectionChangeイベント 「Private Sub Worksheet_SelectionChange(ByVal Target As Range) Application.ScreenUpdating = True End Sub」 ３，「上書き保存」→「いいえ」→「ファイルの種類（ＥＸＣＥＬマクロ有効ブック）」→「名前：ムービーリスト」→「保存」 以上ですが、宜しくお願いします。
- eokwave
- お礼率65% (395/606)
- Excel（エクセル）
- 回答数4
- ありがとう数3
- みんなの回答 （4）
- 専門家の回答
質問者が選んだベストアンサー
>そこで「=$A:$H1332」に変更しましたが保存できませんでした。 「=$A:$H1332」は誤りで、「$A$7:$H$1332」に変更してください。 「保存できませんでした」が意味不明です。 「適用」ボタンで変更できないということならA列に行番号が無いためです。 「$A:$H」のように列のみを指定すると1行から最終行まで全行を指定したことになります。
その他の回答 (3)
- imogasi
- ベストアンサー率27% (4737/17068)
前の質問もそうだが、下記のステップ（下記3、４、５など以下など）を順次踏んで、コードを書いてますか。いきなりコードを他の箇所からVBE画面にコピペしている、などありませんか。 ワークシートの画面で １．開発ーＶｉｓｕａｌＢａｓｉｃ ２．ＶＢＥ画面がでて、そこで ３．表示 ４．プロジェクトエクスプローラー ５．そこでＳｈｅｅｔ１などシートの選択 ６・コード ーー＞ＶＢＥの白紙の用紙が出る ７．「Generaｌ」と表示されているところのドロップダウンで、Worksheetを選ぶ ８．右側の「Declaration」部で「tSelectionChange」を選ぶ ９．そこで出てきた Private Sub Worksheet_SelectionChange(ByVal Target As Range) End Sub の空白行に Target.Interior.ColorIndex = 6 を入れる。 シート画面を出し、シートのセルをクリックすると黄色に色づく。 ただし前段階で色付けたセルの色は消えない、これをどうするか。 勉強してください。 条件つき書式と違ってVBAでやるときの面倒なところ。
お礼
アドバイスをありがとうございます。
- bunjii
- ベストアンサー率43% (3589/8248)
>［やったこと（条件付書式）］ 適用先はどのように設定しましたか？ =$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」に変更しましたが保存できませんでした。 ご面倒欠けますが「値」をどう確定すれば良いのでしょうか。
関連するQ&A
- ＶＢＡの設定「２題」
最初に取り組んだＥＸＣＥＬのＶＢＡですが、何人かの方にアドバイスを戴きましてやっと「まともな質問」ができる様になりました。やりたい事への完成アドバイスをお願いします。 「環境］MS Office2007（Windows10） ・ファイル名：ムービーリスト ・フィールド名：Ａ～Ｈ、Ａ列：ＮＯ「１からの連番で特に意味はない」、Ｂ列：タイトル名「約１３００ほど」、Ｃ列：製作国、Ｄ列：ジャンル「アクション・・・他」、Ｅ列：主演、Ｆ列：実話可否「対象を（実話）と記載」、Ｇ列：アカデミー可否「対象を（アカデミー賞）と記載」、Ｈ列：内容「映画の解説」 ・該当シートにＶＢＡを設定したい。 １，前段階で選択した色を消したい。 理由：下記の構文では選択したセルの色は変わるが、前段階で色付けたセルの色は消えない為。 Private Sub Worksheet_SelectionChange(ByVal Target As Range) Target.Interior.ColorIndex = 6 End Sub ２，下記構文に「１」の構文をコピペして追加すると「１」で設定した機能が動作しない。※「Generaｌ」→「Worksheet」、「Declaration」→「SelectionChange」の設定ができないのでコピペしました。 理由：「１」と「２」の機能を同時に動作させたい。 Private Sub Worksheet_SelectionChange(ByVal Target As Range) For Each sha In ActiveSheet.Shapes If sha.Name = "MTxt" Then sha.Delete Next ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 0, 0, 1270, 80.6).Select Selection.Name = "MTxt" Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = _ "題名：" & Cells(Target.Row, 2).Value & Chr(13) & _ "内容：" & Chr(7) & Cells(Target.Row, 8).Value Target.Select End Sub ３,分からないこと 内容：下記の構文が記載されているとき、１の構文を追加したい時に「Generaｌ」→「Worksheet」、「Declaration」→「SelectionChange」が選択できないので、１の構文を貼り付けていますが、正しい方法なのでしょうか。 Private Sub Worksheet_SelectionChange(ByVal Target As Range) For Each sha In ActiveSheet.Shapes If sha.Name = "MTxt" Then sha.Delete Next ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 0, 0, 1270, 80.6).Select Selection.Name = "MTxt" Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = _ "題名：" & Cells(Target.Row, 2).Value & Chr(13) & _ "内容：" & Chr(7) & Cells(Target.Row, 8).Value Target.Select End Sub 以上ですが、宜しくお願いします。
- ベストアンサー
- Excel（エクセル）
- シート上に指定した列を表示するエリアを作りたいII
シート上に指定した列を表示するエリアを作りたいII。宜しくお願いします。 ［環境］MS Office2007（Windows10） ［ＥＸＣＥＬ情報］ ファイル名：ムービーリスト フィールド名：Ａ～Ｈ Ａ列：ＮＯ「１からの連番で特に意味はない」 Ｂ列：タイトル名「約１３００ほど」 Ｃ列：製作国 Ｄ列：ジャンル「アクション・・・他」 Ｅ列：主演 Ｆ列：実話可否「対象を（実話）と記載」 Ｇ列：アカデミー可否「対象を（アカデミー賞）と記載」 Ｈ列：内容「映画の解説」 「xlsx」ファイルから「xlsm」ファイルへ保存すると「VBA」の設定が動作しません。プロセスが悪いと思いますが、結局のところ「ＥＸＣＥＬ ＶＢＡ未経験」分かっていないので解決できないでいます。以下に［解決したい内容（自身の勝手ですいません）］を２点あげております。アドバイスをお願い致します。 ［解決したい内容（自身の勝手ですいません）］ １，保存後に起動するとテキストボックスは表示されるが、行を選択移動してもテキストボックスの内容が終了時のままです。 ※ＶＢＡ保存時の手順「上書き保存」→「いいえ」→「ＥＸＣＥＬマクロ有効ブック（＊,xlsm）」→「保存」 ２，１～５行目に作成されるテキストボックスのサイズ変更しても元に戻ってしまいます。サイズを変更する方法「固定化」を教えて下さい。 ［やったこと］ １，ＥＸＣＥＬファイルの１～５行目を空白としました。 ２，操作手順：「開発」→「コードの表示」→「Sheet1（ムービー）」→「アドバイス構文」 Private Sub Worksheet_SelectionChange(ByVal Target As Range) For Each sha In ActiveSheet.Shapes If sha.Name = "MTxt" Then sha.Delete Next ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 0, 0, 270, 67.5).Select Selection.Name = "MTxt" Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = _ "タイトル名：" & Cells(Target.Row, 2).Value & Chr(13) & _ "内容：" & Chr(13) & Cells(Target.Row, 8).Value Target.Select End Sub 以上ですが、宜しくお願いします。
- ベストアンサー
- Excel（エクセル）
- Excelの条件付書式設定で１行おきに色をつけたシートにフォントの色の条件を指定したい
Excel2003です １行おきに色をつける条件付書式 「数式が =MOD(ROW(),2)=0のとき パターンを黄色」 を設定したシートのある列に 数値がマイナス（０より小さい）のとき、フォントの色を赤 数値がプラス（０より大きい）のとき、フォントの色を黒 の条件付書式設定したいのですがその方法を教えてください
- ベストアンサー
- オフィス系ソフト
- Excelで選択しているセルの行を色づけしたい
以前、このサイトでVBAを以下のように設定したのですが、 一度、ファイルを閉じてしまうと、無効になってしまいます。どうすれば、いいのでしょうか？ Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) ActiveSheet.Rows.Interior.ColorIndex = xlNone Rows(Target.Row).Interior.ColorIndex = 15 End Sub
- ベストアンサー
- オフィス系ソフト
- シート上に指定した列を表示させるエリアを作りたい
ご面倒をお掛けしますが、アドバイスをお願いします。 使用エクセルのバージョン：Office 2007 Professonal ［エクセルシートの構成］ Ａ列：ＮＯ「１からの連番で特に意味はない」 Ｂ列：タイトル名 Ｃ列：製作国 Ｄ列：主演 Ｅ列：実話可否「対象を（実話）と記載」 Ｆ列：アカデミー可否「対象を（アカデミー賞）と記載」 Ｊ列：内容「映画の解説」 内容は情報が多いので「行」をクリックする事で、シート内の別エリアに表示させる方法は無いのでしょうか。その他、同じ効果が期待できる方法（行のスクロールでは無く）がありましたら教えて下さい。
- ベストアンサー
- Excel（エクセル）
- セルの選択でその行に色を付けたい
横に長いデータがあり、その1つのセルを選択するとその行全体に色が付くようにしたいのです。過去の質問で以下のようなものを見つけましたが、問題はその場合、通常のコピー→貼り付けができない点です。 その辺を問題なく行える方法はないでしょうか？ よろしくお願いいたします。 Public m, n Private Sub Worksheet_SelectionChange(ByVal Target As Range) If m <> 0 Then Range(Cells(m, 1), Cells(m, 256)).Interior.ColorIndex = n End If m = Target.Row n = Target.Interior.ColorIndex Range(Cells(Target.Row, 1), Cells(Target.Row, 256)).Interior.ColorIndex = 6 End Sub
- ベストアンサー
- その他MS Office製品
- エクルで選択した行に色をつけて見易くしたい
エクセルで選択した行に色をつけて見易くしたいと思い、以下のVBAを見つけて実行してみましたが、元のセルに色がついているとエラーが出てしまいます。 解決方法はないものでしょうか？ Private m_ROW As Long '変更前の行番号 Private m_IRO As Long '変更前の色 Private Const MYCOLOR As Long = 36 '変更する色番号 Private Sub Worksheet_SelectionChange(ByVal Target As Range) '選択した行に色を付ける If Target.Row > 1 Then '2行目以降を対象とする '変更前の色に戻す If m_ROW <> 0 Then Rows(m_ROW).Interior.ColorIndex = m_IRO End If '変更前の行番号と色を記憶 m_ROW = Target.Row m_IRO = Rows(Target.Row).Interior.ColorIndex '色を変更 Rows(Target.Row).Interior.ColorIndex = MYCOLOR End If End Sub どなたかお助けください、、宜しくお願い致します。
- 締切済み
- Visual Basic
- エクセルで選択中の列や行を見やすくしたい
タイトルのとおり、選択中の列や行の色が一列全部変るように したいと思い調べ、以下のＶＢＥコードを見つけたんですが Public m Private Sub Worksheet_SelectionChange(ByVal Target As Range) If m <> 0 Then Range(Cells(m, 1), Cells(m, 256)).Interior.ColorIndex = xlNone End If Range(Cells(Target.Row, 1), Cells(Target.Row, 256)).Interior.ColorIndex = 6 m = Target.Row End Sub 確かに色は変るんですが、もともとついている箇所の色が 消えていってしまいます。 色が消えずに同じことは出来ないでしょうか。 ご存知の方いらっしゃいましたら教えてください。 よろしくお願いします。
- ベストアンサー
- その他([技術者向] コンピューター)
- エクセルVBAで条件付書式の色を取得
セルに条件付書式で書式設定してあります。 A1は「値」100以下 A2は「値」500以下 A3は「値」１～１０の間 B1は「数式」で=B1<A1 以下さまざまな数式があります。 条件に一致すると、セルの文字が「赤」になります。 このとき、 Private Sub Worksheet_SelectionChange(ByVal Target As Range) MsgBox Target.Font.ColorIndex End Sub を実行しても、ColorIndexは、赤の「3」ではなく「-4105」と表示されます。 「-4105」は何もフォントの色を指定してないセルでも同じく表示されます。 質問１．条件付書式で、条件が一致して表示されたフォントの色は取得できないのでしょうか？ 質問２．-4105とは何でしょうか？
- ベストアンサー
- オフィス系ソフト
- たとえばA2～H2まで（行）色をつけたい。
お世話になっております。 Excel2000です。 たとえばA1～H１まではタイトル行だとします。 H列に○の印がついている行だけに色をつけたいのです。 （たとえばH２に○があるとしたら、A2～H2までの列に色をつけたい） とりあえず、私は、A2をクリック（選択）して条件付書式で設定しました。 （数式を選んで、=H2="○"という風にしてみました） そして、下のほうにマウスの右ボタンを押しながら書式のコピーをしてとりあえずA列は設定することはできましたが、A2から右の方に書式のコピーはできませんでした。そういうものなのでしょうか？ 仕方がないので、B列、C列・・とそれぞれ条件付書式の設定を一列ずつしましたが、めんどうです。もっと簡単にできないものでしょうか？
- ベストアンサー
- オフィス系ソフト
お礼
範囲指定の仕方が分かりました。やってみて動作しました。ありがとうございます。