Excel VBA質問箱 IV

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

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


29506 / 76738 ←次へ | 前へ→

【52513】Re:別のファイルからのコピー
発言  Jaka  - 07/11/16(金) 11:35 -

引用なし
パスワード
   貼り付け元ブック、貼り付け先ブックの2枚しか開いてないというのが条件。

Dim Wb As Workbook
For Each Wb In Workbooks
  If Windows(Wb.Name).Visible = True Then
   'マクロが書いてない貼り付け元ブックを探す。
   If Wb.Name <> ThisWorkbook.Name Then
     'Wb.Sheets("DEF").UsedRange.Copy
     'ThisWorkbook.Sheets("Sheet1").Range("A1").PasteSpecial
     Wb.Sheets("DEF").Range("A1:E36").Copy _
      ThisWorkbook.Sheets("Sheet1").Range("A1")
   End If
  End If
Next

0 hits

【52442】別のファイルからのコピー COPY 07/11/14(水) 15:54 質問
【52447】Re:別のファイルからのコピー Jaka 07/11/14(水) 16:48 発言
【52452】Re:別のファイルからのコピー COPY 07/11/14(水) 17:27 質問
【52454】Re:別のファイルからのコピー Jaka 07/11/14(水) 17:43 発言
【52465】Re:別のファイルからのコピー COPY 07/11/15(木) 9:28 質問
【52474】Re:別のファイルからのコピー Jaka 07/11/15(木) 12:51 発言
【52482】Re:別のファイルからのコピー COPY 07/11/15(木) 14:47 発言
【52490】Re:別のファイルからのコピー Jaka 07/11/15(木) 16:40 発言
【52495】Re:別のファイルからのコピー COPY 07/11/15(木) 19:15 発言
【52513】Re:別のファイルからのコピー Jaka 07/11/16(金) 11:35 発言
【52520】Re:別のファイルからのコピー COPY 07/11/16(金) 17:00 お礼

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