Excel VBA質問箱 IV

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

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


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

5581 / 76732

←次へ　｜　前へ→


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

あや - 15/3/10(火) 11:20 -


	引用なし

	パスワード

▼β さん：
2パターンの情報提供、またコードまで書いていただき有難うございます。
最初の方が簡単そうだったので作成してみましたが、シート1はきれいなままにしておきたいので、2つ目の方法で進めていきたいと思います。
部分部分分からないところがあるので教えていただきたいのですがよろしいでしょうか？
1.>　　　　　　If dic.exists(c.Value) Then dl.Add c.Value
　この行のThen dl.Add c.Valueはどういう処理を行っているのでしょうか
2.>　　　　dl.Sort
　>　　　　ReDim v(0 To dl.Count - 1)
　>　　　　For i = 0 To dl.Count - 1
　>　　　　　　v(i) = dl(i)
　ここでどのような処理を行っているのでしょうか・・・
　ReDimが重複しているものも表示するものというのはわかったのですが・・・

また追加で質問があります。
同じ名前を発見した場合は最初に発見した方だけ表示するようにするには
>　　　　ReDim v(0 To dl.Count - 1)
を削除するほかに
>　　If dl.Count > 0 Then
>　　　　dl.Sort
>　　　　ReDim v(0 To dl.Count - 1)
>　　　　For i = 0 To dl.Count - 1
>　　　　　　v(i) = dl(i)
ここをどう変更すればよいのでしょうか・・・
”型が一致しません”や”オブジェクトが無効です”などのエラーが出てきてしまいます・・・
どういう処理をしているか解れば解決するのかな、とは思っているのですが・・・

質問ばかりで申し訳ありません。
回答宜しくお願い致します。

>▼あやさん：
>
>こんなコードもあります。
>シンプルですが、わかりにくいかも。
>
>Sub Test()
>　　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("System.Collections.ArrayList")
>　　
>　　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.Add c.Value
>　　　　Next
>　　End With
>　　
>　　If dl.Count > 0 Then
>　　　　dl.Sort
>　　　　ReDim v(0 To dl.Count - 1)
>　　　　For i = 0 To dl.Count - 1
>　　　　　　v(i) = dl(i)
>　　　　Next
>　　　　MsgBox "以下の重複がありました" & vbLf & Join(v, vbLf)
>　　Else
>　　　　MsgBox "重複はありませんでした"
>　　End If
>　　
>End Sub

594 hits

▼

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