FC2ブログ
エホバの証人二世の、個人研究&趣味blogです。
2019/07«│ 2019/08| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 »2019/09
文字色の変化のON/OFFが出来ます。文字サイズ文字サイズ:大文字サイズ:中文字サイズ:小
23:48:31
PDF作成アドイン

今回まとめを使って作ってみました。
まとめって気楽に作れて良いですね
Amazonのレビューも始めました♥

レビュー



22:47:26
Sub 印刷範囲()
x = 1
Do Until ThisWorkbook.Worksheets("印刷設定").Cells(x, 1) = ActiveSheet.Name
If ThisWorkbook.Worksheets("印刷設定").Cells(x, 1) = "" Then
Exit Do
End If
x = x + 1
Loop
If ActiveSheet.PageSetup.PrintArea = vbNullString Then
Else
ThisWorkbook.Worksheets("印刷設定").Cells(x, 1) = ActiveSheet.Name
ThisWorkbook.Worksheets("印刷設定").Cells(x, 3) = ActiveSheet.PageSetup.PrintArea
ThisWorkbook.Worksheets("印刷設定").Cells(x, 2) = ActiveSheet.PageSetup.PaperSize
ThisWorkbook.Worksheets("印刷設定").Cells(x, 4) = ActiveSheet.PageSetup.Orientation
End If
End Sub

Sub 印刷範囲設定()
x = 1
Do Until InStr(ThisWorkbook.Worksheets("印刷設定").Cells(x, 1), ActiveSheet.Name) <> 0
If ThisWorkbook.Worksheets("印刷設定").Cells(x, 1) = "" Then
Exit Do
End If
x = x + 1
Loop
With ActiveSheet.PageSetup
.PrintArea = Worksheets("印刷設定").Cells(x, 3)
.PaperSize = Worksheets("印刷設定").Cells(x, 2)
.Orientation = Worksheets("印刷設定").Cells(x, 4)
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
End Sub

印刷範囲をThisworkbookに保存します。
使用するシートにマクロを入れます。



23:52:16
Sub 書式なしフィルをマクロで行う()
Dim a As Variant
Set a = Application.InputBox("コピーセルを選択して下さい", Type:=8)
Dim b As Variant
Set b = Application.InputBox("貼り付けるセルを選択して下さい", Type:=8)
Range(a.Address).Select
Selection.AutoFill Destination:=ActiveSheet.Range(Selection, b.Address), Type:=xlFillValues
End Sub

マクロですっと出てくるとすごく使いやすくて楽しいです。
これからもっと色々なマクロを作っていきたいと思います。
なんか、上手く行かないことも多いので……。マクロって難しい。

これからは一つ一つのファイルにマクロを追加して使いやすくしたい。





19:33:33
Application.CommandBars("Worksheet Menu Bar").Controls("印刷設定").Delete
Application.CommandBars("Worksheet Menu Bar").Controls("ブックリンクリストの作成").Delete
Application.CommandBars("Worksheet Menu Bar").Controls("シートまとめてコピー").Delete
Application.CommandBars("Worksheet Menu Bar").Controls("outputPDF").Delete
Application.CommandBars("Worksheet Menu Bar").Controls("保存して閉じる").Delete

印刷設定・ブックリンクリストの作成・シートまとめてコピー・PDFOutput・保存して閉じるを追加します。

ZIP
全て同じファイルに解凍しないと使えません。






22:54:53
シートまとめてコピー

シートまとめてコピーのマクロです。
無題

左側(シート部)はThisworkbook指定をしています。使うブックにインポートして使って下さい。



プロフィール

はなかな

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

最新記事
最新コメント
月別アーカイブ
カテゴリ
フリーエリア
ランキング参加しています。 にほんブログ村 哲学・思想ブログ エホバの証人へ にほんブログ村 にほんブログ村 本ブログ 読書日記へ にほんブログ村 にほんブログ村 音楽ブログへ にほんブログ村
音楽(J-POP) ブログランキングへ
小説(読書感想) ブログランキングへ
キリスト教 ブログランキングへ
ブログランキング ブログ王ランキングに参加中!
検索フォーム
RSSリンクの表示
リンク
このブログをリンクに追加する
ブロとも申請フォーム

この人とブロともになる

QRコード
QR
FC2アフィリエイト