|
こんばんわ。
HTML形式で保存して、ソースを比較したらいけるかな?って考えてみたけど、あかんみたいやね。
やっぱし1文字ずつ比較せんとしゃーないんとちゃうかな?
わての環境(Excel2003)では、そんなに重くはならへんねんけど・・・
数式の数がめっちゃ多いんでっしゃろか?
Function 完全一致(Comp1 As Range, Comp2 As Range) As Boolean
Dim F1 As Font
Dim F2 As Font
Dim i As Long
完全一致 = False
If Not Comp1.HasFormula And _
Not Comp2.HasFormula Then
If Comp1.Value = Comp2.Value Then
For i = 1 To Len(Comp1.Value)
Set F1 = Comp1.Characters(i, 1).Font
Set F2 = Comp2.Characters(i, 1).Font
If F1.Bold <> F2.Bold Then Exit Function
If F1.Color <> F2.Color Then Exit Function
If F1.FontStyle <> F2.FontStyle Then Exit Function
If F1.Italic <> F2.Italic Then Exit Function
If F1.Size <> F2.Size Then Exit Function
If F1.Strikethrough <> F2.Strikethrough Then Exit Function
If F1.Subscript <> F2.Subscript Then Exit Function
If F1.Superscript <> F2.Superscript Then Exit Function
If F1.Underline <> F2.Underline Then Exit Function
Next
完全一致 = True
End If
End If
Set F1 = Nothing
Set F2 = Nothing
End Function
うまいこといかんかったらかんにんな。
ほな。
|
|