Excel VBA質問箱 IV

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

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


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

23379 / 76732

←次へ　｜　前へ→


	【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