□ 戻る □一般操作のサロン □ 使用方法 □ 新着記事 □ 新規に質問する！ □ トピック一覧 □ 検索 □ 過去ログ
[ 最新記事及び返信フォームをトピックトップへ ]
| ページ番号 | |
|---|---|
[195080] ページ番号- ■親トピック/記事引用/メール受信=OFF■ □投稿者/ バロン -(2022/08/08(22:25)) □U R L/ 質問をさせていただきます。 当社で使用しているエクセルで作られた様式がありまして、月例で使うものです。 毎月約250人から300前後までの人名を記入するもので、１枚あたり15名の名前が 記入できるようになっています。この様式を毎月別シートの一覧表から15名をコピー して右上のページ番号を入れて印刷をし、またその上に15名をコピーしてきて右上 にページ番号を入れ、刷をしてと作業を繰り返して作成しております。 様式は、C15から下に15名の名前を貼り付ける欄があり、F1欄に〇〇枚中と、G1欄に 〇〇枚目と全枚数とページ番号を記入する欄があります。また、別シートの一覧表 は、M5から下に名前が約300名前後（移動により増減）がある状態です。 これを、マクロで実行する方法はありますか。わかりにくい質問ですみません。 どなたかよろしくお願いします。 ++++++++++++++++++++ OS ⇒OTHER Version⇒OTHER ++++++++++++++++++++ | |
[195081] Re[1]: ページ番号- ■記事引用/メール受信=OFF■ □投稿者/ 半平太 -(2022/08/09(08:44)) □U R L/ 済みません。どこが分からないですか？ マクロの記録で基本ほとんど出来ますよね？ プログラムらしいところは 15名ずつなので、15行ごとに名前のコピー元をずらす。 最終ページは15名に満たない可能性があるので、最後だけ行数を調整する。 総枚数は、INT（(名前数+14)/15）で算出する。 くらいじゃないですか？ まったく途方に暮れているなら、取り敢えず、1ページ目の操作をマクロの記録で録って、 出来上がったコードをここにアップしてください。 | |
[195082] Re[2]: ページ番号- ■記事引用/メール受信=OFF■ □投稿者/ ばろん -(2022/08/09(12:26)) □U R L/ 半平太さん、ありがとうございます。 マクロは、まったくの初心者でして、すみません。 やってみたいと思います。 | |
[195083] Re[3]: ページ番号- ■記事引用/メール受信=OFF■ □投稿者/ バロン -(2022/08/09(19:18)) □U R L/ 手順を記録してみました。
下記の手順を十数回毎月繰り返しております。今回は、255名でしたので、総数17枚
になっています。
Sub Macro1()
'
' Macro1 Macro
'
'
Sheets("一覧").Select
Range("M5:M19").Select
Selection.Copy
Sheets("様式①").Select
Range("C15").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("F1").Select
ActiveCell.FormulaR1C1 = "17"
Range("G1").Select
ActiveCell.FormulaR1C1 = "1"
Range("G2").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Sheets("一覧").Select
Range("M20:M34").Select
Selection.Copy
Sheets("様式①").Select
Range("C15").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("G1").Select
ActiveCell.FormulaR1C1 = "2"
Range("G2").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End Sub
この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他 | |
[195084] （削除）- ■記事引用/メール受信=OFF■ □投稿者/ / -(2022/08/09(20:31)) □U R L/ この記事は削除されました | |