Excel VBA VLookupテーブルの第2列

Question

テーブルの2番目の列にVLookupを使用できるかどうかを確認しようとしていますか？私は無限に検索し、これに対する答えを見つけることができませんが、これが可能でなければならないと感じています。

この時点で、VBAは私の強みではないことを追加します。私はPHP/MySQLのバックグラウンドから来ていますが、私はVBAを学ぶことに頼っているので、私の仕事でどちらかを使うという贅沢はありません。

これまで（簡体字）私のコード：

Dim userEnviron As String 
Dim rowId As Integer 

rowId = 0 
userEnviron = Environ("Username") 

Dim tbladmin As ListObject 
Set tbladmin = Sheets("Office Details").ListObjects("officeAdmin") 

On Error Resume Next 
rowId = Application.VLookup(userEnviron , Range(tbladmin), 4, False) 

このコードは、ユーザー環境変数を検索し、tbldadminテーブルに試合を探しています。テーブルはヘッダとそのように構成されています

Name UserID Email RowID Tom Smith Tom the@the.com 2

ImはユーザーIDを検索し、名前を返すようにしよう、しかし、現時点では私は名前を検索し、（私が追加したROWIDを返すように設定されたコードを持っていますRowIDを取得して名前を返すコードの2番目のスニペット）

これは、VBA以外の多くの例を見ることができますが、テーブルを使用していないようです。

2番目の列の一致を検索し、最初の列から値を返すために、VLookupを説明どおりに使用できますか？地獄私が2番目の列を検索できる場合は、最後の列から戻り値を取得します。

Answer 1

VLOOKUPにしたいが、データが一番左の列にない場合は、参照するデータの場所と返すデータを指定できるINDEX/MATCHを使用できます。 、

rowId = WorksheetFunction.INDEX(Range("officeAdmin[RowID]"), WorksheetFunction.MATCH(userEnviron, Range("officeAdmin[UserID]"), 0)) 

あなたがルックアップしたい方の列にRange("officeAdmin[RowID]")を変更することができますたとえばRange("officeAdmin[Name]")ためRowIDの代わりにNameを返します。これを試してみてください。

Answer 2

あなたは、直接あなたが見てみたいな範囲をOffsetことができます。

Dim userEnviron As String 
Dim rowId As Integer 

rowId = 0 
userEnviron = Environ("Username") 

Dim tbladmin As ListObject 
Set tbladmin = Sheets("Office Details").ListObjects("officeAdmin") 

On Error Resume Next 
rowId = Application.VLookup(userEnviron, tbladmin.Range.Offset(0, 1), 3, False)