エクセルの学校：全文検索：Hyper Estraier：平均平日

Results of 1 - 1 of about 28 for 平均平日 (0.001 sec.)

平均 (1364), 平日 (459)

[[20101005114041]]: #score: 10346; @digest: d254d1880d139f02547750d48362796e; @id: 51605; @mdate: 2010-10-07T00:09:50Z; @size: 2887; @type: text/plain; #keywords: 三木 (15272), 更… (13266), 緑d1 (7748), 赤b1 (7380), 粋… (7380), 20090408224411 (7107), 青c1 (7055), 色下 (6676), ・;) (5252), ク見 (4777), 近頃 (3817), colorindex (2864), ・_ (2271), beforedoubleclick (2168), 確信 (1849), target (1789), 頻繁 (1708), cancel (1510), ト全 (1275), intersect (1212), interior (1160), 余計 (932), 繁に (874), boolean (827), xlnone (798), 独覚 (781), 抜粋 (754), kei (741), 黄色 (690), nothing (645), ルク (617), 全体 (613); 『セルをクリックして色づけ』（三木）
特定のセルをクリックしただけで色をつけたいのです。マクロを組むのでしょうか? マクロを組むのでしたら教えて頂きたいのですが。 ---- 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) この番号を変更すると自由に!! 6で黄色でしたが、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) ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201010/20101005114041.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ