[[20170511165305]]　『ダブルクリックするとそのセルから指定の列数を塗』（ももんが）　ページの最後に飛ぶ

『ダブルクリックするとそのセルから指定の列数を塗りつぶし』（ももんが）

こんにちは。
ダブルクリックするとA1:E1が塗りつぶしされる以下のコードがあります。
これをダブルクリックしたセルの行をダブルクリックしたセルを含めて右5列が塗りつぶしされるようにするためにはどうしたら良いでしょうか。

例・・・
B2をダブルクリックするとB2:F2が塗りつぶしされる。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Range("A1:E1").Select

    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent6
        .TintAndShade = 0.399975585192419
        .PatternTintAndShade = 0
    End With
End Sub

よろしくお願いいたします。

＜使用 Excel：Excel2013、使用 OS：Windows10 ＞

 >Range("A1:E1").Select
 を
 >Range(Target, Target.Offset(, 4)).Select
 ではどうか。
（ねむねむ） 2017/05/11(木) 17:20

ねむねむ様

ありがとうございました。
おかげさまで作業効率が向上しました。
（ももんが） 2017/05/12(金) 11:48

コメント返信：

[ 一覧(最新更新順) ]

[[20170511165305]] 『ダブルクリックするとそのセルから指定の列数を塗』（ももんが） ページの最後に飛ぶ

[[20170511165305]]　『ダブルクリックするとそのセルから指定の列数を塗』（ももんが）　ページの最後に飛ぶ