Excel VBA質問箱 IV

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

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


72310 / 76732 ←次へ | 前へ→

【8906】Re:Excel95からExcel2000へのコンバート
回答  kein  - 03/11/7(金) 21:45 -

引用なし
パスワード
   うまくいくかどうか分かりませんが

Sub Test()
  Dim Ad As String

  With Workbooks("BOOK1.xls").Sheets("Sheet1").UsedRange
   Ad = .Address
   .Copy
  End With
  With Workbooks("BOOK2.xls").Sheets("Sheet2")
   .Cells(1, 1).PasteSpecial xlPasteValues
   .Cells(1, 1).PasteSpecial xlPasteFormats
   With .PageSetUp
     .PrintArea = Ad
     .Zoom = False
     .FitToPagesWide = 1
     .FitToPagesTall = 1
   End With
   .PrintPreview
  End With
  Application.CutCopyMode = False
End Sub
2 hits

【8881】Excel95からExcel2000へのコンバート 八重歯 03/11/7(金) 10:37 質問
【8882】Re:Excel95からExcel2000へのコンバート INA 03/11/7(金) 10:45 回答
【8883】Re:Excel95からExcel2000へのコンバート 八重歯 03/11/7(金) 10:51 質問
【8906】Re:Excel95からExcel2000へのコンバート kein 03/11/7(金) 21:45 回答
【8936】Re:Excel95からExcel2000へのコンバート 八重歯 03/11/11(火) 10:09 お礼

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