Excel VBA質問箱 IV

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

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


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

4064 / 13665 ﾂﾘｰ

←次へ　｜　前へ→

▼

【58718】２つのシートをあるセルの範囲で比較したい 坊主頭のプログラマ 08/11/5(水) 20:55

【58720】Re:２つのシートをあるセルの範囲で比較し... n 08/11/5(水) 21:21

【58723】Re:２つのシートをあるセルの範囲で比較し... 坊主頭のプログラマ 08/11/5(水) 22:12

【58726】Re:２つのシートをあるセルの範囲で比較し... n 08/11/5(水) 22:35


	【58718】２つのシートをあるセルの範囲で比較した...

坊主頭のプログラマ - 08/11/5(水) 20:55 -


	引用なし

	パスワード

例えば、
Worksheets("A")のRange(A1:D5)の範囲とWorksheets("B")のRange(C1:F5)の範囲のセル同士を比較したいのです。
各セルの比較仕様は、Worksheets("A").Cells(A1)とWorksheets("B").Cells(C1)を
比較し、Worksheets("A").Cells(A2)とWorksheets("B").Cells(C2)という組み合わせで比較したいのです。
シート名とセルの範囲はInputBoxで取り込んで、各セルを比較させる簡単なコーディング方法はあるでしょうか？


	【58720】Re:２つのシートをあるセルの範囲で比較...

n - 08/11/5(水) 21:21 -


	引用なし

	パスワード

比較範囲がそれほど大きくなければ Sub try() 　　Dim r1 As Range 　　Dim r2 As Range 　　Dim x 　　With Application 　　　　On Error Resume Next 　　　　Set r1 = .InputBox("比較1の全範囲を指定", Type:=8) 　　　　If r1 Is Nothing Then Exit Sub 　　　　Set r2 = .InputBox("比較2の起点セルを指定", Type:=8) 　　　　On Error GoTo 0 　　　　If Not r2 Is Nothing Then 　　　　　　Set r2 = r2.Resize(r1.Rows.Count, r1.Columns.Count) 　　　　　　x = .Evaluate("AND(" & r1.Address(external:=True) _ 　　　　　　　　　　　　　 & "=" & r2.Address(external:=True) & ")") 　　　　　　MsgBox CStr(x) 　　　　End If 　　End With 　　Set r1 = Nothing 　　Set r2 = Nothing End Sub


	【58723】Re:２つのシートをあるセルの範囲で比較...

坊主頭のプログラマ - 08/11/5(水) 22:12 -


	引用なし

	パスワード

有難うございました。やってみましたが、比較出来ました。もう一つ質問なのですが、アンマッチのセルの箇所を知る事は出来ますか？アンマッチのセルを網掛けしたいのです。申し訳ありませんが、よろしく御願いします。


	【58726】Re:２つのシートをあるセルの範囲で比較...

n - 08/11/5(水) 22:35 -


	引用なし

	パスワード

一例としては
x = .Evaluate(r1.Address(external:=True) & "<>" & r2.Address(external:=True))
などのように結果をTRUE/FALSEの配列に取り、r1の範囲と一緒にLoopさせて処理すれば良いです。

もっとも、『アンマッチのセルを網掛けしたい』のが目的なら、
最初からr1とr2の範囲をLoopさせて比較すれば良いと思います。


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

4064 / 13665 ﾂﾘｰ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free