[發問] vlookup抓取

=IFERROR(VLOOKUP($C2,'\\shl-group.com\dept\MFMG\B.各組資料 (Team inform)\E.生管組 (PPC group)\X.自動化工具(勿刪)\AL每月目標\[AL-202306目標.xlsx]6月 (SAAM&FAAM)'!$B:$G,4,0),"")

有辦法完成下面兩個條件嗎??
202306->抓取O3單元格
6月的"6"->抓取O4單元格

底下是我的寫法，但是沒有抓到任何資料
=IFERROR(VLOOKUP($C2,'"\\shl-group.com\dept\MFMG\B.各組資料 (Team inform)\E.生管組 (PPC group)\X.自動化工具(勿刪)\AL每月目標\[AL-"&O3&"目標.xlsx]"&O4&"月 (SAAM&FAAM)"'!$B:$G,4,0),"")

樓主熱帖

cowww

中學生 Rank: 2

帖子: 122
主題: 26
精華: 0
積分: 148
點名: 0
作業系統: windos10
軟體版本: office2016
閱讀權限: 20
註冊時間: 2021-7-8
最後登錄: 2023-8-28

2^#

發表於 2023-7-24 14:59 | 顯示全部帖子

回復 1# cowww

同事給了我一段語法，卻出現了更新活頁簿連結
請問這是怎麼一回事??
AL最大月份.PNG

Sub 按鈕4_Click()

'計算選項改為自動
Application.Calculation = xlCalculationAutomatic

'關閉提示
Application.DisplayAlerts = False

Dim formulaCell As Range
Dim workbook_name As String
Dim worksheet_name As String

' 設置函數公式在單元格O2
Set formulaCell = Worksheets("公式(勿刪)").Range("O2")

' 獲取要放入公式的key（key在C2獲取）
Dim lookup_value As String
lookup_value = "$C2"

' 獲取 "AL-202307目標.xlsx" 和 "7月 (SAAM&FAAM)"，分別在單元格 P3 和 P4 獲取
workbook_name = Worksheets("公式(勿刪)").Range("P3").Value
worksheet_name = Worksheets("公式(勿刪)").Range("P4").Value

' 构建公式字符串，并使用兩個雙引號進行轉換
Dim formula As String
formula = "=IFERROR(VLOOKUP(" & lookup_value & ", '" & workbook_name & "'!" & "$B:$G, 4, 0), """")"

' 將公式放入公式單元格 O2
formulaCell.formula = formula

' 關閉打開的工作簿
Dim wb As Workbook
Set wb = Workbooks.Open("\\shl-group.com\dept\MFMG\B.各組資料 (Team inform)\E.生管組 (PPC group)\X.自動化工具(勿刪)\AL每月目標\" & workbook_name, UpdateLinks:=False)
wb.Close SaveChanges:=False

'開啟提示
Application.DisplayAlerts = True

End Sub

TOP

cowww