[發問] 請問VB如何使用excel的vlookup公式呢?

PIPI

下載 (14.32 KB)

2020-4-5 05:45

我想在第一格的mya.Text裡輸入,商品的國際條碼

然後讓第二格的myb.Caption裡利用Vlookup去抓取資料回傳顯示

活頁簿名稱是"總品項"

原本寫在excel裡的公式是  =VLOOKUP(D10,總品項!A:D,2,FALSE))

想改用表單的方式去加入呈現

不知是否有人能協助我加入這段呢?

麻煩了,謝謝

s3526369

回復 1# PIPI

1. Private Sub mya_Exit(ByVal Cancel As MSForms.ReturnBoolean)
   
2. Dim rn As Range
   
3. For Each rn In Sheets("sheet1").Range("A2:A1000" & Sheets("總品項").Cells(Rows.Count, "A").End(xlUp).Row)
   
4.    If mya.Text = rn Then
   
5.         myb.Value = Sheets("總品項").Cells(rn.Row, "B")
   
6.         Exit For
   
7.        ' MsgBox ("完成")
   
8.     Else
   
9.         myb.Value = "查無此資料"
   
10.     End If
    
11. Next
    
12. End Sub

複製代碼

在mya輸入完國際碼自動輸入myb項目

apolloooo

Application.worksheetfunction.vlookup(                   )  <-- 一樣方式使用
VBA中使用Excel的函式。
https://docs.microsoft.com/zh-tw/office/vba/api/excel.worksheetfunction.vlookup