Excel VBA質問箱 IV

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

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


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

5167 / 76732

←次へ　｜　前へ→


	【77178】Re:一覧から参照

γ - 15/6/2(火) 20:53 -


	引用なし

	パスワード

▼☆Nonoka☆ さん：
>返信遅くなって申し訳ありません。
>関数ですとリストが増えるため、効率に限界があります。
限界があるとは、どのくらいの行数ですか？
実際に限界に達しているのですか？

ワークシートのイベント処理についてはこちらを参照。
ht　 tp://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/vba_event.html

------------
書き方の一例です。
これをSheet1のシートモジュールにコピーペイストしてから、
K列に入力してみてください。

Private Sub Worksheet_Change(ByVal Target As Range)
　　Dim v As Variant

　　If Target.Count > 1 Then Exit Sub　　 ' 複数領域が同時に変更されたら終了
　　　　　　　　　　　　　　　　　　　　　' 逆に、複数領域についても対象にしたいなら、
　　　　　　　　　　　　　　　　　　　　　' 繰り返し処理を行います。（応用編はそちらで）
　　If Target.Column <> 11 Then Exit Sub　' K列以外なら終了

　　v = Application.VLookup(Target.Value, Worksheets("Sheet2").Range("B:C"), 2, False)
　　If IsError(v) Then
　　　　MsgBox Target.Value & " は見つかりませんでした"
　　Else
　　　　Application.EnableEvents = False
　　　　Target.Offset(0, 1).Value = v
　　　　Application.EnableEvents = True
　　End If
　
End Sub

409 hits

▼

【77146】一覧から参照 ☆Nonoka☆ 15/5/26(火) 16:18