- ベストアンサー
アクティブ行の色を変えたい
関連する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列・・とそれぞれ条件付書式の設定を一列ずつしましたが、めんどうです。もっと簡単にできないものでしょうか？
- ベストアンサー
- オフィス系ソフト
お礼
範囲指定の仕方が分かりました。やってみて動作しました。ありがとうございます。図解いただき感謝いたします。