|
みなさま こんにちは、 イロイロ考えて行コピーをして
行う事にしました。 結果コードは以下となっています。
ご報告まで
=================================================
Private Sub CommandButton9_Click()
Range("A39").Value = TextBox1.Value
Dim i As Integer
Dim s As String, title As String
s = "継続しますか?"
title = "継続の確認"
i = MsgBox(s, vbYesNo + vbExclamation, title)
If i = vbYes Then
MsgBox ("用紙を追加します")
’用紙一枚分をコピーして挿入
Rows("1:47").Copy
Rows("1:1").Select
Selection.Insert Shift:=xlDown
Range("A15:M41").ClearContents
’ページ設定を行う
MsgBox ("ページ設定をして下さい" & Chr(13) & _
"設定後に入力フォームへ戻るを押してください")
Else
MsgBox ("印刷して終了します")
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Range("A15:M41").ClearContents
Range("AD9:AJ11").ClearContents
Range("AM9:AS11").ClearContents
Range("AZ9:BF11").ClearContents
Range("BI9:BO11").ClearContents
Rows("48:470").Delete
Worksheets("マスター").Activate
ActiveWorkbook.Close savechanges:=True
End If
End Sub
Private Sub CommandButton10_Click()
MsgBox ("印刷を開始します!")
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Range("A15:M41").ClearContents
Range("AD9:AJ11").ClearContents
Range("AM9:AS11").ClearContents
Range("AZ9:BF11").ClearContents
Range("BI9:BO11").ClearContents
Rows("48:470").Delete
MsgBox ("保存しますして終了します!")
Worksheets("マスター").Activate
ActiveWorkbook.Close savechanges:=True
End Sub
Private Sub CommandButton11_Click()
’フォームに戻る
Worksheets("マスター").Activate
UserForm1.Show False
Unload UserForm3
End Sub
=================================================
|
|