Excel VBA質問箱 IV

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

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


37623 / 76732 ←次へ | 前へ→

【44271】Re:照合のチェック
発言  ponpon  - 06/11/11(土) 22:23 -

引用なし
パスワード
   ▼Toni さん:
>A列とB列には基本データがあります。
>入稿されてきたデータがC列にあります。
>入稿されたデータが基本データと同じ数字が
>ある場合と否を、D列に判定を「○・×」でしたく思います。
>
>このような照合のチェックをする場合の方法をアドバイスお願い
>します。
>   A   B   C       D
>   (基本データ) (被チェックデータ) チェック結果
>1   11   21   11       ○
>2  12   22   25       × 
>3  13   23   20       ×
>4  14   24   24       ○
>5  15   25   15       ○
>6
>7
>8

こんばんは。
項目行はなく、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

0 hits

【44269】照合のチェック Toni 06/11/11(土) 22:06 質問
【44271】Re:照合のチェック ponpon 06/11/11(土) 22:23 発言
【44272】Re:照合のチェック Kein 06/11/11(土) 22:54 回答
【44273】Re:照合のチェック Toni 06/11/11(土) 23:37 質問
【44274】Re:照合のチェック Kein 06/11/11(土) 23:45 発言
【44275】Re:照合のチェック ponpon 06/11/11(土) 23:50 発言
【44279】Re:照合のチェック Kein 06/11/12(日) 0:18 発言
【44284】Re:照合のチェック ponpon 06/11/12(日) 0:44 発言
【44290】Re:照合のチェック Toni 06/11/12(日) 8:58 質問
【44300】Re:照合のチェック Kein 06/11/12(日) 15:52 回答
【44303】Re:照合のチェック Toni 06/11/12(日) 19:21 質問
【44304】Re:照合のチェック Toni 06/11/12(日) 19:23 お礼

37623 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free