Excel VBA質問箱 IV

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

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


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

5581 / 76735

←次へ　｜　前へ→


	【76764】Re:シート1とシート2の内容で一致するものがあれば結果表示をさせたい

β - 15/3/10(火) 13:20 -


	引用なし

	パスワード

▼あやさん：

まず、このコードは２つの入れ物を使っています。
１つが Dictionary と呼ばれるもの。もう１つがArrayListと呼ばれるものです。
いずれもＶＢＡの持ち物ではなく外部（.Net等）の機能なので、CreateObject で呼び出して使用。

Dictionary は同じキーを格納した時に上書きされる特徴をもっていて、コードでは
Sheet2の名前を格納するのに使っています。山田が何件あろうと１件の山田になります。

ArrayListは、キー／データという概念はないのですが同じ値を別のものとして格納可能です。
コードでは、重複のあったものを格納するのに使っています。Sheet3 に山田が３件あれば３件格納されます。
また、ArrayListは格納されたものを昇順、降順に並び替える機能もあります。
エラーメッセージで
山田
佐藤
山田
佐藤
とだすより
山田
山田
佐藤
佐藤
とだすほうがわかりやすいので、この昇順並び替え機能を使っています。（これが dl.Sort です）

Dictionaryには、Existsメソッドがあり、ある値が、Dictionaryのキーとして格納されているかどうかの
判定ができます。それが　dic.exists(c.Value)　で、このメソッドが返す結果が True なら　
重複しているということになりますので、それを dl.Add c.Value　でArrayList に登録しています。

ArrayListに格納した内容は、ＶＢＡからは一挙に取り出せないので、ArrayListと同じ大きさの
ReDim v(0 To dl.Count - 1)　で１次元配列をつくり、その配列に、ArrayListからインデックスを与えながら
v(i) = dl(i)　で、データを取り出しておさめています。
（ArrayListのインデックスは 0 から始まっています）

さて、重複側を、あえてその件数だけすべて表示するという要望でしたのでArrayListを使いましたが
集約して１件にして表示するなら、重複情報も ArrayListではなくDictionary に格納して重複をなくす
ことができます。

以下でお試しください。

Sub Test2()
　　Dim dic As Object
　　Dim dl As Object
　　Dim i As Long
　　Dim v As Variant
　　Dim c As Range
　
　　Set dic = CreateObject("Scripting.Dictionary")
　　Set dl = CreateObject("Scripting.Dictionary")
　
　　 With Sheets("Sheet2")
　　　　For Each c In .Range("A1", .Range("A" & Rows.Count).End(xlUp))
　　　　　　dic(c.Value) = True
　　　　Next
　　End With
　
　　 With Sheets("Sheet3")
　　　　For Each c In .Range("A1", .Range("A" & Rows.Count).End(xlUp))
　　　　　　If dic.exists(c.Value) Then dl(c.Value) = True
　　　　Next
　　End With
　
　　If dl.Count > 0 Then
　　　　MsgBox "以下の重複がありました" & vbLf & Join(dl.keys, vbLf)
　　Else
　　　　MsgBox "重複はありませんでした"
　　End If
　
End Sub

1 hits

▼

【76750】シート1とシート2の内容で一致するものがあれば結果表示をさせたい あや 15/3/9(月) 16:01