[[20090408224411]]　『ダブルクリック』（はら）　ページの最後に飛ぶ

『ダブルクリック』（はら）A1のせるをダブルクリックするとセルA1を黄色く塗りつぶしたいのですができますか？実際はA1:P1までのセル数になります。宜しくお願いします。

 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  Dim Rng As Range, myRng As Range
  Set Rng = Range("A1:P1")
  Set myRng = Intersect(Target, Rng)
  If myRng Is Nothing Then Exit Sub
  Rng.Interior.ColorIndex = xlColorIndexNone
  myRng.Interior.ColorIndex = 6
  Cancel = True
 End Sub

 色付けが目的なのでダブルクリックしても入力状態にならないようにしています。
 入力状態にしたいときは、Cancel = Trueを削除してください。

 （りんご姫）

同じセルにダブルクリックで色が付き　またダブルクリックで色が消え各セルに色を付けたり消したりしたいのですができますか？説明不足ですみません。（はら）

 こんな感じでどうでしょうか？(ROUGE)
'----
 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 If Intersect(Target, Range("A1:P1")) Is Nothing Then Exit Sub
 Cancel = True
 With Target.Interior
  .ColorIndex = IIf(.ColorIndex = 6, xlNone, 6)
 End With
 End Sub

理想の動きになりました。りんご姫さんROUGEさん今回は有難うございました。（はら）

コメント返信：

[ 一覧(最新更新順) ]

[[20090408224411]] 『ダブルクリック』（はら） ページの最後に飛ぶ

[[20090408224411]]　『ダブルクリック』（はら）　ページの最後に飛ぶ