Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10293 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【22663】教えてください。 ダックスフンド 05/2/26(土) 0:25 質問[未読]
【22668】Re:教えてください。 ぴかる 05/2/26(土) 9:15 回答[未読]
【22663】教えてください。
質問  ダックスフンド  - 05/2/26(土) 0:25 -
引用なし
パスワード
   EXCEL2000を使用しています。
IDと名前のデータベース？を作っているのですが、行き詰ってます。

日にち　　 ID　　　　血液型　　　体重
1/1　　　 1000　　　　　A　　　　　50
1/1　　　 2000　　　　　A　　　　　40
2/3　　　 2501　　　　　AB　　　　 30
2/5　 　　3214　　　　　O　　　　　20
　
たとえばですが、このようにID、血液型、体重を追加をしていきたいのですが、すでに入力したことのある（ID　2000）をさらに追加する場合、IDを入力すれば、自動で血液型を表示させたいのですが、どうしたらいいのでしょうか？
（ID2000を入れると下のようになるようなに）

日にち　　 ID　　　　血液型　　　体重
1/1　　　 1000　　　　　A　　　　　50
1/1　　　 2000　　　　　A　　　　　40
2/3　　　 2501　　　　　AB　　　　 30
2/5　 　　3214　　　　　O　　　　　20
4/4　　　 2000　　　　　A
　　　　　
lookupをしようしたりしているのですが、うまく作れません；；
どなたか、おしえてください＾＾よろしくお願いします。
できるだけ簡単なやり方を教えてください。
【22668】Re:教えてください。
回答  ぴかる  - 05/2/26(土) 9:15 -
引用なし
パスワード
   ダックスフンドさん､こんにちは｡

こんなんでどうです？
A列…日付　B列…ID　C列…血液型
ID入力にて､マクロが動作する様にしてます｡

Private Sub Worksheet_Change(ByVal Target As Range)

　　Dim I As Long
　　
　　With Target
　　　　If .Column = 2 Then
　　　　　　For I = 2 To .Row
　　　　　　　　If .Value = Cells(I, 2).Value Then
　　　　　　　　　　.Offset(0, 1).Value = Cells(I, 3).Value
　　　　　　　　　　Exit For
　　　　　　　　End If
　　　　　　Next
　　　　End If
　　End With
　　
End Sub
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10293 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free