サンプルファイル

*注意 「ID」の列の書式設定が「数値」「標準」の場合は、VLookupできないことがあるので、「文字列」に設定した方がいいです。

Maxを使ってIDを自動入力するときは、書式設定が文字列だとよろしくありません。そこで、A列の書式を「文字列」に設定してVLookup用のIDにし、B列の書式を「数値」に設定してMax用のIDにします。　そしてフォーム上からA列、B列に同じIDを入力するようにします。表示に不要なB列は非表示にします。

---

Private Sub ComboBox1_Change()


If IsError(Application.VLookup(ComboBox1.Text, Range("A2:B65536"), 2, False)) Then

TextBox1.Text = ""
Else
TextBox1.Text = Application.VLookup(ComboBox1.Text, Range("A2:B65536"), 2, False)
End If



End Sub