Microsoft Excelについての質問です。

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

回答の条件
  • URL必須
  • 1人2回まで
  • 登録:2004/07/10 15:22:34
  • 終了:--

回答(3件)

id:future-lab No.1

future-lab回答回数21ベストアンサー獲得回数12004/07/10 15:35:29

ポイント50pt

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

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

全て変わりますよ。

id:polyamid

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

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

2004/07/10 15:37:27
id:hzk No.2

hzk回答回数77ベストアンサー獲得回数02004/07/10 15:50:43

ポイント100pt

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

単純にひとつひとつのブックのひとつひとつのシートに対して「倍率を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

id:polyamid

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

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

2004/07/10 15:58:52
id:sugiyasato No.3

sugiyasato回答回数157ベストアンサー獲得回数22004/07/10 15:54:32

ポイント100pt

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ブックにしてしまってから,

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

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

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

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

id:polyamid

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

ありがとうございます!

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

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

2004/07/10 16:00:58
  • id:cx20
    間に合わなかった・・・。

    一応、マクロを書いてみたので、リンクを貼っておきます。
    VBScript 版なので、コマンドラインで動作します。

    http://www.hondarer-soft.com/cx/pukiwiki/pukiwiki.php?Memo%2F2004-07-10
  • id:polyamid
    Re:間に合わなかった・・・。

    またまた今回も…ありがとうございますm(_ _)m
    多少ポイントも送信させてもらいますね☆

    今度からはマクロ書いてくれって質問にしよっかなぁ(笑
  • id:cx20
    Re(2):間に合わなかった・・・。

    >またまた今回も…ありがとうございますm(_ _)m

    こちらこそ、わざわざポイント送信ありがとうございます。

    >今度からはマクロ書いてくれって質問にしよっかなぁ(笑

    答えられる質問でしたら回答いたします。
    できれば、回答募集時間を長めに取ってもらえるとうれしいかなと。
    (動作テストとかしてると間に合わなくなる可能性が高くなるので・・・)

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません