エクセル97連番伝票マクロを作りたい§^。^§

質問

特定のセルに自動カウント（連番）をつくり通し番号
にして伝票にしたいのですが・・・
(1)元ファイルの番号に+１をする。
(2)そのシートを選択ごコピーする
(3)新しいシートに貼り付ける
(4)その番号で保存する
(5)古い最初のシートをとじる
(6)印刷設定を保持したまま追加編集し保存する。
以上の繰り返し操作を自動化したい・・・が
書式設定がＡ４サイズになってしまい
いちいち設定の変更をしなければならず困っている。
よろしくお願いします。
※以上質問内容にマクロを貼り付け複数に分けて質問したのですが＝ルール違反でした(ーー;)　補足としての記載は、ＯＫ　と言うことですので、よろしくおねがいします

回答No.4

imogasi · ベストアンサー

＞「やりたいことはマクロ内に全てあります。」私の疑問・補足要求には答えてもらえず、うーん、マクロを解読しなさいと言うことですね。マクロの意味は質問者は読めているのかな。
（雑感）
（１）質問に「伝票」とあるので、コクヨの会計伝票などを想像したが、sizisho_030614_2.xlsの「指示書」と言う言葉からB4の相当大型の書類らしい。
（２）Orientation = xlPortrait
となっているが、B4を縦型に書類作成する例は、個人的に
経験少ない。勿論あり得る。
（３）印刷用紙の設定はPaperSize = xlPaperB4
の個所だと思うが、プリンタはB4が印刷できるものでしょうね。
（３）PrintArea
第１行－第８１行　書類８０行　８２行目空き
８３－１６３　　　書類８０行　１６４行目空き
１６５－２４５　　書類８０行　２４６行目空き
２４７－３２７　　書類８０行　３２８行目空き
３２９－４０９　　書類８０行　４１０行目空き
４１１－４９１　　書類８０行
をPageSetupしている。
しかしPrintOutメソッドはどこにも無い。
あとでまとめて保存したブックを印刷する？
（４）.PrintArea =""の""の中に,で区切って範囲を
（３）のように記述したときは印刷エリアの宣言だけ？どう印刷時に影響が出るのかな。
（５）当然テンプレート的な内容をコピーしてきて、伝票
連番以外で、内容を変える（入力受け付けする）ことがあると思うが、それがVBAコードからでは見えない。どうなっているのだろう。
（６）印刷入力作業繰り返しの部分はどうなっているのだろう。
（７）data = Cells(80, 2) + 1
といきなり出てくるが、Cells(80,2)のあるブックを開くのは手動？

補足

>マクロの意味は質問者は読めているのかな。
おっしゃるとおりです。
実は自動マクロで作成しました。
あまり良くわかっておりませんが必要に迫られています。
（１）（２）そのとおり・・・Ｂ４サイズ縦仕様です。
※伝票と書きましたが工場が使う「作業指示書」の作成用書類です。デザイン画像を貼り付けて製作に使います。
（３）はい、印刷して各部署に配布します。
（４）用紙Ｂ４にプリントエリアのみ印刷します。
（５）テンプレート的な使い方でしたね（そうゆう概念がなかったのです・・・）後から９割位入力します。（各用紙は内容がちょっとずつ違います。）
（６）シート内で自動コピーをしてます。
（７）手動です。
imogasiさんのおさっしのレベルですがお付き合いをよろしくおねがいします。

回答No.5

papayuka

#3です。

全て記録マクロの記述ではないので、ある程度の知識はあると思われるにも係わらず、こちらが提示したサンプルは無視して試しもせず「このマクロから読みとれ」という姿勢はどうでしょう？

#3補足マクロを見る限り、こちらが提示したサンプルをほんの少し修正するだけで解決するように思いますが？

#3補足マクロは、セル範囲を指定してコピー＆ペーストし、新しいシートに後からページ設定

こちらの提示サンプルは、予めコピー元のシートはページ設定しておく。後はシート丸ごとコピーなのでページ設定不要。

お礼

ごめんなさい！ご覧のようにimogasiさんにも指摘されました。反省しています。実は実用書を片手にやっていたのですが・・・ご提案のマクロを理解できずもう少し勉強してから再度お願いにあがります。

補足

この時点でのポイント発行は失礼とは思いますが・・・ありがとうございました。（勉強します）

回答No.3

papayuka

#1です。
ちょっと読み直してみて、こう解釈しました。

《やりたいこと》
元ブックには伝票のテンプレート的なシートがある。（以下、伝票シート）
伝票シートは書式設定、ページ設定がされている。
伝票シートのどこかのセルに通し番号を付加する必要がある。
通し番号を付加した伝票シートをコピーして新ブックのシートに貼りつける。
（以下、新シート）
元ブックは保存して終了する。
新シートに必要事項を記入する。
新ブックを保存する。

《困っていること》
新シートはページ設定がデフォルトのままになってしまい直すのが手間である。

以下、修正版
元ブックのシート名やセル位置に合せてSheet1とA1をそれぞれ修正します。
コピーしたブックなど、テスト環境で試してみてください。

Sub BBB()
Dim wb As Workbook, FName
With ThisWorkbook.Worksheets("Sheet1")
　.Range("A1") = .Range("A1") + 1
　.Copy
End With
Set wb = ActiveWorkbook
FName = Application. _
GetSaveAsFilename(fileFilter:="Excel (*.xls), *.xls")
If FName <> False Then
　wb.SaveAs FName
　ThisWorkbook.Save
　ThisWorkbook.Close
End If
End Sub

補足

急用で返事が遅くなってしまいました。ごめんなさい。下記のマクロを使ってます。（ルール違反かな？）
Sub autonum()
Static data As Long
data = Cells(80, 2) + 1
Cells(80, 2) = data
Cells.Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
ActiveWorkbook.SaveAs Filename:=data, FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
Range("B1:AX81,B83:AX163,B165:AX245,B247:AX327,B329:AX409,B411:AX491"). _
Select
'ActiveWindow.View = xlPageBreakPreview
With ActiveSheet.PageSetup.PrintArea = "$B$1:$AX$81,$B$83:$AX$163,$B$165:$AX$245,$B$247:$AX$327,$B$329:$AX$409,$B$411:$AX$491"
End With
With ActiveSheet.PageSetup
.PrintArea = "$B$1:$AX$81,$B$83:$AX$163,$B$165:$AX$245,$B$247:$AX$327,$B$329:$AX$409,$B$411:$AX$491"
.LeftMargin = Application.InchesToPoints(0.787)
.RightMargin = Application.InchesToPoints(0.787)
.TopMargin = Application.InchesToPoints(0.984)
.BottomMargin = Application.InchesToPoints(0.984)
.HeaderMargin = Application.InchesToPoints(0.512)
.FooterMargin = Application.InchesToPoints(0.512)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 300
.CenterHorizontally = True
.CenterVertically = True
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperB4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 95
End With
Windows("sizisho_030614_2.xls").Activate
ActiveWorkbook.Save
ActiveWindow.Close
End Sub

回答No.2

imogasi

○質問内容
（１）＞以上の繰り返し操作を「自動化」したい・
（２）＞書式設定が「Ａ４サイズになって」しまい
いちいち設定の変更をしなければならず（サイズは
何にしたいのでしょう）
（１）と（２）の両方の質問であって、別々の質問ですか。
または（１）と（２）が底で関連しているとお考えですか。（あり得ないと思いますが）
○やりたいこと
（１）伝票に連番を振りたいらしい。
伝票を印刷したいらしい。
伝票をエクセルで保存したいらしい。
（２）伝票１枚の用紙サイズはＢ５、Ｂ６？
（３）伝票の枠（罫線や見だし）以外の内容は手入力？
勿論伝票の枠見出しは、エクセルで作るのでね。
（４）印刷のキッカケは？ボタンでも押させる？
（５）プリントエリアは１枚ずつ別か（下へ繋がるのか）、同じ範囲の内容を変えて１枚印刷か（そして繰り返すのか）。
（６）「シートに貼りつけ」たり、「保存」（ブックに対する言葉）、「閉じる」（ブックに対する言葉）なぜ必要なのでしょう。伝票１枚で1ブック（ファイル）にするのですか。あるいは１シートで一枚伝票にするのですか。（この辺はエクセルで、伝票作成は無理があると思う。）
この辺の用語の使い方の疑問が＃１のご回答の中にも出ているように思います。
コピーなどしなくても、シートブック間の値代入で済むケースかとも推定しますが。

お礼

回答ありがとうございます。上記（ＮＯ３に対する補足）のようなマクロで最終的な保存時に印刷の設定がくずれてしまいます。やりたいことはマクロ内に全てあります。よろしくおねがいします。

回答No.1

papayuka

シートとブックを混同されてませんか？
シート、ブック、セル等きちんと使い分けないと何をされたいのか伝わりにくいです。

意味が違うかも知れませんが、、

マクロを組んだブックのシート（Sheet1）のセル（A1）に+1して、そのSheet1を別のブックにそのままコピーします。

Sub AAA()
Dim wb As Workbook, FName

With ThisWorkbook.Worksheets("Sheet1")
　.Range("A1") = .Range("A1") + 1
　.Copy
End With
Set wb = ActiveWorkbook
FName = Application. _
GetSaveAsFilename(fileFilter:="Excel (*.xls), *.xls")

If FName <> False Then
　wb.SaveAs FName
　'wb.Close
End If
End Sub

お礼

見る機会がないとは思いますが
おかげさまでなんとか使えるようになりました。
大変感謝してます。
締め切り後のお礼になります。
papayukaさん今後もがんばってください。
また、よろしくお願いします。