|
>会社名を入力
どこへ入力するかによって大きく違ってきます。
"入力と同時"ということから、ニュアンスとしては特定のセルへの
入力と解釈します。ならばシートモジュールへ、セル入力イベント
として入れたら良いでしょう。仮に A2 へ入力した値をシート"リスト"
のA列で検索し、ヒットした行のB列の値をMsgBoxで表示するなら・・
Private Sub Worksheet_Change(ByVal Target As Range)
Dim MyCp As String
Dim CkR As Variant
With Target
If .Address <> "$A$2" Then Exit Sub
If .Count > 1 Then Exit Sub
If IsEmpty(.Value) Then Exit Sub
If IsNumeric(.Value) Then Exit Sub
MyCp = .Value
End With
CkR = Application _
.Match(MyCp, Sheets("リスト").Range("A:A"), 0)
If IsError(CkR) Then
MshBox "その名前は登録されていません", 48
Else
MsgBox Sheets("リスト").Cells(CkR, 2).Value
End If
End Sub
|
|