返回列表 上一主題 發帖

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

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



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

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

活頁簿名稱是"總品項"

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

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

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

麻煩了,謝謝

回復 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項目

TOP

Application.worksheetfunction.vlookup(                   )  <-- 一樣方式使用
VBA中使用Excel的函式。
https://docs.microsoft.com/zh-tw/office/vba/api/excel.worksheetfunction.vlookup
借錢不還,才是王道

TOP

        靜思自在 : 閒人無樂趣,忙人無是非。
返回列表 上一主題