2017-01-05 5 views
0

ウェブページの廃棄から更新されるフォームがあります。 エントリの1つが不足しているので、テキストボックスの値を使用してvlookupを実行して、欠落している情報を取得し、空のテキストボックスを更新します。 イベントメソッドは自動的に起動しません!外部から更新されたテキストボックスからApplication.WorksheetFunction.VLookupをトリガーする必要があります

Private Sub envelope_afterupdate() 
On Error Resume Next 

MsgBox ("test") 
name_env.text = Application.WorksheetFunction.VLookup(envelope.text, Worksheets("DATA_name").Range("a1:b334"), 2, False) 
If Err.Number <> 0 Then 

    ' MsgBox "currName not found" ''optional, no need to do anything 
End If 

End Sub 

お勧めはありますか?

+0

あなたは必ずあなたですvlookupは実際に値を返していますか? – ARich

+0

はい、テキストボックスは完全に機能しますが、最初にデータを抽出するために使用されたコードにvlookupの更新を入れて、簡単なやり方で行うことができました。ちょうど私がそれらに対処する方法を変更しなければならなかった。 – Peter

答えて

0

私は単にデータ抽出コードにvlookupを入れます!

Form1.name_env = Application.WorksheetFunction.VLookup(form1.envelope、ワークシート( "DATA_NAME")範囲( "A1:b334"。)、2、False)が

ピート

関連する問題