Excel VBA質問箱 IV

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

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


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

37623 / 76732

←次へ　｜　前へ→


	【44271】Re:照合のチェック

ponpon - 06/11/11(土) 22:23 -


	引用なし

	パスワード

▼Toni さん：
>Ａ列とＢ列には基本データがあります。
>入稿されてきたデータがＣ列にあります。
>入稿されたデータが基本データと同じ数字が
>ある場合と否を、Ｄ列に判定を「○・×」でしたく思います。
>
>このような照合のチェックをする場合の方法をアドバイスお願い
>します。
>　　　Ａ　　　Ｂ　　　Ｃ　　　　　　　Ｄ
>　　(基本データ）　(被ﾁｪｯｸデータ）　チェック結果
>1　　 11　　　21　　　11　　　　　　　○
>２　　12　　　22　　　25　　　　　　　×　
>３　　13　　　23　　　20　　　　　　　×
>４　　14　　　24　　　24　　　　　　　○
>５　　15　　　25　　　15　　　　　　　○
>６
>７
>８

こんばんは。
項目行はなく、1行目からデータがあると考えています。
こんな感じになると思います。
Sub test()
　　Dim myR As Range, r As Range
　　
　　Set myR = Range(Cells(1, "C"), Cells(Rows.Count, "C").End(xlUp))
　　For Each r In myR
　　　　If r.Value = r.Offset(, -1) Or r.Value = r.Offset(, -2).Value Then
　　　　　　r.Offset(, 1).Value = "○"
　　　　Else
　　　　　　r.Offset(, 1).Value = "×"
　　　　End If
　　Next
End Sub

1 hits

▼

【44269】照合のチェック Toni 06/11/11(土) 22:06