Results of 1 - 1 of about 406 for kazu 条件付書式 (0.004 sec.)
kazu (7739), 条件付書式 (2650)
- [[20080624141548]]
- #score: 6689
- @digest: 67d9ba268a4d3ee045b25cb3b463d37b
- @id: 38697
- @mdate: 2008-06-25T04:23:50Z
- @size: 1501
- @type: text/plain
- #keywords: 上49 (6506), 色sh (6466), 加設 (5200), 応問 (4966), 務中 (3133), 上以 (3011), formatconditions (2933), 着色 (2695), を着 (1849), 加( (1848), xlpasteformats (1806), 日以 (1657), xlexpression (1534), ロ自 (1516), 件2 (1157), formula1 (956), selection (953), e2qw (944), operation (678), skipblanks (668), うマ (599), 赤色 (587), 件1 (514), select (488), 連絡 (484), 条件 (395), 返答 (390), interior (386), pastespecial (383), 黄色 (345), 以上 (331), colorindex (318)
- 『以上以下の範囲に着色というマクロ』（まるまる）
いつもお世話になっております。 どなたか教えてください。 ↓のようなものをマクロを作成しました。（初心者なので変かもしれません） このマクロ自体は一応問題なく実行されるのですが、 『30日以上49日以下には黄色を着色』というマクロを追記したいのですが、 どうしたらよいでしょうか? よろしくお願いいたします。 '50日以上に赤色を着色 Sheets("SH").Select Range("A2:I2").Select Selection.FormatConditions.Delete Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _ "=AND($I2>=50)" Selection.FormatConditions(1).Interior.ColorIndex = 3 Selection.Copy Range("A3").Select Range("A3:I5000").Select Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Range("A1").Select End With ---- 条件付書式の条件1(1)に =AND($I2>=50) を入れたのですよね? でしたら、その後「追加(A)>>」を押して 条件2(2)に =AND($I2>=30) を設定するのはどうでしょう? 記録にとればコードが分かると思います。 http://www.excel.studio-kazu.jp/lib/e2qw/e2qw.html http://www.excel.studio-kazu.jp/lib/e4b/e4b.html なお、条件は一つしかないので、AND関数に入っている必要はなさそうですが・・・。 (HANA) ____ HANAさん早速のご返答ありがとうございました。 勤務中の為、ご連絡が遅くなり申し訳ございませんでした。 おっしゃるとおり、条件2に追加設定することで、うまくいきました。 ありがとうございました。 まるまる ____... - https://www.excel.studio-kazu.jp/wiki/kazuwiki/200806/20080624141548.txt - [detail] - similar
PREV
NEXT
Powered by Hyper Estraier 1.4.13, with 97044 documents and 608215 words.
訪問者：