差込印刷:任意のデータを差込

 ★ 任意のデータだけ出力 ★ 
 ご訪問ありがとうございます。阿良々木(アラクリカエシキ)です。
 前回までのコードは1~10(開始~終了)を出力する形式でしたが。
 今回は任意のデータ(フラグを立てたもの)を出力できる物を作成しました。
 画像の差込を抜きにしても仕事等で役立つコードなので是非使ってみてください。
 コードは追記欄に載せています。
 前回の記事はコチラ
 それではまた(o・・o)/~
 

にほんブログ村 イラストブログへにほんブログ村 イラストブログ らくがきへにほんブログ村 イラストブログ イラスト練習へにほんブログ村 観賞魚ブログ ビオトープへ

web拍手 by FC2

シートモジュール(前回のコードに下記のコードを追加します。)

Private Sub CommandButton1_Click()
Dim sh As Worksheet, i As Long
Set sh = Worksheets("TEMP")
With Worksheets("LIST").Cells(1, "A")
i = 1
Do While .Offset(i).Value <> ""
If .Offset(i, 5).Value = 1 Then 'PrintFlagが「1」なら
sh.Range("B1").Value = .Offset(i).Value ’VLOOKUP用IDのセット
Call AdPic
DoEvents
Call toPDF ’コメントアウトするとサクサク切り替わります。
DoEvents  ’ 〃
’sh.PrintOut 印刷する場合はこのコードを非コメントブロック
End If
i = i + 1
Loop
'VLOOKUP用IDのリセット
sh.Range("B1").Value = ""
End With
End Sub

関連記事
スポンサーサイト



コメントの投稿

非公開コメント

動画、拝見しましたね!

すばらしいですね☆
たいへんに参考になる動画、しかと拝見いたしましたよv-291]

見入ってしまいました^^

Re: 動画、拝見しましたね!

こんばんはー(^∇^*)ノ゚・:*
今回のコードは職場で実際に使っていますのでDMの印刷などにも転用がきくと思います。
動画はちょっとだけ動きを意識して作ってみました(*´ω`*)
がちょーさまはお仕事でエクセルとか使われますか?

コメントいつもありがとうございます。


訪問者さま
カレンダー
09 | 2020/10 | 11
- - - - 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
プロフィール

arakurikaesiki

Author:arakurikaesiki
阿良々木(あらくりかえしき)と申します。趣味はらくがき/アクアリウム、好きな小説は物語シリーズです。あと、仕事で楽したいためにExcelのVBAをちょくちょくいじってます。
なお、当ブログはリンクフリーです、よろしければリンク貼ってください。
また、ブロともさまも募集中です。コメントとかもらえるとすごく喜びます。

ブロとも様募集中ですm(_)m

この人とブロともになる

最新コメント
リンク(敬称略)
らくがき
新着記事
参照不可? Oct 20, 2020
基幹システムの入れ替えと使えなくなるファイルメーカー Sep 30, 2020
季節の変わり目 Sep 01, 2020
ロード長くね? Aug 19, 2020
ルフィを描いてみた Aug 17, 2020
囲んで塗る? Aug 14, 2020
100.00cm Aug 12, 2020
サメ Aug 08, 2020
チョット多すぎる Aug 08, 2020
・・・・・・ Aug 06, 2020
カテゴリ
アクセスランキング
[ジャンルランキング]
ブログ
3191位
アクセスランキングを見る>>

[サブジャンルランキング]
イラストブログ
115位
アクセスランキングを見る>>
にほんブログ村(ビオトープ)
月別アーカイブ
人気ブログランキング
更新通知登録ボタン

更新通知で新しい記事をいち早くお届けします

検索フォーム