Excel VBA質問箱 IV

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

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


68669 / 76734 ←次へ | 前へ→

【12597】Re:セル同士の完全な比較
回答  bykin  - 04/4/8(木) 21:43 -

引用なし
パスワード
   こんばんわ。

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

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

【12588】セル同士の完全な比較 Ni 04/4/8(木) 11:11 質問
【12597】Re:セル同士の完全な比較 bykin 04/4/8(木) 21:43 回答
【12603】Re:セル同士の完全な比較 Ni 04/4/9(金) 8:53 お礼

68669 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free