エクセルのマクロで複数のセルに色付する方法

エクセル２００３にて質問です。

ダブルクリックをすると、その行のAからHのセル
(例えば１Bでダブルクリックすると１Aから１Hまで、３Hでダブルクリックすると３Aから３Hまで)が、一番薄い灰色に塗られる

という設定って可能でしょうか？？？
無理なら、?Aでダブルクリックすると?A～?Hでも構いません。

よくA～Hまでの横の行に対して灰色やピンクなどで色付けするのですが横スクロールを伴いますし、他のセルも間違って選択してしまう等で困っています。

また、もう一度ダブルクリックで元にもどるって機能もあれば最高です。

誰かわかる方おしえてください。
よろしくお願いします。

No.2 ベストアンサー 回答者： merlionXX 回答日時： 2007/09/07 23:22

標準モジュールではなくシートのモジュールにコピペしてみてください。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim r As Long
If Target.Columns >= 8 Then Exit Sub
r = Target.Row
If Range(Cells(r, "A"), Cells(r, "H")).Interior.ColorIndex = xlNone Then
Range(Cells(r, "A"), Cells(r, "H")).Interior.ColorIndex = 15
Else
Range(Cells(r, "A"), Cells(r, "H")).Interior.ColorIndex = xlNone
End If
Cancel = True
End Sub

この回答へのお礼

ありがとうございます。
希望どおりで大変うれしいです。明日から仕事でさっそく使わせて頂きます。

お礼日時：2007/09/07 23:39

No.1 回答者： n-jun 回答日時： 2007/09/07 23:11

こんな感じでしょうか？

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim r As Range
Set r = Intersect(Target, Range("A:H"))
If r Is Nothing Then Exit Sub
With Range("A" & r.Row).Resize(, 8).Interior
If .ColorIndex = xlNone Then
.ColorIndex = 15
.Pattern = xlSolid
ElseIf .ColorIndex = 15 Then
.ColorIndex = xlNone
End If
End With
End Sub

この回答へのお礼

素早い回答ありがとうございます。

非常に助かりました。

お礼日時：2007/09/07 23:41