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

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

[[20171025112424]]: #score: 3703; @digest: 492f2329ffba929dbc04ed27c344a601; @id: 74689; @mdate: 2017-10-25T08:56:01Z; @size: 3371; @type: text/plain; #keywords: 色", (7064), formatcondition (4162), カリ (2472), ーニ (2229), ニン (2100), formatconditions (1955), 新シ (1897), wk (1816), 件付 (1678), ir (1612), ク先 (1531), 2017 (1163), 名", (1002), 水) (967), リー (954), 列挙 (862), き書 (810), 書式 (795), 回避 (792), 条件 (790), cells (762), 非常 (733), たリ (670), 付き (644), sheets (544), ルー (544), 見直 (519), リン (503), ンク (494), ゆう (489), エラ (460), ンさ (443); 『条件付き書式のルール印刷』（ゆう）
非常に困っています。シート上に条件付き書式が設定されています。 条件付き書式のルールを見直しをしていますが、設定されているルールが非常に多く設定されている条件付き書式のルールを印刷して、紙上で確認したいのですが、印刷方式が分かりません。お分かりなる方がいましたら、教えて下さい。よろしくお願いします。＜使用 Excel:Excel2010、使用 OS:Windows7 ＞ ---- 参考まで。 条件付き書式の数式を取得するExcelマクロ http://www.relief.jp/docs/excel-vba-get-formula-conditional-formatting.html （カリーニン） 2017/10/25(水) 11:53 ---- ご回答ありがとうございます。教えて頂きましたリンク先を参照に試してみます。（ゆう） 2017/10/25(水) 12:10 ---- 何度もすいません。先程、教えて頂いたリンク先のマクロを試してみましたが、 For Each fc In でコンパイルエラー:構文エラーとなり実行されませんでした。見当も付かず困ってます。アドバイスを頂ければ、幸いです。よろしくおねがい致します。（ゆう） 2017/10/25(水) 12:39 ---- 汎用的に使えそうな例なぞ。標準モジュールに貼ってから実行すると、新シートを追加し、ここに情報を列挙します。 Sub test() Dim wk As Worksheet Dim i As Long Dim j As Long Dim iR As Long Set wk = Sheets.Add wk.Range("A1:J1") = Array("シート名", "範囲", "文字色", "太字", "斜体", "背景色", "タイプ", "条件", "式1", "式2") iR = 1 For i = 1 To Sheets.Count For j = 1 To Sheets(i).Cells.FormatConditions.Count With Sheets(i).Cells.FormatConditions.Item(j) iR = iR + 1 wk.Cells(iR, "A").Value = Sheets(i).Name wk.Cells(iR, "B").Value = .AppliesTo.Address(0, 0) wk.Cells(iR, "C").Value = "'" & Right("000000" & Hex(.Font.Color), 6) wk.Cells(iR, "D").Value = .Font.Bold wk.Cells(iR, "E").Value = .Font.Italic wk.Cells(iR, "F").Value = "'" & Right("000000" & Hex(.Interior.Color), 6) wk.Cells(iR, "G").Value = .Type On Error Resume Next wk.Cells(iR, "H").Value = Array("", "xlBetween", "xlNotBetween", "xlEqual", "xlNotEqual", "xlGreater", "xlLess", "xlGreaterEqual", "xlLessEqual")(.Operator) wk.Cells(iR, "I").Value = "'" & .Formula1 wk.Cells(iR, "J").Value = "'" & .Formula2 On Error GoTo 0 End With Next j Next i End Sub （???） 2017/10/25(水) 13:02 ---- 私自身VBAで条件付き書式を操作することはほとんどないので、リンク先のコードた試してませんでした。 Excel2007で試したら確かにエラーになりました。 ↓の部分がネックになっていそうですが、回避方法はわかりません。 Dim fc As FormatCondition （カリーニン） 2017/10/25(水) 14:15 ---- カリーニンさんご紹介のリンク先にあるコードは、2010でも、条件付き書式の指定の仕方でエラーになりますね。うまくいく場合もありますが、まぁ、あまりよい例ではなかった、という事で。（???） 2017/10/25(水) 14:35 ---- ちなみに、エラー回避するならデータ型を Object に変えれば良いようです。数式の場合の条件付き書式にしか反応しないコードのようですし、他の条件付き書式を使う事まで検証しなかったのでしょうね。（???） 2017/10/25(水) 14:47 ---- カリーニンさん、???さん、アドバイスを頂きありがとうございました。また、???さんに至ってはコードまで提示して頂きイメージ通りの結果になりました。ありがとうございました。（ゆう） 2017/10/25(水) 17:56 ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201710/20171025112424.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ