返回列表 上一主題 發帖

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

PIPI

帖子
2 
主題
2 
精華
0 
積分
4 
點名
0  
作業系統
w10 
軟體版本
365 
閱讀權限
10 
註冊時間
2020-4-5 
最後登錄
2020-4-8 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2020-4-5 05:50 | 只看該作者

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



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

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

活頁簿名稱是"總品項"

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

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

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

麻煩了,謝謝
收藏 分享

apolloooo
　暱稱: 借钱

中學生Rank: 2

帖子
54 
主題
7 
精華
0 
積分
81 
點名
0  
作業系統
WINDOWS XP 
軟體版本
OFFICE 2007 
閱讀權限
20 
性別
男 
來自
桃園 
註冊時間
2011-1-14 
最後登錄
2021-4-23 
2#
發表於 2021-3-2 08:37 | 只看該作者
Application.worksheetfunction.vlookup(                   )  <-- 一樣方式使用
VBA中使用Excel的函式。
https://docs.microsoft.com/zh-tw/office/vba/api/excel.worksheetfunction.vlookup
借錢不還，才是王道

TOP

s3526369
　暱稱: 大榮

中學生Rank: 2

帖子
45 
主題
3 
精華
0 
積分
72 
點名
0  
作業系統
WIN7 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
註冊時間
2018-2-12 
最後登錄
2024-7-15 
3#
發表於 2021-7-9 08:13 | 只看該作者
回復 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

        靜思自在 : 有智慧才能分辨善惡邪正；有謙虛才能建立美滿人生。
返回列表 上一主題