|
本山 祐二 さん、こんにちわ。
逆とのことですが、
>メールの回答が逆になってない!?
>(いっしょ)
メール?一緒?
Keinさんの、このコードで数式を指定する部分
For Each C In MyR
MyF = ThisWorkbook.Path & "\" & C.Value
If Dir(MyF) <> "" Then
LkS = "='" & ThisWorkbook.Path & "\[" & C.Value & "]"
With Sheets("Sheet2").Range("A1:I10")
.Formula = LkS & "表紙!'A1"
.PrintOut Copies:=1
.ClearContents
End With
With Sheets("Sheet3").Range("A1:B6")
.Formula = LkS & "別紙!'A4"
.PrintOut Copies:=1
.ClearContents
End With
Else
Debug.Print C.Value & " = 存在しない"
End If
Next
見やすいように空白を入れてあります
旧: .Formula = LkS & "表紙 ! ' <>A1"
↓
新: .Formula = LkS & "表紙 ' ! A1"
夜中のは下の式が逆になってましたね。すみません。
|
|