エクセル、アクティブセルの行に色ではなく枠太線を付けたいです。

アクティブセルで色を付けることは出来ましたが
もともとのセルにはいろいろな色（解りやすくするため）がついています。
色がついている為に赤の枠太線でわかりやすくしたいです。

初心者で申し訳ございません。
何卒よろしくお願いいたします。

質問者からの補足コメント

• もともとの色は、そのままの状態でお願いいたします。

    補足日時：2015/12/13 12:34

• すみません。セルにもともと色を選択しているものはそのままで大丈夫でした。
  条件付きで文字列で色を変化させています。
  そちらは、無理でしょうか。

  No.4の回答に寄せられた補足コメントです。 補足日時：2015/12/13 16:10

No.6 ベストアンサー 回答者： tom04 回答日時： 2015/12/13 20:10

こんばんは！

一例です。
前提条件として
①　各セルに罫線（枠線）の設定はしていない。　
②　罫線に関する条件付き書式の設定はしていない。
②　1行目には最終列まで・A列には最終行までデータが入っている。
（1行目で最終列・A列で最終行を取得しているため）
とします。

シートモジュールですので
画面左下の操作したいSheet見出し上で右クリック　→　コードの表示　→　VBE画面のカーソルが点滅しているところに
↓のコードをコピー＆ペースト　→　Excel画面に戻り（VBE画面を閉じて）
セルを選択してみてください。

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'この行から//
Dim lastRow As Long, lastCol As Long, c As Range, myArea As Range
lastRow = Cells(Rows.Count, "A").End(xlUp).Row '←A列で最終列を取得//
lastCol = Cells(1, Columns.Count).End(xlToLeft).Column '←1行目で最終行を取得//
If Target(1).Row <> Target(Target.Count).Row Then
MsgBox "1行のみ選択してください"
Exit Sub
End If
Application.ScreenUpdating = False
For Each c In Range("A:A")
If c.Row > lastRow Then Exit For
If c.Borders(xlEdgeLeft).ColorIndex = 3 Then
Set myArea = c.Resize(, lastCol)
With myArea
.Borders(xlEdgeLeft).LineStyle = xlNone
.Borders(xlEdgeTop).LineStyle = xlNone
.Borders(xlEdgeRight).LineStyle = xlNone
.Borders(xlEdgeBottom).LineStyle = xlNone
End With
Exit For
End If
Next c
If Target.Row > lastRow Or Target.Column > lastCol Then Exit Sub
Set myArea = Range(Cells(Target.Row, "A"), Cells(Target.Row, lastCol))
With myArea.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 3
.Weight = xlMedium
End With
With myArea.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 3
.Weight = xlMedium
End With
With myArea.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 3
.Weight = xlMedium
End With
With myArea.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 3
.Weight = xlMedium
End With
Application.ScreenUpdating = True
End Sub 'この行まで//

※　枠線の設定をしてある場合は
枠線を消すようにしていますので、枠線の再設定のこーどが必要になります。

まずはこの程度で・・・m(_ _)m

この回答へのお礼

ありがとうございます。
やりたかったことができました。
わかりやすくなりました。
ありがとうございました。

お礼日時：2015/12/14 11:10

No.5 回答者： hallo-2007 回答日時： 2015/12/13 16:31

ＮＯ４です。

>色の塗りつぶしはなしにしておりますが、白に自動設定されてしまいます。
>もともとセルに色づけされている色が白に変化してしまいます。
書式の設定の塗りつぶしのウィザードの右下にある　クリア　ではダメでしょうか。

>条件付きで文字列で色を変化させています。
>そちらは、無理でしょうか。
ちょっと、どうしているのか、どうしたいのか　がわからないのですが・・・

この回答へのお礼

すみません。
元々のセルに条件付きの文字列で色が設定されており、
そのセルの部分の色は白に変化してしまいます。
解りづらく申訳ございません。

お礼日時：2015/12/13 16:36

No.4 回答者： hallo-2007 回答日時： 2015/12/13 15:45

ＮＯ３です。

４、書式をクリックしてご希望の塗りつぶしの色や罫線を設定して　ＯＫ、終了
の部分の設定で
４、書式をクリックしてご希望の罫線だけを設定して　ＯＫ、終了
と思うのですが、ダメだったでしょうか。

この回答へのお礼

お返事ありがとうございます。
色の塗りつぶしはなしにしておりますが、白に自動設定されてしまいます。
もともとセルに色づけされている色が白に変化してしまいます。

罫線は選択することができました。できれば細い線しか設定できませんでした。

お礼日時：2015/12/13 16:07

No.3 回答者： hallo-2007 回答日時： 2015/12/13 14:15

>アクティブセルで色を付けることは出来ましたが

どの方法で設定されたのでしょうかね。
一例ですが
１、シート全てを選択、リボン　ホーム　中央付近の　条件付き書式
２、新しいルール＝＞　数式を使って・・・
３、数式　=CELL("row")=ROW()　を入れて　
４、書式をクリックしてご希望の塗りつぶしの色や罫線を設定して　ＯＫ、終了
５、これだけでは、数式の　再計算をクリックしないので、再計算の機能をＶＢＡで実行します。
６、シート名のタブを右クリック、コードの表示をクリックすると　ＶＢエディターが起動しますので
７、以下を張り付けて閉じます。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calculate
End Sub
次からは、選択したセルの行にご希望の色、罫線が自動で表示されます。

この回答へのお礼

ご回答ありがとうございます。
こちらのやり方と一緒でございます。

もともとのセルには、色がついておりますので罫線だけを表示させたいのですが
方法は御座いますでしょうか。

お礼日時：2015/12/13 14:48

No.2 回答者： soixante 回答日時： 2015/12/13 13:28

VBAのイベントプロシージャで可能と思われますが

どこからどこまでどのようにデータが入っているか、
アクティブセルにどうしたいのか、
などをもっと詳細に書くとよい回答が付くでしょう。

この回答へのお礼

お返事ありがとうございます。
アクティブセルの1行の全体に枠太線を付けたいです。
データはＡ列よりＭ列400行ぐらいまで入っております。１つ１つのセルには、いろいろな色が付けております。その色を残して選択しているセルの行をわかりやすく枠線を付けたいです。

お礼日時：2015/12/13 13:36

No.1 回答者： 錦鱗 回答日時： 2015/12/13 12:48

>アクティブセルで色を付ける

これはVBAで？それとも条件付き書式で？

VBAなら記述の内容を
Selection.Borders.LineStyle = xlContinuous
Selection.Borders.Weight = xlThick
とするなどで対処できると思います。

条件付き書式の方はわかりません。
セルを選択してアクティブにしただけでは、上手く行の色が変更されないはずで、おそらくイベントプロシージャと組み合わせないとならないはずです。

この回答へのお礼

ご回答ありがとうございます。
条件付きで色を付けることはできました。

VBAは、やったことが無いのでわかりません。

もしよろしければ、ＶＢＡの設定の仕方をお教え頂けませんでしょうか。
何卒よろしくお願いいたします。

お礼日時：2015/12/13 12:52