[[20191228131613]]　『条件付き書式の取得』（四太郎）　ページの最後に飛ぶ

『条件付き書式の取得』（四太郎）

sheet1のA列で塗りつぶしされているセルの値をsheet2のA2以下に昇順で取得する事は可能でしょうか。

＜使用 Excel：Excel2016、使用 OS：Windows10 ＞

申し訳ありません。質問内容がおかしかったので訂正します。
sheet1のA列で条件付き書式で塗りつぶしが行われているセルの値をsheet2のA2以下に昇順で貼り付けることは可能でしょうか。
（四太郎） 2019/12/28(土) 13:31

 こんにちは　＾＾ ＶＢＡの
DisplayFormat.Interior.Color
で取得出来たと思います。
書き出してからソートとかで
m(_ _)m
（隠居じーさん） 2019/12/28(土) 13:36

 すみません　m(_ _)m
DisplayFormat.Interior.Color
は他の色も取り込むみたいですね。色に頼らず。。。。
条件付き書式に設定した条件と同じ条件で抽出した方が
無難かもしれません。＾＾；
でわ
...大変失礼致しました。わたしはこの辺で退散させて戴
きます。他の方の回答をお待ちくださいませ。
<< _ _ >>
（隠居じーさん） 2019/12/28(土) 17:22

 「白猫であれ黒猫であれ、鼠を捕るのが良い猫である」（トウ小平）文字化けすますね。
 ということで、色がついていれば対象にしましたw。

 Sub test()
     Dim ws1 As Worksheet, ws2 As Worksheet
     Dim r As Range
     Dim p As Long

     Set ws1 = Worksheets("Sheet1")
     Set ws2 = Worksheets("Sheet2")

     p = 1
     For Each r In ws1.Range("A1", ws1.Cells(Rows.Count, "A").End(xlUp))
         If r.DisplayFormat.Interior.Color <> vbWhite Then
             p = p + 1
             ws2.Cells(p, 1).Value = r.Value
         End If
     Next
 End Sub
 ソートはそちらで手作業なり、マクロ記録でコードにするなり対応下さい。
（γ） 2019/12/28(土) 18:21

（隠居じーさん）さま（γ）さま返事が遅くなり申し訳ありませんでした。
（γ）さまのコードで指定の条件で取得が出来ました。
（隠居じーさん）さまにお教えいただいたDisplayFormatは今回使いませんが今後使う機会もあると思いますのでその際は活用させていただきます。
お二方ともありがとうございました。

（四太郎） 2020/01/06(月) 13:40

 γさんのプログラムもDisplayFormatを使っているのだが。
 条件付き書式と通常の書式設定の色を区別するのであれば
 DisplayFormat.Interior.Color
 と
 Interior.Color
 が異なるものを対象とするとか。

（ねむねむ） 2020/01/06(月) 13:49

いやいや私もDisplayFormatをモロに(標準語ですよねえ)使ってますよ。
結果オーライでなく中身もよく吟味してください。

衝突して負傷。

（γ） 2020/01/06(月) 13:51

コメント返信：

[ 一覧(最新更新順) ]

[[20191228131613]] 『条件付き書式の取得』（四太郎） ページの最後に飛ぶ

[[20191228131613]]　『条件付き書式の取得』（四太郎）　ページの最後に飛ぶ