人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

Microsoft Excelについての質問です。
大量のExcelファイルのページ設定を一気に変更するいい方法を教えてください。

●質問者: polyamid
●カテゴリ:コンピュータ
✍キーワード:Excel Microsoft ファイル
○ 状態 :終了
└ 回答数 : 3/3件

▽最新の回答へ

1 ● future-lab
●50ポイント

http://www.yahoo.co.jp/

Yahoo! JAPAN

画面の下にシートを選択するタブがありますよね。

そのタブをSHIFTで全部選択して表示されているシートで変更すると

全て変わりますよ。

◎質問者からの返答

回答ありがとうございます。

大量にあるのはシートじゃなくて.xlsファイル!


2 ● hzk
●100ポイント

http://park7.wakwak.com/~efc21/cgi-bin/wwwlng.cgi?print+200407/0...

CGI Error

とりあえずマクロを組んでみました

単純にひとつひとつのブックのひとつひとつのシートに対して「倍率を50%に設定」を繰り返して印刷します。もっとよい組み方もありそうですが。

「ActiveSheet.PageSetup」の部分を変更すると他の項目もいろいろ設定ができるはずです。

(マクロの記憶→ページ設定でいろいろな項目が記録されるので参考にして下さい。)

Sub Print_MyBooks()

Dim objShell As Object, objFol As Object

Dim FolN As String

Dim MyF As Variant

Dim i As Integer

Set objShell = CreateObject(”Shell.Application”)

Set objFol = objShell _

.BrowseForFolder(0, ”フォルダを選択して下さい”, 0)

If objFol Is Nothing Then Exit Sub

FolN = objFol.Items().Item().Path

ChDir FolN

With Application.FileSearch

.LookIn = FolN

.Filename = ”*.xls”

If .Execute > 0 Then

For i = 1 To .FoundFiles.Count

Workbooks.Open Filename:=.FoundFiles(i)

Dim W As Worksheet

For Each W In Worksheets

W.Select

ActiveSheet.PageSetup.Zoom = 50

ActiveSheet.PrintOut Copies:=1, collate:=True

Next W

ActiveWorkbook.Close False

Next i

MsgBox ”全シートの印刷が終わりました。”

Else

MsgBox ”このフォルダにExcelファイルはありません。”

End If

End With

End Sub

◎質問者からの返答

うぉぉ…ありがとうございます!

いかにも探してた動作;;試してみます!


3 ● sugiyasato
●100ポイント

http://www.vector.co.jp/soft/win95/business/se234501.html

XLSheet Gather(Windows95/98/Me / ビジネス)

http://www.vector.co.jp/soft/winnt/business/se323866.html

エクセルアドインMYP(P)(WindowsNT/2000/XP/Vista / ビジネス)

http://www.vector.co.jp/soft/win95/business/se208276.html?y

まとめますマクロ(Windows95/98/Me / ビジネス)

複数ファイルのシートをこれらのようなツールで1ブックにしてしまってから,

http://www.katch.ne.jp/~kiyopon/situmon/kaitou/index08.htm

印刷

「数枚のシートの印刷設定を一括でする方法」

1さんの言うようにシートの一括設定をしたらどうでしょう。「多量」の度合によると思いますが。

再度戻したければ,以前に質問されていた分割の方法でどうでしょう。

(印刷が目的という流れを前提の回答です)

◎質問者からの返答

なんと…シートの結合もできるんですね!

ありがとうございます!

みなさんのおかげで日付が変わらないうちに帰れるw

回答してくれた方々、ありがとうございました!

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ