Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


34173 / 76732 ←次へ | 前へ→

【47770】Re:複数ファイルの特定シートを一括で印刷したい
発言  りん E-MAIL  - 07/3/22(木) 11:45 -

引用なし
パスワード
   本山 祐二 さん、こんにちわ。
逆とのことですが、
>メールの回答が逆になってない!?
>(いっしょ)
メール?一緒?
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"


夜中のは下の式が逆になってましたね。すみません。
6 hits

【47748】複数ファイルの特定シートを一括で印刷したい 本山 祐二 07/3/21(水) 16:03 質問
【47749】Re:複数ファイルの特定シートを一括で印刷... Kein 07/3/21(水) 16:06 発言
【47750】Re:複数ファイルの特定シートを一括で印刷... 本山 祐二 07/3/21(水) 16:12 発言
【47753】Re:複数ファイルの特定シートを一括で印刷... Kein 07/3/21(水) 20:18 発言
【47755】Re:複数ファイルの特定シートを一括で印刷... 本山 祐二 07/3/21(水) 20:52 発言
【47756】Re:複数ファイルの特定シートを一括で印刷... Kein 07/3/21(水) 21:22 発言
【47757】Re:複数ファイルの特定シートを一括で印刷... 本山 祐二 07/3/21(水) 21:39 発言
【47759】Re:複数ファイルの特定シートを一括で印刷... Kein 07/3/21(水) 22:23 回答
【47760】Re:複数ファイルの特定シートを一括で印刷... 本山 祐二 07/3/21(水) 23:09 お礼
【47761】Re:複数ファイルの特定シートを一括で印刷... Kein 07/3/21(水) 23:43 発言
【47762】Re:複数ファイルの特定シートを一括で印刷... 本山 祐二 07/3/22(木) 1:17 発言
【47763】Re:複数ファイルの特定シートを一括で印刷... りん 07/3/22(木) 3:27 発言
【47768】Re:複数ファイルの特定シートを一括で印刷... 本山 祐二 07/3/22(木) 10:05 発言
【47770】Re:複数ファイルの特定シートを一括で印刷... りん 07/3/22(木) 11:45 発言
【47778】Re:複数ファイルの特定シートを一括で印刷... 本山 祐二 07/3/22(木) 13:28 お礼
【47782】Re:複数ファイルの特定シートを一括で印刷... Kein 07/3/22(木) 13:51 回答
【47810】Re:複数ファイルの特定シートを一括で印刷... 本山 祐二 07/3/22(木) 20:25 お礼

34173 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free