No.2ベストアンサー
- 回答日時:
#1のものです。
お礼部分に関して質問があります。1枚目に印刷するものと2枚目に印刷するもの、3枚目・・に印刷するもので、番号以外の「変わる項目(部分)」はどう言うものでしょうか。
通常はどこかが変わるはずでしょう。その項目を人手の入力に頼るなら、自動的に放っておいても「全部が印刷されるようにすることは」出来ないのですが。
番号以外全く変わらないのなら,
番号は先頭の0つきで4桁として、100までで
Private Sub CommandButton1_Click()
For i=1 to 100
n=trim(str(i))
n = "'" & Mid("0000", 1, 4 - Len(n)) & n
Worksheets("sheet1").Cells(1, 1) = n
Range("a1:j20").PrintOut
Next i
End Sub
ありがとうございます。
シリアルナンバー以外は変わりません。
例えばセルA1には製品番号,B1にはシリアルナンバー、C1には会社名という風にしておきます。
で別のセルやシートに0001から0100とかいう風指定した後、ボタンを押せば、1枚目は製品番号、会社名と0001、2枚目は製品番号、会社名と0002としたいのです。
製品番号と会社名はずっと固定です。
今回書き込みして頂いたものは、VBAに番号を書いてあるので、シリアルが変わる時(0150~0200)はVBAのエディタで書き換えないといけないのですよね。
No.1
- 回答日時:
VBAになりますが
シリアルナンバーをいれるセルをA1と決めます。
表を作ります(操作とか入力+VBAなどによって)。コマンドボタンをクリックすると1ページ印刷するようにします。本件ではフォームとはエクセルワークシートの一部で出来ているものとしています。
Private Sub CommandButton1_Click()
Worksheets("sheet1").Cells(1, 1) = Worksheets _("sheet1").Cells(1, 1) + 1
Range("a1:j20").PrintOut
End Sub
後はPageSetupなどがPrintOutの前に
入りますが、骨子はこんなところだと思います。
早速の回答、ありがとうございます。
肝心な所を書いてなかったのですが、そのシリアルナンバー、例えば0001から0100までの100個と指定して、コマンドボタンを1回クリックすると全部が印刷されるようにすることは出来ますか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(データベース) Accessフォームからパラメーターで表示したレコードを指定のExcelのセルへ転送する方法について 2 2022/08/22 18:04
- Visual Basic(VBA) Accessフォームで全レコードを指定のExcelのセルへ転送し印刷する方法について 2 2022/09/08 18:23
- ノートパソコン パソコンを修理に出し、マザーボードが交換された場合 8 2022/11/09 22:37
- Excel(エクセル) エクセル2013「次のページ数に合わせて印刷」が小さすぎる 9 2023/03/28 10:18
- Visual Basic(VBA) エクセル365のVBAで困っています。どう修正したらよいか添削をお願いします 2 2023/05/03 17:35
- Excel(エクセル) エクセルの印刷範囲をページ単位で可変にする方法 3 2022/05/23 13:04
- Excel(エクセル) Excel VBAプルダウンの値を変えながら2枚ずつ印刷する方法? 4 2022/05/27 13:04
- Excel(エクセル) エクセルVBAで次の二つを行いたいのですが思うように動きません。どう修正したらよいのでしょうか? 2 2023/04/22 14:55
- Excel(エクセル) セルによって印刷するシートを変える方法 EXCEL-VBA 2 2022/08/01 20:48
- Excel(エクセル) 【Excel】複数シートがあるエクセルデータで片面印刷と両面印刷設定がシートごとに入 1 2023/03/10 15:25
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【EXCEL】【VBA】空欄は飛ばし...
-
特定のファイルのみ印刷がされ...
-
Excel2000 BeforePrintイベント...
-
PDFファイルがカラー印刷できない
-
エクセルでコメント印刷すると...
-
メールの画像が印刷できません。
-
OutLookメールの一部分だけを印...
-
PDF印刷 一枚だけカラーにする方法
-
Twitterの投稿を印刷コピーしたい
-
PDFファイルを印刷すると黒くなる
-
印刷をキャンセル
-
オートフィルタの印刷をしたい。
-
Webぺージの印刷が途中まで...
-
Canonのプリンターでカードダス...
-
印刷の行間が飛んで印刷される
-
分割印刷で8枚印刷する方法につ...
-
右クリックができないページの...
-
プリンターEPSON PX-A740 印...
-
A4/5%連続印刷時ってどういう意...
-
複合機の再印刷について。
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
PDFファイルがカラー印刷できない
-
【EXCEL】【VBA】空欄は飛ばし...
-
特定のファイルのみ印刷がされ...
-
テプラー:KING JIM SR720 連...
-
PDFファイルを印刷すると黒くなる
-
PDF印刷 一枚だけカラーにする方法
-
Twitterの投稿を印刷コピーしたい
-
手紙で字が汚い時の添え書きは?
-
メールの画像が印刷できません。
-
エクセルを使って名簿を連続印...
-
バックグラウンドとは?何度再...
-
OutLookメールの一部分だけを印...
-
印刷の行間が飛んで印刷される
-
PDFの印刷が途中で終わってしま...
-
PVC(ポリ塩化ビニール)の有害...
-
プリンターの設定「印刷部数」...
-
エクセルでコメント印刷すると...
-
会社に提出する地図(自宅から...
-
エクセルで複数ページを1枚に...
-
ワードなどのB6を原寸でB5...
おすすめ情報