作者windknife18 (windknife18)
标题Re: [算表] 如何自动更新活页簿连结的路径和档名?
时间Sun Feb 23 22:54:57 2025
VBA 版本
档案位置:
http://file.wikidot.com/local--files/f/20250223_VBA_Xlookup.xlsm
可以按 Alt+F11 查看程式码
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Range("D2:E2"), Range(Target.Address)) _
Is Nothing Then
Cells(2, 3).Formula2 = "=XLOOKUP(A1#,'C:\Users\家人\Desktop\01月\[" & _
Right("00" & Cells(2, 4), 2) & Right("00" & Cells(2, 5), 2) & _
"-出货单.xlsx]清单'!$A:$A,'C:\Users\家人\Desktop\01月\[" & _
Right("00" & Cells(2, 4), 2) & _
Right("00" & Cells(2, 5), 2) & "-出货单.xlsx]清单'!$B:$B,"""")"
End If
End Sub
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 1.34.58.193 (台湾)
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1740322500.A.D62.html
1F：推 randyus: 多谢大大的分享，开启学习VBA的坎苛路程中 XD 02/24 00:12
2F：→ windknife18: 不客气，以祝你学习顺利 :) 02/24 10:03