ダブルクリックでセルに色をつける方法

エクセルで、ダブルクリックしたセルに色が付くようにしたいのですが、
どんな方法があるのでしょうか？
教えてください。よろしくお願いします。

No.3 ベストアンサー 回答者： cafe_au_lait 回答日時： 2007/03/16 10:34

＞色のついていないセルをダブルクリックしたときは色がついて、既に色のついているセルをダブルクリックしたときは色が消える

では、こんな感じでいかがでしょう？

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With Target.Interior
If .ColorIndex = xlNone Then
.ColorIndex = 4
Else
.ColorIndex = xlNone
End If
End With
Cancel = True
End Sub

この回答へのお礼

素晴らしいです！ありがとうございます！

お礼日時：2007/03/16 11:30

No.2 回答者： kootsuki 回答日時： 2007/03/16 05:57

ダブルクリックの場合、ＮＯ１さんの回答となります。

実際にやってみると、セルとセルの間にカーソルがあるときのダブルクリックが効かないことがあります。右クリックで色をつけるのはどうですか？
その場合、以下のマクロとなります。マクロ登録の方法はＮｏ１さんと同じです。

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Target.Interior.ColorIndex = 6
Cancel = True
End Sub

この回答へのお礼

ありがとうございます！
右クリックも使えるんですね。気づいていませんでした。
実際使ってみて、右クリックのほうが使いやすければ変えていきたいと思います。

お礼日時：2007/03/16 09:18

No.1 回答者： cafe_au_lait 回答日時： 2007/03/15 19:37

VBAならできます。

シートタブを右クリック→コードの表示
出てきた画面に下のコードを貼り付けます。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Target.Interior.ColorIndex = 3 '色番号
'Cancel = True 'セルを編集したくないい場合は先頭のカンマを消去
End Sub

実際はもうすこし融通が利くようにしないといけなさそうですが。

この回答への補足

ありがとうございます。
更に図々しいお願いなのですが、色のついていないセルをダブルクリックしたときは色がついて、既に色のついているセルをダブルクリックしたときは色が消える、ということは可能なのでしょうか？

補足日時：2007/03/16 08:48