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
お勧めはありますか?
あなたは必ずあなたですvlookupは実際に値を返していますか? – ARich
はい、テキストボックスは完全に機能しますが、最初にデータを抽出するために使用されたコードにvlookupの更新を入れて、簡単なやり方で行うことができました。ちょうど私がそれらに対処する方法を変更しなければならなかった。 – Peter