比較したいセルの文字列が一致したら"一致"

Question

いい案が思い浮かばないため皆さんのお知恵をお貸しください。下はエクセルと思ってください　　　A列　　　　　　　　　　 B列 1 　2009/01/07/22:55 　　2009/01/07/22:56 2 　テスト1 　　　　　　　　　　テスト1 3 　テスト2 　　　　　　　　　　テスト2 4 　テスト3 　　　　　　　　　テスト3 5 　テスト4 　　　　　　　　　　テスト6 とこのようなシートがあります。セルA1とB1は時間のため可変で比較対照としたくありませんそれ以外のA列とB列がすべて一致したとき一致不一致があればセルA5が不一致とmsgboxで出したいと考えております。まだ思案中で途中なのですが Sub test() Dim i As Integer i = 1 Do While Cells(i, 1) <> "" If Cells(i, 1) = Cells(i, 2) Then MsgBox "一致" i = i + 1 ElseIf Cells(i, 1) <> Cells(i, 2) Then MsgBox "不一致" i = i + 1 End If Loop End Sub いまはまだこの程度のレベルです宜しくお願いします。

Nouble · Accepted Answer

お待たせしましたやろうと思えばもう少し凝ったものに出来るのですがまあこの辺で先に余談を2つ挟みます私は若かった頃まだスタック攻撃とか無かったですから Sub test() 　Dim i As Integer 　Dim j As Integer 　i = 1 　j = 1 　Do While Cells(i, 1) <> "" and j = 1 　　If Cells(i, 1) = Cells(i, 2) Then 　　　i = i + 1 　　Else 　　　MsgBox "不一致" End Sub 　　End If 　Loop End Sub こんなことしてました禁じ手ですね今では少し丸くなって Sub test() 　Dim i As Integer 　for i = 1 to 0 step 1 　　If Cells(i, 1) <> Cells(i, 2) Then 　　　i = 0 　　　MsgBox "不一致" 　　Elseif i>= 65535 then 　　　i = 0 　　　MsgBox "一致" 　　End If 　next i End Sub 位までしかしない程温和しくなりましたもう一つの余談ですが一致か不一致かは =PRODUCT(INDEX((A:A=B:B)-ISERROR(SEARCH("*/??/*",A:A))+1,0)) と言う式で判定できますこの式は不一致の場合０を返すので If文を付けずこのまま条件書式に記載してＢ行全体へ条件書式を適応してやればその時々に応じて相違点をクローズアップしてくれます余談は此処まで本題ですが先に謝罪しますソートできませんでした申し訳ない　ヾ(ーー;) ではいきます集計結果を表示させるシートを開きまあ適当で良いのですがＢ６の辺りに ="この日の試験は"&IF(PRODUCT(INDEX((A:A=B:B)-ISERROR(SEARCH("*/??/*",A:A))+1,0)),"一致しています","不一致なものがあります　下にリストアップします") とＢ７の辺りに =IF(SUMPRODUCT(ABS((シート1!A:A=シート1!B:B)-ISERROR(SEARCH("*/??/*",シート1!A:A)))),HYPERLINK("#"&ADDRESS(SMALL(INDEX(((シート1!A:A=シート1!B:B)-ISERROR(SEARCH("*/??/*",シート1!A:A))+1)*65535+ROW(シート1!B:B),0),ROW(B1)),COLUMN(B1),4,TRUE,"Sheet1"),ADDRESS(SMALL(INDEX(((シート1!A:A=シート1!B:B)-ISERROR(SEARCH("*/??/*",シート1!A:A))+1)*65535+ROW(シート1!B:B),0),ROW(B1)),COLUMN(B1),4,TRUE,"Sheet1")&"の"&OFFSET(B$1,SMALL(INDEX(((シート1!A:A=シート1!B:B)-ISERROR(SEARCH("*/??/*",シート1!A:A))+1)*65535+ROW(シート1!B:B),0),ROW(A1))-1,0,1,1)&"が違ってます"),"") と入力して下さいこのＢ７の式は横へも縦へもフィルできるように作ってますので使用されているパソコンの処理能力と相談しながら加減を見て必要分フィルしてみて下さい不一致リストをクリックすると対象のセル位置へ飛ぶようになってますこの式の基本構造は至極簡単で =ABS((A:A=B:B)-ISERROR(SEARCH("*/??/*",A:A))) で各行の整合性を判定していますこの式を元に不一致件数をカウントしたり、不一致が発生しているアドレスを取得したりしているのです以上、お待たせした上に軽口を吐いた結果となってしまいましたが此でもお役にたてれば幸いですまた何かありましたらお声掛け頂ければ… と思います

Nouble · Answer

へ！
不一致の箇所をマークするだけでいいのですか？
それなら条件付き書式で十分ですよ？


関数の方は今ちょっと煮詰まっちゃってるので
もう少しお待ち頂けますか
日付のセルが第１行目以外にも現れることを想定して
式の中で弾くように模索中です


ところで
このリストは評価実施リストか何かですよね
て、事は日毎に横にデータが増えつつあるのではないですか？

となると別シートに整合結果と
不一致ポイントへのリンクリストがあると良さそうですね

データをソートした状態で不一致リストを作り
それを元にリンクリストを作ると言うのは
関数でできるか微妙なのですが

データをソートしない状態で不一致リストを作り
それを元にリンクリストを作ると言うのは

かなり楽です

例えば
=hyperlink(offset(Sheet1!A1,small(index(((Sheet1!A:A=Sheet1!B:B)<>countif(B:B,"*/??/*"))*row(A:A),0),row(A1))-1,0,1,1),…
てな感じに

ですが少し処理能力を要求する仕様になるかもしれません

申し訳ないですが今暫しお待ちください

Nouble · Answer

必要として頂けて感激しました。

因みにエラーの原因はSUMPRODUCT構文のスペルミスでした

ところで
日付と時間は続けて手入力されていて
時間のシリアル値ではなく
テキストと認識されているのですよね?

詰まり例えば
「2009/01/07/22:56」が
=DATE(2009,1,7)+TIME(22,56,0)
と入れて得られるシリアル値を
書式設定でこう表示させているものではなく
直接「2009/01/07/22:56」入れたものなのですよね
時のシリアル値で入っていると直感的に思い込んでしまってました

今、ミスである可能性がExcelに貼り付けてみて初めてはっきりと解りました

その点でデータ形式に対する誤認識と
他にもイリガルなエラーがあることが解りました

なので、
多忙な為少々修正はお待ち頂いても構わないですか?

無責任な上、無理を言って済みません。

onlyrom · Answer

何かの練習問題なら別ですが、不一致の場合にいちいちメッセージを出すのは実用的ではないと思います。それだと検索終了後、どのセルが不一致だったのかどこかに控えておかないと分からない。当方なら以下のようにします。いちいち不一致メッセージは出さずに、不一致セルに色を付ける最後に「不一致が、＊＊件ありました」と表示する '----------------------------------------- Sub Test() 　Dim i As Integer 　Dim Cnt As Long 　Range("A:A").Interior.ColorIndex = xlNone 　i = 1 Do While Cells(i, 1) <> "" 　　If Len(Cells(i, 1)) - Len(Replace(Cells(i, 1), "/", "")) <> 3 Then 　　　　If Cells(i, 1) <> Cells(i, 2) Then 　　　　　　Cnt = Cnt + 1 　　　　　　Cells(i, 1).Interior.ColorIndex = 3 　　　　End If 　　End If 　　i = i + 1 Loop 　　MsgBox "不一致が　" & Cnt & "　件ありました" End Sub '--------------------------------------------- 日付時間は必ず、20009/01/07/10:00　のように　"/"が３つあるものとする。なお、セルのアドレスを絶対参照（$A$5）ではなくて、相対参照（A5)　で取得したいなら　　　　　　　　Cells(i, 1).Address(0, 0) Addressのヘルプを参照すること。以上。　

Nouble · Answer

VBAでする必要に迫られてるのですか？

もし拘らないなら
検査対象セルが
全半角の仮名漢字で始まるもの全てのみと仮定して

=iF(sumprodct(sign(small(Large(a:a,counta(a:a)),sumprodct(istext(a:a)))=small(Large(b1:b21,counta(a:a)),sumprodct(istext(a:a)))))=sumprodct(istext(a:a)),"一致","不一致")

実際にパソでテストしてないので不安ですが
こんな方向性でも検証できると思いますよ

只この式をＡ列及びＢ列に置くと
この式の算出結果分で不一致となり
常に不一致になってしまうので
別の列に置いてくださいね

因みにソートしてから検証しておきました

※　エクセルは文字も内部的には
　　文字コードのシリアル値でデータを保持しているので
　　こんなことが可能なのですね

kztk · Answer

すべて一致したかどうかのフラグをもっておけばよいのでは。あるいは不一致のカウントをとっておいて、それがゼロなら完全一致、とかでも。（どちらかといえば日付の判定方法の方が気になりますが・・・　「2009/01/07/22:56」って、ただの文字列で、日付時刻として認識されませんよね？） Sub test3() Dim i As Integer i = 1 Dim bCompleteMatch As Boolean '完全一致フラグ bCompleteMatch = True Do While Cells(i, 1) <> "" If Cells(i, 1) Like "200*/**/**/**:**" Then 'テストの為に 'MsgBox "比較しない" ElseIf Cells(i, 1) <> Cells(i, 2) Then '1回でもここを通ると完全一致フラグはFalseになる bCompleteMatch = False Cells(i, 1).Activate MsgBox Replace(Cells(i, 1).Address, "$", "") & "が不一致" End If i = i + 1 Loop If bCompleteMatch Then MsgBox "すべて一致" End If End Sub

hallo-2007 · Answer

ご提示のコードで十分ではないでしょうか。参考までに
Sub test()
Dim i As Integer
i = 2
Do While Cells(i, 1) <> ""
Cells(i, 1).Activate
If Cells(i, 1) = Cells(i, 2) Then
MsgBox "一致"
Else
MsgBox "不一致"
End If
i = i + 1
Loop
End Sub
こんな感じは如何でしょうか。

比較したいセルの文字列が一致したら"一致"

お待たせしました

へ！

必要として頂けて感激しました。

何かの練習問題なら別ですが、

VBAでする必要に迫られてるのですか？

すべて一致したかどうかのフラグをもっておけばよいのでは。

ご提示のコードで十分ではないでしょうか。

この回答への補足

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング