[[20101005114041]]　『セルをクリックして色づけ』（三木）　ページの最後に飛ぶ

『セルをクリックして色づけ』（三木）

 特定のセルをクリックしただけで色をつけたいのです。
 マクロを組むのでしょうか？
 マクロを組むのでしたら教えて頂きたいのですが。

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

 If Intersect(Target, Range("A:XFD")) Is Nothing Then Exit Sub
 Cancel = True

 With Target.Interior
  .ColorIndex = IIf(.ColorIndex = 3, xlNone, 3)

 End With
 End Sub

 上記をシートモジュールにコピペで試してみて下さい！！

[[20090408224411]]　より抜粋…自分のスタイルに合わせて変更♪

 まずは全文検索等で検索してみることをお勧めします☆

 上記のマクロは　Range("A1:P1")　という範囲でしたが、シート全体に変更…等

 自分で変えて使ったりできますよ。色々見てみるといいかも知れません☆

 カラーは　IIf(.ColorIndex = 3, xlNone, 3)　　この番号を変更すると自由に！！

 ６で黄色　でしたが、３で赤にしてみました(^^ゞ

 あくまで…ご参考まで<m(__)m>

 （忍）

 忍さん、こんにちわ。。
 余計かもしんないけど・・。

 >シート全体に変更…等
 であれば、、
 >If Intersect(Target, Range("A:XFD")) Is Nothing Then Exit Sub
 のコードを書かなければ良いです。
 その場合は、全てのセルでイベントマクロが実行されます。色を付けたくないセルがあっても・・。
 だから、色を付けたいセル範囲だけを上記のコードで指定するわけです。
 近頃は、頻繁に出てこれなくなっちゃった ^^;(kei)

 >Range("A:XFD")
 これ、2003以前の場合にはエラーになりませんか？
 (それとも三木さんの過去の書き込み等から環境が2007以降だとわかっているのかな)

 あと、クリックではなくダブルクリックで変更されるということを説明しておいた方がいいかと。
 (独覚)

 keiさん（お久しぶりです）

 余計じゃないっス(^_^;)　範囲を変えたい場合は…って思って全体にしたら…
 それは必要じゃなかったですね(^^ゞ　最近自分…頻繁に来てます(・・;)

 独覚さん

 ダブルクリックは書くつもりが忘れてました…
 で、2007以降という確信もありませんでした。。。(・_・;)
 リンク見てもらえたら…なんて思ってましたから（汗）

 （忍）

ありがとうござます。

A1～A10までは赤
B1～B10までは青
C1～C10までは緑
D1～D10までは黄色
下記の部分のどこをどのように変更したらいいのでしょうか？

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

 If Intersect(Target, Range("A:XFD")) Is Nothing Then Exit Sub
 Cancel = True

 With Target.Interior
  .ColorIndex = IIf(.ColorIndex = 3, xlNone, 3)

 End With
 End Sub

（三木）

 おはよーございます。。

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

    If Intersect(Target, Range("A1:D10")) Is Nothing Then Exit Sub
    Cancel = True
    With Target.Interior
        If Target.Column = 1 Then .ColorIndex = 3
        If Target.Column = 2 Then .ColorIndex = 5
        If Target.Column = 3 Then .ColorIndex = 10
        If Target.Column = 4 Then .ColorIndex = 6
    End With
 End Sub
 でしょうか?
 (kei)

コメント返信：

[ 一覧(最新更新順) ]

[[20101005114041]] 『セルをクリックして色づけ』（三木） ページの最後に飛ぶ

[[20101005114041]]　『セルをクリックして色づけ』（三木）　ページの最後に飛ぶ