[發問] vlookup抓取

中學生 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

ML089

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

3^#

發表於 2023-7-24 15:48 | 只看該作者

改成這樣看看

=IFERROR(VLOOKUP($C2,

INDIRECT("'\\shl-group.com\dept\MFMG\B.各組資料 (Team inform)\E.生管組 (PPC group)\X.自動化工具(勿刪)\AL每月目標\[AL-" & O3 & "目標.xlsx]" & O4 & "月 (SAAM&FAAM)'!$B:$G")

,4,0),"")

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

中學生 Rank: 2

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

4^#

發表於 2023-7-24 16:26 | 只看該作者

回復 3# ML089

非常感謝ML089大大的解惑

但是這段函數公式沒有任何值出來

ML089

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

5^#

發表於 2023-7-25 10:01 | 只看該作者

回復 4# cowww

在編輯列，使用F9去排查每段公式裡的參數或值是哪裡有問題

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

中學生 Rank: 2

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

6^#

發表於 2023-7-26 08:06 | 只看該作者

回復 5# ML089

非常感謝ML089大大的解惑

但是按下F9之後公式消失，也沒有數值跑出來

ML089

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

7^#

發表於 2023-7-27 11:18 | 只看該作者

回復 6# cowww

INDIRECT("'\\shl-group.com\dept\MFMG\B.各組資料 (Team inform)\E.生管組 (PPC group)\X.自動化工具(勿刪)\AL每月目標\[AL-" & O3 & "目標.xlsx]" & O4 & "月 (SAAM&FAAM)'!$B:$G")

你要先選取 "'\\shl-group.com\dept\MFMG\B.各組資料 (Team inform)\E.生管組 (PPC group)\X.自動化工具(勿刪)\AL每月目標\[AL-" & O3 & "目標.xlsx]" & O4 & "月 (SAAM&FAAM)'!$B:$G"
按F9，看出現的文字是否你要的儲存格位置

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

准提部林

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-21

8^#

發表於 2023-7-29 17:02 | 只看該作者

如下只是示例//自己套用看看

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

年月$="202306" --指定儲存格
月份$="6" --指定儲存格

Fx=replace(replace(Fx, "xYM", 年月), "xMon", 月份)

formulacell.formual = Fx