FC2ブログ

可愛い

2017–07–19 (Wed) 22:33
可愛いです

無題

付箋紙作りすぎちゃった(汗

愛用中のワークシートマクロです。
Sub PrintArea_selection()
On Error Resume Next
Set buf = Application.InputBox("印刷範囲を設定して下さい", Type:=8)
Dim sh As Object
For Each sh In ActiveWindow.SelectedSheets
sh.PageSetup.PrintArea = buf.Address
Next sh
On Error GoTo 0
End Sub
選択したシートの印刷範囲をまとめて変更してくれます。
印刷範囲がおかしくなってしまうシート、何故か有るんですよね……。
後、欄外のメモが印刷されてしまったりとか;;;


休憩。。。

スポンサーサイト



« Worksheet マクロ | HOME |  アドインたくさん作ってしまいました »

コメント

コメントの投稿

 
管理者にだけ表示

 | HOME | 

プロフィール

はる

Author:はる
FC2ブログへようこそ!

最新記事

最新コメント

フリーエリア

月別アーカイブ

カテゴリ

ブロとも申請フォーム

検索フォーム

RSSリンクの表示

リンク