![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
請求書のひながた、参照元データは添付図とあわせて見ていただければと思います。
元データは6月、7月分のデータもありますが非表示になってます。
元データの「発送」の部分でフィルタを使って●のついたものだけを絞りそれらだけを連続印刷したいと思ってます。
フィルタではなく●がついたものだけ印刷でもいいのですが。
請求書ひながたの方は1行目に元データを貼り付け
さらにそこからひながたに差し込んでいます。
現在使ってるマクロは以下になります。
印刷したい行を選択→請求書印刷ボタンを押す。(ボタンも別になくしてしまっていいのですが)
現在はこれを一回ずつ実行して使っています。
Sub 請求書印刷()
'
' 請求書印刷 Macro
Range(Selection, Selection.End(xlToLeft)).Select
が×13
Selection.Copy
Sheets("請求書").Select
Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.PrintOut From:=2, To:=32766, Copies:=1
Sheets("元データ").Select
End Sub
連続でやりたかったはずなのですが
気づいたらこんな邪道なやり方になってしまいまして。
1行目に挿入して~の部分も無くそうと思いまして(あってもいいのですが)
現在試行錯誤中です。
似たような質問を見つけて途中までやったのですが
請求書を2ページ目から印刷しろ、という命令だったり
●がついてるものだけ、という条件をどこにどう入れればいいかわからず、
また何が足りてないのかも混乱してわからなくなってしまい切羽詰まってます。
こんな状態です↓
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub InsPrint()
Const org As String = "売上" '元データのシート名
Const prs As String = "請" '印刷するシート名
Const strt As Integer = 4 '元データの実データ開始行
Dim idx As Long
Dim oSht, pSht As Worksheet
Set oSht = Worksheets(org)
Set pSht = Worksheets(prs)
For idx = strt To oSht.Range("A65536").End(xlUp).Row
' 以下の行を項目数だけコピーして定義する
pSht.Range("A1").Value = oSht.Cells(idx, "B").Value
pSht.Range("C1").Value = oSht.Cells(idx, "D").Value
pSht.Range("D1").Value = oSht.Cells(idx, "E").Value
pSht.Range("E1").Value = oSht.Cells(idx, "F").Value
pSht.Range("F1").Value = oSht.Cells(idx, "G").Value
pSht.Range("G1").Value = oSht.Cells(idx, "H").Value
pSht.Range("K1").Value = oSht.Cells(idx, "L").Value
pSht.Range("L1").Value = oSht.Cells(idx, "M").Value
pSht.Range("M1").Value = oSht.Cells(idx, "N").Value
pSht.Range("I1").Value = oSht.Cells(idx, "J").Value
pSht.Range("Q1").Value = oSht.Cells(idx, "R").Value
pSht.Range("R1").Value = oSht.Cells(idx, "S").Value
pSht.Range("U1").Value = oSht.Cells(idx, "O").Value
pSht.PrintOut '印刷
' プリンタの印刷が追いつかないので5頁につき8秒休止する
If (idx Mod 2) = 0 Then
DoEvents
Sleep 8000 'ミリ秒単位で指定
End If
Next idx
End Sub
なんとかご助力願いたく、この場所をお借りしました。
まだまだ勉強中の身ではあるのですが、これも急にやらなければいけなくなってしまった為。
よろしければご協力お願い致します。
![「請求書を連続印刷するマクロを作りたいと思」の質問画像](http://oshiete.xgoo.jp/_/bucket/oshietegoo/images/media/5/1022767_5497c13179c71/M.jpg)
No.1ベストアンサー
- 回答日時:
こんにちは
添付画像ですが、はっきり言って読めません。^^;
もう少し具体的にデータの構成を記載しましょう。
>Const org As String = "売上" '元データのシート名
>Const prs As String = "請" '印刷するシート名
それから、上記の定数ですが、"元データ"、"請求書"のシート名を変更したのですか?
変更していないなら、"元データ"、"請求書"に訂正しましょう。
>さらにそこからひながたに差し込んでいます。
ひながたに差し込んでいますというのは、その1行目のデータを請求書の各セルが参照
して請求書が作成されているということですね。
それから、●の個所だけ抽出のIF文の入れ方ですが、骨組みを記載します。
Sub InsPrint2()
略
For idx = strt To oSht.Range("A65536").End(xlUp).Row
If Cells(idx, "Q").Value = "●" Then
ここに出力する時の内容(転記、プリント)を記述する。
End If
Next idx
End Sub
For文の内側にIF文を置き、●がある列(たぶんQだと思いますが)の値を見て、●であるならば
処理をするようにします。
>pSht.PrintOut '印刷
印刷のマクロは記録をとれば確認できるので、一度マクロ記録を行って確認しましょう。
これで、一回作成してみて、なにかあれば補足してください。
それでは
画像は小さいし質問の仕方は拙い、とひどい状態にも関わらず
知恵を貸してくださって本当にありがとうございます!
考え方を教えていただけたのでなんとか動かせるまでに至りました!
改めてありがとうございました!
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 別シートから年齢別の件数をカウントしたい 6 2023/01/23 12:00
- Excel(エクセル) VBAの指示の内容 昨日こちらでご教示頂いたのですが初心者な為、一つ一つの指示が何をやっているのかわ 2 2022/10/25 18:08
- Visual Basic(VBA) 別シートから年齢別の件数をカウントしたいの続き 5 2023/01/24 00:16
- Visual Basic(VBA) VBA処理追加 こちらでご教示頂いたのですが回答完了させてしまいましたのでこちらからまた質問させてく 2 2022/10/27 09:57
- Excel(エクセル) なぜExit Subがあるのかわかりません 4 2023/02/19 12:34
- Visual Basic(VBA) Excelで下記のようにマクロを作ったところ、一回目は実行できたのですが、二回目以降「実行時エラー1 1 2022/03/25 08:08
- Visual Basic(VBA) vbaを早くしたい 5 2022/09/09 10:58
- Visual Basic(VBA) エラーコード1004 6 2022/06/09 14:12
- Visual Basic(VBA) VBAコードが作動せず、どこに問題があるのか教えて下さい。 3 2023/06/13 13:20
- Visual Basic(VBA) VBA 別ブックからの転記の高速化について VBA 別ブックからの転記の高速化についてご教授下さい。 19 2022/07/26 13:07
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
印刷工程について
-
In Design 見開きページのノド...
-
【DTP】スミアミ80%とは【困っ...
-
Illustratorでの 網掛けと透明...
-
イラストレーターでの文字の大...
-
K50%のグレーをCMYKで表現する...
-
Excelのマクロについて(契約書...
-
PDFに変換すると文字が太い
-
インクジェット印刷について
-
e-taxで申告した確定申告のデー...
-
イラレで作った名刺データを自...
-
AutoCADで作成した図面を印刷す...
-
パワーポイントからイラストレ...
-
ワードのデータをIllustratorに...
-
JWWで文字をカラー印刷するのは...
-
AutoCADで文字が薄い灰色になる
-
インデザインのページツールの...
-
AutoCADにはり付けた画像が印刷...
-
Jw_cadにおいての実寸印刷について
-
画面の地図のtifデータが印刷で...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
印刷工程について
-
DVD-R表面の文字を消す方法
-
【DTP】スミアミ80%とは【困っ...
-
In Design 見開きページのノド...
-
Illustratorでの 網掛けと透明...
-
CMYKモードで作成してK100の色...
-
PDFに変換すると文字が太い
-
リーフレットに名刺をはさむ切...
-
autocadに関して質問があります...
-
QRコード運用方法について詳し...
-
CADに貼り付けたイメージが印刷...
-
Vector Works10で印刷がずれる
-
Excelでの作成物に印刷時に連番...
-
K50%のグレーをCMYKで表現する...
-
印刷見積の取り方(用紙と面付...
-
e-taxで申告した確定申告のデー...
-
pdfをindesignで作成した際の文字
-
PDFを綺麗に印刷したい(緊急)
-
2色(DIC124+ブラック)印刷の...
-
AUTO CAD 印刷時に入力していな...
おすすめ情報