[[20211118210525]]　『下線や赤字など書式を含めてvlookup』（tpg）　ページの最後に飛ぶ

『下線や赤字など書式を含めてvlookup』（tpg）

固有番号をキーにしてvlookup関数で表示させたい元データには、部分的に下線がひかれていたり、赤字や青字になっています。
関数を使うと下線は消え文字の色は黒一色になってしまうのですが、マクロなどでそのような個別の書式まで反映できるのか、もし可能ならばどのようなマクロになるかが知りたいです。
なお、元セルから反映先セルへ書式のコピーを試したら、一部下線ではなく全部下線になる等、元の書式とは異なる結果になりました。

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

　条件付き書式は↓下の式で設定しますかね。　これだけで理解できるかな？

　FormatConditions.Add(Type:=xlExpression, Formula1:=

　と上記の構文と VBA で検索してみてください。
　フォントの文字、背景色、日付け期間など設定できますよ。

　FormatConditions.Delete で条件付き書式を切り替えてたり
　削除も可能です。

　具体的なシートのレイアウトを示したら、もっと詳しく誰かが教えてくれるかと
　思いますです。
（あみな） 2021/11/18(木) 21:35

　追記フォントの文字色です。

（あみな） 2021/11/18(木) 21:37

あみな様
早速のご返事ありがとうございます！
検索してみましたが、なかなか私には難しいかもしれません。
雑な質問で大変失礼いたしました。
具体例を準備して、出直してきます。
（tpg） 2021/11/18(木) 21:49

 外していたらすみません。
 単純にセルごとコピーすれば良い、という事では無いんでしょうか？

    |[A]|[B]       |[C]     |[D]|[E]       
 [1]|  1|あいうえお|        |  2|かきくけこ←赤文字になる
 [2]|  2|かきくけこ|←赤文字|   |          
 [3]|  3|さしすせそ|        |   |

 Sub Macro1()
    Dim i As Long
    For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
        With Cells(i, "A")
            If .Value = Range("D1").Value Then
                .Offset(, 1).Copy Range("E1")
            End If
        End With
    Next i
 End Sub          
（まるごとバナナ） 2021/11/18(木) 22:12

まるごとバナナ様

ありがとうございます。
また返事遅くなりすみません。
はい！ご推察の通り、まさしく単純なコピペでこざいました。
これをD1.E1だけてはなくA列、D列内のすべてで合致する番号のB列内容をD列にコピペできるようになれば、求めていた結果になりますが、可変にするにはどのようにすれば良いのでしょうか。
（tpg） 2021/11/19(金) 21:20

 セルのコピペで解決するかもという投稿の為の例ですので
 場当たり解決的ですけど、二重ループで。
 他の方法は別の方の回答をお待ちください。

 Sub Macro2()
    Dim i As Long, j As Long
    For j = 1 To Cells(Rows.Count, 4).End(xlUp).Row
        For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
            With Cells(i, 1)
                If .Value = Cells(j, 4).Value Then
                    .Offset(, 1).Copy Cells(j, 4).Offset(, 1)
                End If
            End With
        Next i
    Next j
 End Sub
（まるごとバナナ） 2021/11/19(金) 22:43

まるごとバナナ様
早速ありがとうございます。
お陰様で大変助かりました。
また、勉強になりました。
（tpg） 2021/11/20(土) 18:09

コメント返信：

[ 一覧(最新更新順) ]

[[20211118210525]] 『下線や赤字など書式を含めてvlookup』（tpg） ページの最後に飛ぶ

[[20211118210525]]　『下線や赤字など書式を含めてvlookup』（tpg）　ページの最後に飛ぶ