Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

38965 / 76732

←次へ　｜　前へ→


	【42888】Re:VlookUpについて

かみちゃん - 06/9/24(日) 17:53 -


	引用なし

	パスワード

こんにちは。かみちゃん　です。

>フォームのテキストボックスにVlookup関数を設定し、商品コードを基に商品名を
>表示しようとしています

Keinさんからコメントがついていますが、変数aaの使い方がおかしいです。
また、VLOOKUP関数の第２引数の左端列に第１引数の値がなかった場合、
ご提示のエラーになります。
ワークシート関数でした場合#N/A!になる事象です。

Private Sub 設定_change()
　Dim aa As String
　
　Worksheets("商品マスタ").Select
　aa = ""
　On Error Resume Next
　aa = Application.WorksheetFunction.VLookup _
　　(商品名検索.商品コード.Value, Worksheets("商品マスタ").Range("J3:K65536") _
　　　, 2, False)
　If aa <> "" Then
　　商品名検索.商品名.Value = aa
　Else
　　MsgBox "商品コードが見つかりません"
　End If
End Sub

VLOOKUP関数を使わなくてもFindメソッドでもできると思います。

Private Sub 設定_change()
　Dim aa As Range
　
　Worksheets("商品マスタ").Select
　With Range("J3:K65536")
　　Set aa = .Find(商品名検索.商品コード.Value, LookIn:=xlValues, LookAt:=xlWhole)
　　If Not aa Is Nothing Then
　　　商品名検索.商品名.Value = aa.Offset(, 1).Value
　　Else
　　　MsgBox "商品コードが見つかりません"
　　End If
　End With
End Sub

0 hits

▼

【42882】VlookUpについて くみたん 06/9/24(日) 17:20