| |
こんにちは。
>担当者名は該当行のセルを参照して...
例えば担当者名がA1:E1...の１行目にあるとして、
A2:E2に式を入れるとします。
通常はLoopして担当者名を参照しながら式を入れるのがラクです。
Sub try1()
Const path As String = "\\hoge\"
Dim ym As String
Dim fL As String
Dim fR As String
Dim r As Range
ym = Format(Date, "yyyymm")
fL = "='" & path & ym & "\[" & ym
fR = ".xls]hoge2'!X1"
For Each r In Range("A2:E2")
r.Formula = fL & r.Offset(-1).Value & fR
Next r
End Sub
Loopせず、式自体の文字列をつくる『式』を埋め込んで
あとで値化する事も考えられるかもしれません。
Sub try2()
Const path As String = "\\hoge\"
Dim ym As String
Dim sF As String
ym = Format(Date, "yyyymm")
sF = "=""='" & path & ym & "\[" & ym & """&A1&"".xls]hoge2'!X1"""
With Range("A2:E2")
.Formula = sF
.Value = .Value
End With
End Sub
|
|
n
- 07/11/21(水) 22:05 -
