[[20170920142615]]　『エクセルでキングファイルの背表紙作成』（初心者）　ページの最後に飛ぶ

『エクセルでキングファイルの背表紙作成』（初心者）

エクセルで、背表紙作成をいつもしているのですが
もっと楽に出来ないのかと思い質問します。

イメージの作業

１．フォーマット作成
２．サイズ選択
３．タイトルやファイル番号を記入
４．作成ボタンを押すと背表紙完成

と、したいのですがこんなことマクロで出来ますか？

宜しくお願い致します。

＜使用 Excel：Excel2013、使用 OS：Windows7 ＞

検索すると、同じような質問がありました。

 参考にならないですか？
 ↓ 
 ＞キングファイルの背表紙を作成したい
https://oshiete.goo.ne.jp/qa/7500708.html

（半平太） 2017/09/20(水) 14:37

半平太様

こなサイトも、確認済みでした。

参考にならかなったので質問しました。
（初心者） 2017/09/20(水) 20:26

メーカー自身が配布しているものでは、Excelシートからの連続出力とは違うから駄目なのでしょうね。

もちろんマクロで作れますが、背表紙に合うフォーマットに合わせるのが面倒であり時間がかかると思うので、必要としていいる貴方自身が作るべきでしょう。まずは１サイズ分、作ってみてはいかがですか？複数サイズに対応するのは、その後です。

マクロは、例えば出力したい文字列の格納された行数分ループし、そこから出力フォーマットに1セルずつ代入し、そのあとにPrintOut。これを繰り返すだけであり、初めてマクロに触った程度の方でも作れるくらいの簡単な内容かと思います。代入と印刷だけのマクロにして、レイアウト調整は予め手作業できっちり作っておく、という感じ。
（???） 2017/09/21(木) 10:25

???　様

ありがとうございます。

でも、すいません。

とっかかりのスタートラインを教えてください。
どこから、やっていけばわからない状態です。
（イメージが、つかないです）
（初心者） 2017/09/21(木) 15:27

マクロ例なぞ。
まず、シートにActiveXのボタンを配置しておいてください。そして、A列とB列に、タイトルと内容を列挙しておいてください。
Sheet2 を印刷用フォーマットとして使っているので、これは背表紙に合わせたレイアウトにしましょう。（マクロの動きを見るだけなら、特にレイアウトしないままで良いです）

 Private Sub CommandButton1_Click()
    Dim wkOut As Worksheet
    Dim i As Long

    Set wkOut = Sheets("Sheet2")

    For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
        wkOut.Range("C3") = Cells(i, "A").Value
        wkOut.Range("E3") = Cells(i, "B").Value
        wkOut.PrintPreview
    Next i
 End Sub

PrintPreview を PrintOut に変えると、実際に印刷するようになります。
（???） 2017/09/25(月) 11:24

コメント返信：

[ 一覧(最新更新順) ]

[[20170920142615]] 『エクセルでキングファイルの背表紙作成』（初心者） ページの最後に飛ぶ

[[20170920142615]]　『エクセルでキングファイルの背表紙作成』（初心者）　ページの最後に飛ぶ