Excel VBA質問箱 IV

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

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


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

5233 / 76735

←次へ　｜　前へ→


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

あや - 15/5/22(金) 19:30 -


	引用なし

	パスワード

▼β さん：
上手くいきそうです・・・！

教えていただきたいのですが、下記のコードは具体的に何をしているか教えていただけないでしょうか。

>　　　　For Each c In .Range("A1", .Range("A" & .Rows.Count).End(xlUp))
>　　　　　　Set f = r.Find(What:=c.Value, LookAt:=xlWhole)
>　　　　　　If f Is Nothing Then
>　　　　　　　　If IsArray(vntA) Then
>　　　　　　　　　　ReDim Preserve vntA(1 To UBound(vntA) + 1)
>　　　　　　　　　　ReDim Preserve vntB(1 To UBound(vntB) + 1)
>　　　　　　　　Else
>　　　　　　　　　　ReDim vntA(1 To 1)
>　　　　　　　　　　ReDim vntB(1 To 1)
>　　　　　　　　End If

>▼あやさん：
>
>それではサンプル第２弾として。
>マッチしなかったＡ列の値を配列の vntA に、B列の値を配列の vntB に格納しています。
>これを参考にがんばれますか？
>
>Sub Sample2()
>　　Dim r As Range
>　　Dim c As Range
>　　Dim f As Range
>　　Dim vntA As Variant
>　　Dim vntB As Variant
>　　
>　　With Sheets("Sheet1")
>　　　　Set r = .Range("A1", .Range("A" & .Rows.Count).End(xlUp))
>　　End With
>　
>　　 With Sheets("Sheet4")
>　　　　For Each c In .Range("A1", .Range("A" & .Rows.Count).End(xlUp))
>　　　　　　Set f = r.Find(What:=c.Value, LookAt:=xlWhole)
>　　　　　　If f Is Nothing Then
>　　　　　　　　If IsArray(vntA) Then
>　　　　　　　　　　ReDim Preserve vntA(1 To UBound(vntA) + 1)
>　　　　　　　　　　ReDim Preserve vntB(1 To UBound(vntB) + 1)
>　　　　　　　　Else
>　　　　　　　　　　ReDim vntA(1 To 1)
>　　　　　　　　　　ReDim vntB(1 To 1)
>　　　　　　　　End If
>　　　　　　　　
>　　　　　　　　vntA(UBound(vntA)) = c.Value
>　　　　　　　　vntB(UBound(vntB)) = c.Offset(, 1).Value
>　　　　　　　　
>　　　　　　End If
>　　　　Next
>　　End With
>　　
>　　If IsArray(vntA) Then
>　　　　MsgBox "A列では以下のものがマッチしません" & vbLf & Join(vntA, vbLf)
>　　　　MsgBox "そのB列の値は以下です" & vbLf & Join(vntB, vbLf)
>　　Else
>　　　　MsgBox "すべてマッチしていますよ"
>　　End If
>　　
> End Sub

0 hits

▼

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