10/03/12 20:54:58
>>537
これの意味を勘違いしているような
Range("c3").Value = Range("c3").Value & buf1
セルc3の文字列を取出してbuf1の内容と文字列結合 → セルc3に上書き
この処理をすると これ以前にあった色指定が無効となる
つー事で
>>537を修正すると
Sub 文字列比較()
Dim str1 As String
Dim str2 As String
Dim buf1 As String
Dim buf2 As String
str1 = Range("B3")
str2 = Range("B4")
Range("c3").Value = str1
Range("c4").Value = str2
For i = 1 To Len(str1)
buf1 = Mid(str1, i, 1)
buf2 = Mid(str2, i, 1)
If StrComp(buf1, buf2, vbTextCompare) <> 0 Then
Range("c3").Characters(i, 1).Font.ColorIndex = 3
Range("c4").Characters(i, 1).Font.ColorIndex = 3
End If
Next
End Sub