エクセルのVBA「当てはまる場合、コピー」の方法

質問

Excell2003のVBAについてお尋ねします。

A1 101　　B1　102　　C1　
A2 102　　B2　104　　C2 OK
A3 103　　B3　105　　C3
A4 104　　　　　　　　　C4　OK
A5　105　　　　　　　　　C5　OK
・　　　・
・　　　・
・　　　・

　　　↑　　　　　↑　　　　　　↑
　　もとから　　指定する　マクロで

A列に101から始まる番号が続いています。
B列で番号を入力してボタンを押します。
そうしますと、入力した番号の行にだけC列にOKという文字が入るようできますでしょうか。

イメージとしましては、来場してくれた会員を控えておきたいときに、
A列には会員番号があらかじめ入力されていて、
来場してくれた方の会員番号をB列にどんどん入力していきます。
ボタンを押すとB列で入力した方のC列に「来場」と入力されるような使い方を想定しております。

コピーペーストのVBAとVLOOKUPの数式の知識は（かろうじて）あるのですが、
VBAでどのように行ったらよいかわからずにおります。

お手数ですがよろしくお願いいたします。

回答No.1

tom04 · ベストアンサー

こんばんは！
＞ボタンを押すとB列で・・・
とありますので、コマンドボタンを配置しているとしての一例です。

お示しのようにデータは1行目からあるとします。

Private Sub CommandButton1_Click()
Dim i, k As Long
Application.ScreenUpdating = False
Columns(3).ClearContents
For k = 1 To Cells(Rows.Count, 2).End(xlUp).Row
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(i, 1) = Cells(k, 2) Then
Cells(i, 3) = "OK"
End If
Next i
Next k
Application.ScreenUpdating = True
End Sub

※　「OK」の部分を「来場」と変更しても良いかと思います。

こんな感じではどうでしょうか？m(_ _)m

回答No.3

keithin

明らかに関数を使った方が簡単です（あるいはＡ列に条件付き書式を設定して，来場された番号セルの色を塗ってみるなどでも）が，そこを敢えてマクロを使うなら，こんなこともできます。

手順：
シートを開く
シート名タブを右クリックしてコードの表示を選ぶ
現れたシートに下記をコピー貼り付ける

private sub worksheet_change(byval Target as excel.range)
　dim h as range
　dim c as range
　set target = application.intersect(target, range("B:B"))
　if target is nothing then exit sub

　for each h in target
　　if h <> "" then
　　set c = range("A:A").find(what:=h.value, lookin:=xlvalues, lookat:=xlwhole)
　　if c is nothing then
　　　msgbox h.value & " is not registerd"
　　　h.interior.color = vbred
　　else
　　　c.offset(0, 2) = "OK"
　　end if
　　end if
　next
end sub

ファイルメニューから終了してエクセルに戻る
Ａ列を準備した後，Ｂ列にどんどん記入していく。

＃折角マクロを使うのなら
・未登録の番号がＢ列に記入されたら警告する
・既にＢ列に記入済みの番号が再度記入されたら警告する
・単にＯＫと出力するんじゃなく，たとえば記入時刻を記録してみる
など，色々思いつくまま応用を効かせてみてください。

回答No.2

tom04

No.1です！
たびたびごめんなさい。

投稿後に思ったのですが・・・
VBAでなくても関数の方が簡単だとおもいます。

C1セルに
=IF(COUNTIF(B:B,A1),"OK","")
という数式を入れあらかじめオートフィルでずぃ～～～！っと下へコピーではダメでしょうか？

何度も失礼しました。m(_ _)m