- ベストアンサー
Excel2007 VBAで行のセルカラー変更後の枠線
- みんなの回答 （2）
- 専門家の回答
質問者が選んだベストアンサー
エクセルのオプションー表示の枠線の色を色々変えても効果は無いようだ。 別途そのセル範囲に、罫線を各セルに引いて、線の色をセル色と対立的な色指定するほか無いと思う。 システムカラーの問題でもなさそうだ。
その他の回答 (1)
- 有田 賢治（@ARIKEN43）
- ベストアンサー率50% (563/1116)
atseさん 今日は！ >Range(Cells(1, 1), Cells(1, 256)).Interior.Color = RGB(210, >210, 255)この方法だと完全に塗り潰されるのですが枠線を残すことは>できないでしょうか？ どうやら連続でセルに色を付けてしまうようです。 従って下記サイトを利用して後から表罫線を作成するマクロを追加したら良いと思います。(１例としたサイト) ■すぐに役立つエクセルのＶＢＡマクロ集(Excel VBA Macro HP)↓ http://www.asahi-net.or.jp/~zn3y-ngi/index.html 内容：ホームページの左にメニューが有るので、「セル制御」をクリック→細部メニュー→Macro セル制御・応用型の8* 使われたセル範囲に罫線を設定するをクリツクしますと、6-1) 罫線の設定画面にサンプルのマクロが表示されます。 セルの色付けは連続ですと罫線枠は隠れる仕様のようです。 罫線枠は太い線と色はセルに付けた色の反対色を選んだ方がハッキリするでしょう。 ■はじめてのユーザー定義関数 ～ 色のついたセルを合計↓ http://hp.vector.co.jp/authors/VA016119/hajimete/udf1.html 内容：ワークシート関数の中にはセルの色を取得できる関数はありません。しかし、マクロを使えば可能です。そこで、今回は VBA でユーザー定義関数を作り、色を取得するようにしてみましょう。 上記サイトは参考までに。
お礼
ご回答頂きありがとうございました。
関連するQ&A
- VBA 実行時エラー1004 について
いつもお世話になります。 作表をしていて、項目に色をつけたいのですが VBA 実行時エラー1004 Rangeメソッドは失敗しました。Globalオブジェクト というエラーが If Range(Cells(5, n - 4)).Interior.Color = RGB(252, 213, 180) Then のところででます。 If Range("Z5").Interior.Color = RGB(252, 213, 180) Then とすると、実行できます。 Sub カラー() Dim n As Long '列番号取得 '最終列取得 n = Cells(5, Columns.Count).End(xlToLeft).Column MsgBox "最終列は" & n '＝ 今回は30です。 'セルの色を変える If Range(Cells(5, n - 4)).Interior.Color = RGB(252, 213, 180) Then Range(Cells(3, n - 3), Cells(5, n)).Interior.Color = RGB(230, 184, 183) Range(Cells(39, n - 3), Cells(41, n)).Interior.Color = RGB(230, 184, 183) Range(Cells(68, n - 3), Cells(70, n)).Interior.Color = RGB(230, 184, 183) Range(Cells(104, n - 3), Cells(106, n)).Interior.Color = RGB(230, 184, 183) Range(Cells(133, n - 3), Cells(135, n)).Interior.Color = RGB(230, 184, 183) Range(Cells(169, n - 3), Cells(171, n)).Interior.Color = RGB(230, 184, 183) Range(Cells(198, n - 3), Cells(200, n)).Interior.Color = RGB(230, 184, 183) Range(Cells(234, n - 3), Cells(236, n)).Interior.Color = RGB(230, 184, 183) Range(Cells(263, n - 3), Cells(265, n)).Interior.Color = RGB(230, 184, 183) Range(Cells(299, n - 3), Cells(301, n)).Interior.Color = RGB(230, 184, 183) Range(Cells(329, n - 3), Cells(331, n)).Interior.Color = RGB(230, 184, 183) Range(Cells(365, n - 3), Cells(367, n)).Interior.Color = RGB(230, 184, 183) Else Range(Cells(3, n - 3), Cells(5, n)).Interior.Color = RGB(252, 213, 180) Range(Cells(39, n - 3), Cells(41, n)).Interior.Color = RGB(252, 213, 180) Range(Cells(68, n - 3), Cells(70, n)).Interior.Color = RGB(252, 213, 180) Range(Cells(104, n - 3), Cells(106, n)).Interior.Color = RGB(252, 213, 180) Range(Cells(133, n - 3), Cells(135, n)).Interior.Color = RGB(252, 213, 180) Range(Cells(169, n - 3), Cells(171, n)).Interior.Color = RGB(252, 213, 180) Range(Cells(198, n - 3), Cells(200, n)).Interior.Color = RGB(252, 213, 180) Range(Cells(234, n - 3), Cells(236, n)).Interior.Color = RGB(252, 213, 180) Range(Cells(263, n - 3), Cells(265, n)).Interior.Color = RGB(252, 213, 180) Range(Cells(299, n - 3), Cells(301, n)).Interior.Color = RGB(252, 213, 180) Range(Cells(329, n - 3), Cells(331, n)).Interior.Color = RGB(252, 213, 180) Range(Cells(365, n - 3), Cells(367, n)).Interior.Color = RGB(252, 213, 180) End If End Sub どこが間違っているのか教えていただけないでしょうか？ あと、スマートなコードの書き方もお願いします。
- ベストアンサー
- Excel（エクセル）
- Excel VBA 選択した範囲の1行目に色を付けたい
VBA初心者です。 セルB4～F15に表が作成されています。 プロシージャを実行して、セルB5～F15にブルー。表1行目のセルB4とF4のみに赤の色を付けるというコードを記述したいのです。 以下のように記述しました。 Sub セルに色() Range("B4").Select ActiveCell.CurrentRegion.Select Selection.Interior.ColorIndex = 8 Selection.Range(Cells(1, 1),Cells(1,5)).Interior.ColorIndex = 3 End Sub Rangeでは連続シートになるため、Unionに変更してみましたが、 Unionはオブジェクトがサポートされていない旨のエラーが出ました。 どのように記述すればよいでしょうか？ どうぞよろしくお願いいたします。
- ベストアンサー
- その他MS Office製品
- エクセル VBA 変更→セルの色が変わる
http://okwave.jp/qa/q2601257.html ↑こちらの質問に近いのですが、 ・フォントではなくセルの背景色を変える ・A列からF列までのみ対象：G列以降は変更しても色が変わらない としたいのです。どのようにすれば良いのでしょうか。 VBAについては全く体系だって勉強したことがないので良く分かっていません。 見よう見まねで以下のようにしてみましたが、うまくいきませんでした。 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column > 6 Then Exit Sub Target.Interior.Color = RGB(255, 0, 0) End Sub 3行目のTarget.～の所が黄色に示されてエラーがでます。 どのようにしたら上手くいくかご教示下さい。
- ベストアンサー
- オフィス系ソフト
- VBA ダブルクリックで行に色をつける方法
VBAでダブルクリックしたセルを含む行に色をつけたいです。 セルに色をつけるマクロは書いた（下記）のですが、これを行全体に色付けしたいのですが、 うまくいきません。 どなたかご教授ください。 Private Sub Worksheet_BeforeDoubleClick _ (ByVal Target As Range, Cancel As Boolean) If Not Application.Intersect _ (Target, Range("A3").CurrentRegion) _ Is Nothing Then With Target.Interior If .Color = vbRed Then .Color = xlNone Else .Color = vbRed End If End With Cancel = True End If End Sub よろしくお願いします。
- ベストアンサー
- その他MS Office製品
- エクセル ＶＢＡ の行選択
エクセルＶＢＡで行を選択する場合 Rows(1,1).select Range(Cells(2,2),Cells(5, 5)).EntireRow.Select の方法があると知りました。 この数値の部分に変数を入れるとエラーがでてしまいました。 どうすれば変数で行を選択することができるのか教えてください。 2003を使用しております。
- ベストアンサー
- オフィス系ソフト
- VBAのセルの色の設定について
EXCEL・VBAにて.Interior.Color=RGB(152, 251, 152)と設定しましたが 思った色(緑系の色)ではなくグレー系の色になってしまったのですが、 何か間違っているのでしょうか？ 何かわかる方いらっしゃいますでしょうか？ 実際のソースはしたの通りとなります。 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 13 Then Exit Sub Application.EnableEvents = False 'ステータス欄の入力の判断 Select Case Target.Value Case "あああ" Worksheets("シート１").Rows(Target.Row).Interior.Color = RGB(152, 251, 152) Case "いいい" Worksheets("シート１").Rows(Target.Row).Interior.Color = RGB(254, 208, 224) Case "ううう" Worksheets("シート１").Rows(Target.Row).Interior.Color = RGB(255, 255, 0) Case "えええ" Worksheets("シート１").Rows(Target.Row).Interior.Color = RGB(192, 192, 192) Case Else Worksheets("シート１").Rows(Target.Row).Interior.Color = RGB(255, 255, 255) End Select Application.EnableEvents = True 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
- ベストアンサー
- Visual Basic
- VBA シート 1行しか選択できないようにする
お世話になっております。 Excel2003を使用しております。 現在、スケジュールボードみたいなものをExcelで作っております。 作るに当たり、単に、セルを選択したら色が変わる…というようにしているのですが、 複数行選択できてしまうので困っています。 選択し始めたら、1行しか選択できないようにする方法は何かありますか？ 色を変更するのは、 Application.Intersect(Range(Target.Address), Range("D5:AA64"), Rows(Target.Row)).Interior 上記方法で1行しか変更できないようにしていますが、 下から上に複数行選択した場合も、 上から下に複数行選択した場合も 一番上の行の色が変わります（当たり前ですが） これでは困るので、 セルを選択する段階で、1行のみしか選択できないようにしたいです。 何か方法はないでしょうか？ 回答お待ちしております。
- ベストアンサー
- 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製品
- Excel2013にしたらVBAがすごく重くなった
会社のPCがExcel2010からExcel2013に変更されたのですが、Excel2010の環境で作成していたVBAマクロの処理がもの凄く遅くなってしまいました。 Excel2010では10秒ほど待てば終わった処理が30分以上かかるようになってしまい、業務効率を上げるために作ったVBAが逆に非効率になってしまい困っております。 (フリーズしたような感じになりますが、長時間までは処理は終わり、エラーは出ておりません) Excel2013で重くなった箇所を調べていたら、下記コード部分の繰返し処理で重くなっているのが分かりました。 処理の概要は、「全体」シートの指定列の最終行のセルから指定された番号(12345)があるか１行ずつ調べていき、ヒットしたらその行を全体を切取り、「●●」シートの最終行に貼り付けていく単純なものです。 「全体」シート行数は8000～10000行あります。 ・重くなっている処理の箇所 ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ Application.ScreenUpdating = False ActiveWorkbook.Worksheets("全体").Activate LastRow = Cells(Rows.Count, 1).End(xlUp).Row For i = 1 To LastRow If Cells(i, 5).Value Like "12345" Then Rows(i).Cut Sheets("●●").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) End If Next i ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ Excel2010で問題のなかった処理がExcel2013になって途端に重くなった原因自体も分かりませんが、問題点の回避方法や処理速度を改善する方法はありませんでしょうか。 よろしくお願いいたします。
- ベストアンサー
- Visual Basic
お礼
仰るように仕様ということのようなので諦めたいと思います。 ご回答頂きありがとうございました。