[[20190617132218]]　『ダブルクリックで列に色をつける』（あろりん）　ページの最後に飛ぶ

『ダブルクリックで列に色をつける』（あろりん）

エクセルの表で、E3～AI33の範囲に
ダブルクリックしたセルがある列に色を付けたいと思います。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

  If Intersect(Target, Range("E3:AI33")) Is Nothing Then Exit Sub

  With Selection.Interior
    If .ColorIndex = xlNone Then
      .ColorIndex = 36
    Else
      .ColorIndex = xlNone
    End If
  End With

  Cancel = True

End Sub

これですと、ダブルクリックしたセルだけに色が付きます。
列に色を付けるには、どこを変えたらいいでしょうか・・・

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

1行全部色付けて良いのですかね？

 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Intersect(Target, Range("E3:AI33")) Is Nothing Then Exit Sub

    Rows(Target.Row).Interior.ColorIndex = IIf(Target.Interior.ColorIndex = xlNone, 36, xlNone)
    Cancel = True
 End Sub
（???） 2019/06/17(月) 13:41

ありがとうございます。
行ではなく、列に色をつけたいので、RowsをColumnsに変えたらいいのかな？と思いましたが、
違いますね…
（あろりん） 2019/06/17(月) 13:48

あ、すいません、列でしたね。読み違えました。
Rows部分をColumnsに変える、という考えで合ってますが、Target.Column のところを変えなかったとか？

 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Intersect(Target, Range("E3:AI33")) Is Nothing Then Exit Sub

    Columns(Target.Column).Interior.ColorIndex = IIf(Target.Interior.ColorIndex = xlNone, 36, xlNone)
    Cancel = True
 End Sub
（???） 2019/06/17(月) 13:56

ありがとうございます( ;∀;)
列に色がつきました！

色を付ける範囲をE3-AI33の範囲だけにとどめることはできますか？

（あろりん） 2019/06/17(月) 14:00

全部でないなら、最初からそのように言ってもらえば…。
列は既に絞ってあるので、後は塗る行を指定すれば良いです。

 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Intersect(Target, Range("E3:AI33")) Is Nothing Then Exit Sub

    Range(Cells(3, Target.Column), Cells(33, Target.Column)).Interior.ColorIndex = IIf(Target.Interior.ColorIndex = xlNone, 36, xlNone)
    Cancel = True
 End Sub
（???） 2019/06/17(月) 14:56

ありがとうございました。完璧です！
初めにお伝えしていたつもりでしたが、書き方が悪かったですね(;'∀')
すみませんでした。ありがとうございました。
（あろりん） 2019/06/17(月) 15:04

コメント返信：

[ 一覧(最新更新順) ]

[[20190617132218]] 『ダブルクリックで列に色をつける』（あろりん） ページの最後に飛ぶ

[[20190617132218]]　『ダブルクリックで列に色をつける』（あろりん）　ページの最後に飛ぶ