[[20151006151204]]　『変更箇所のところだけ色をつける』（あかね）　ページの最後に飛ぶ

『変更箇所のところだけ色をつける』（あかね）

セル内の文字列のうち、変更した文字列だけに色を付けたいです。

エクセルAAIIUUＥＥ→ｴｸｾﾙAAEEuuEE

AA以外は変更有ですので、AA以外にだけに色を付けたいです。
全半角の変更や大文字小文字の変更等も判断したいです。できますでしょうか？

＜使用 Excel：Excel2013、使用 OS：Windows8 ＞

 エクセルAAIIUUＥＥ→ｴｸｾﾙAAEEuuEE 
                     ~~~~  ~~~~~~
 ↑の場合は下線でいいですよね？

 エクセルAAIIUUＥＥ→エクセル　AAIIUUＥＥ

 この場合は？
 もし色をつけるならどういうルールになりますか？

 2回目以降に変更した場合はどうなりますか？
 どれと比較しますか？
 エクセルAAIIUUＥＥ→ｴｸｾﾙAAEEuuEE→ｴｸｾﾙAAEEuuＥＥ

（稲葉） 2015/10/06(火) 15:31

 似たような質問を見た覚えがあったので、参考に載せておきます。
[[20080614203750]]　『比べ』（11）　>>BOT
（稲葉） 2015/10/06(火) 15:41

書式設定の限界を気にしないマクロ例なぞ。

 Sub test()
    Dim wkDst As Worksheet
    Dim R As Range
    Dim i As Long
    Dim cw As String

    Set wkDst = Sheets("Sheet2")

    For Each R In Range("A1").CurrentRegion
        cw = wkDst.Range(R.Address)
        If R.Value <> cw Then
            For i = 1 To Len(R.Value)
                If Mid(R.Value, i, 1) <> Mid(cw, i, 1) Then
                    With R.Characters(Start:=i, Length:=1).Font
                        .Color = RGB(255, 0, 0)
                    End With
                End If
            Next i
        End If
    Next R
 End Sub

文字単位でなく、セル単位で十分な気がしますけどねぇ。セル単位ならもっと簡単。
（???） 2015/10/06(火) 16:25

「校閲」の「変更履歴の記録」でも良いかもですねぇ。
（???） 2015/10/06(火) 16:42

稲葉さん、???さん、ご連絡ありがとうございます。
アドバイスのおかげで、望んでいるものが完成しました(*'ω'*)
ありがとうございますm(_　_)m
（あかね） 2015/10/06(火) 19:17

コメント返信：

[ 一覧(最新更新順) ]

[[20151006151204]] 『変更箇所のところだけ色をつける』（あかね） ページの最後に飛ぶ

[[20151006151204]]　『変更箇所のところだけ色をつける』（あかね）　ページの最後に飛ぶ