エクセルの学校：全文検索：Hyper Estraier：条件付き書式

Results of 1 - 1 of about 4506 for 条件付き書式 (0.006 sec.)

[[20040302104138]]: #score: 3703; @digest: 239cd1521f1d31a3f62f7ab16c88c8df; @id: 5525; @mdate: 2004-03-04T02:18:03Z; @size: 2341; @type: text/plain; #keywords: findformat (9490), 類条 (7380), 然書 (5090), formulahidden (5027), popo (3438), 数種 (3092), 」条 (2750), 付書 (2284), 件付 (2051), 色番 (1474), 塗り (1412), ク変 (1272), 判別 (1262), searchformat (1227), 条件 (1185), xlformulas (1155), searchdirection (1153), xltoleft (1009), 書式 (972), （po (947), searchorder (914), xlbyrows (810), 返答 (780), 象範 (771), ト変 (700), 削除 (678), ぶし (670), ブロ (667), matchcase (626), つぶ (606), りつ (574), 件で (459); 『VBA:塗りつぶしセルの削除』（POPO）
sheetには削除したいセルを条件付書式を使って塗りつぶしてあります（色番号は3です）。そして、「塗りつぶしたセルを検索して削除する」という作業をマクロによって行いたいと考え、以下のようにマクロを組んでみました。 Sub Macro1() With Application.FindFormat.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .ColorIndex = 3 End With Application.FindFormat.Locked = True Application.FindFormat.FormulaHidden = False Cells.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _ xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _ , SearchFormat:=True).Activate Selection.Delete Shift:=xlToLeft End Sub （上記のうち、最後の「Selection.Delete Shift:=xlToLeft」以外は http://support.microsoft.com/default.aspx?scid=kb;ja;282153を参考にしました）しかし実行すると「実行時エラー '91': オブジェクト変数または With ブロック変数が設定されていません。」と表示されてしまいます。これはマクロの組み方が誤りなのでしょうか。それとも条件付書式で塗りつぶしたセルは検索できないのでしょうか。皆様のご意見をお聞かせください。よろしくお願いします。 ----- 条件付書式で塗りつぶしたセルと、セルの塗りつぶしは別物です。 1箇所のセルに設定して、試してみると分かると思います。なので、その条件付書式の条件で検索して削除するしかないと思います。 (INA) ----- INAさん、早速のご返答ありがとうございました。たしかに単なるセルの塗りつぶしに対しては動作しますね。＞なので、その条件付書式の条件で検索して削除するしかないと思います。とのことですが、削除対象を判別する条件付書式が数種類あるため、どうしても「条件付書式で塗りつぶした色」に基づいて検索をしたいのです。重ねての質問で申し訳ありませんがそのようなことは可能なのでしょうか。ご教授いただければ幸いです。よろしくお願いします。（POPO) ---- >条件付書式が数種類 条件付き書式で対応できないときは、VBAを使うのですから「条件付き書式で設定している」条件であれば、VBAでも当然書けるはずです。対象範囲をfor each〜next でループさせて、 if文などを用いて「条件付き書式で設定している」条件で、判別すれば良いのです。 (INA) ------ INAさん、せっかくご返答いただいたのに返事が遅くなりましてすみません。ループやIFはあまり使ったことがないのですがこれを機に勉強してみたいと思います。どうもありがとうございました。（POPO) ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/200403/20040302104138.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ