VBAマクロ セル範囲同士の比較

Question

セル範囲同士のを比較し、完全に合致していたら「ok」、１つでも合致していなかったら「ng」とメッセージボックスを表示したいです。

例)a1からa5に入力された値と、b1からb5に入力された値でそれぞれa1とb1が等しい、a2とb2が等しい…という風に、すべて等しい場合、「ok」が出るようにしたいです。

if文を使い、
if (range("a1:a5") = range("b1:b5") then
msgbox "ok"
とやってみましたが、できませんでした。
rangeでセル範囲同士の比較はできないのでしょうか？

わかる方いましたら、お願いします。

Answer 1

Rangeに含まれるセルの値どおしを比較するにはループを使わなきゃだめです。

たとえば、

Dim a As Range
Set a = Range("A1:A5")
'bも同じようにしてください。

Dim i As Integer 'ループ回数のカウンター

'カウンタが1からセルの個数になるまで繰り返し処理
For i = 1 To a.Cells.Count
  If a.Cells(i).Value <> b.Cells(i).Value Then
    MsgBox "ng"
  End If
Next i 'この行に来たら「For ～」の行に勝手に戻ります。

のように書いていきます。

Comments

[qwerty123]

ご回答ありがとうございます。
このプログラムで実施しましたところ、間違いが複数あった場合、その数だけアラートがでてしまいます。間違いがいくつあってもアラートを一度だけ表示するようにするには、どうすれば良いでしょうか。

[tkturbo]

「のように」というのが肝要で。
今回は100%の正解を書いているつもりはありません。
「間違いが複数あった場合、その数だけアラートがでてしまいます。」というのであれば、間違いがあった時だけ値が変わる変数を一つ用意しておけばいいと思いませんか？

[qwerty123]

ありがとうございます。無事出来ました。

Answer 2

ベタ打ち、べたべた。
i=6の所が言語によっては使えなかったり
若干うさんくさいですがｗ

Option Explicit

Sub betabeta()
    Dim i As Integer
    For i = 1 To 5
        If Range("A" & i) <> Range("B" & i) Then
            Exit For
        End If
    Next
    If i = 6 Then
        MsgBox "OK"
    Else
        MsgBox "NG"
    End If
End Sub