Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

68742 / 76807

←次へ　｜　前へ→


	【12597】Re:セル同士の完全な比較

ｂｙｋｉｎ - 04/4/8(木) 21:43 -


	引用なし

	パスワード

こんばんわ。

ＨＴＭＬ形式で保存して、ソースを比較したらいけるかな？って考えてみたけど、あかんみたいやね。
やっぱし１文字ずつ比較せんとしゃーないんとちゃうかな？

わての環境（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

うまいこといかんかったらかんにんな。
ほな。

0 hits

▼

【12588】セル同士の完全な比較 Ni 04/4/8(木) 11:11