- ©«¤l
- 122
- ¥DÃD
- 26
- ºëµØ
- 0
- ¿n¤À
- 148
- ÂI¦W
- 0
- §@·~¨t²Î
- windos10
- ³nÅ骩¥»
- office2016
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2021-7-8
- ³Ì«áµn¿ý
- 2023-8-28
|
¦^´_ 1# cowww
¦P¨Æµ¹¤F§Ú¤@¬q»yªk¡A«o¥X²{¤F§ó·s¬¡¶Ã¯³sµ²
½Ð°Ý³o¬O«ç»ò¤@¦^¨Æ??
Sub «ö¶s4_Click()
'pºâ¿ï¶µ§ï¬°¦Û°Ê
Application.Calculation = xlCalculationAutomatic
'Ãö³¬´£¥Ü
Application.DisplayAlerts = False
Dim formulaCell As Range
Dim workbook_name As String
Dim worksheet_name As String
' ³]¸m¨ç¼Æ¤½¦¡¦b³æ¤¸®æO2
Set formulaCell = Worksheets("¤½¦¡(¤Å§R)").Range("O2")
' Àò¨ún©ñ¤J¤½¦¡ªºkey¡]key¦bC2Àò¨ú¡^
Dim lookup_value As String
lookup_value = "$C2"
' Àò¨ú "AL-202307¥Ø¼Ð.xlsx" ©M "7¤ë (SAAM&FAAM)"¡A¤À§O¦b³æ¤¸®æ P3 ©M P4 Àò¨ú
workbook_name = Worksheets("¤½¦¡(¤Å§R)").Range("P3").Value
worksheet_name = Worksheets("¤½¦¡(¤Å§R)").Range("P4").Value
' Ì۫ؤ½¦¡¦r²Å¦ê¡A¦}¨Ï¥Î¨âÓÂù¤Þ¸¹¶i¦æÂà´«
Dim formula As String
formula = "=IFERROR(VLOOKUP(" & lookup_value & ", '" & workbook_name & "'!" & "$B:$G, 4, 0), """")"
' ±N¤½¦¡©ñ¤J¤½¦¡³æ¤¸®æ O2
formulaCell.formula = formula
' Ãö³¬¥´¶}ªº¤u§@ï
Dim wb As Workbook
Set wb = Workbooks.Open("\\shl-group.com\dept\MFMG\B.¦U²Õ¸ê®Æ (Team inform)\E.¥ÍºÞ²Õ (PPC group)\X.¦Û°Ê¤Æ¤u¨ã(¤Å§R)\AL¨C¤ë¥Ø¼Ð\" & workbook_name, UpdateLinks:=False)
wb.Close SaveChanges:=False
'¶}±Ò´£¥Ü
Application.DisplayAlerts = True
End Sub |
|