Sub ラベル()<BR>
　　　Application.ScreenUpdating = False '画面を固定<BR>
　　　msg = "ラベルをプレビューします。いいですか？"<BR>
　　　Title = "確認"<BR>
　　　msg_ret = MsgBox(msg, vbYesNo, Title)<BR>
　If msg_ret = vbYes Then<BR>
　　　msg = "印刷する場合は画面中央上部の「印刷」をクリックしてください。" & Chr(13) & "手差しの場合は印刷の設定で手差しに変更してください。" & Chr(13) & "用紙をセットしてください。"<BR>
　　　Title = "確認"<BR>
　　　msg_ret = MsgBox(msg, vbOKOnly, Title)<BR>
　End If<BR>
　　　'前処理（消去）<BR>
　　　Sheets("入力").Select<BR>
　　　Range("A2:i22").Select<BR>
　　　Selection.ClearContents<BR>
　　　Application.DisplayAlerts = False '警告メッセージオフにする<BR>
　　　Sheets("メイン").Select<BR>
　If Range("c7") > 0 Then 'Ｎｏ指定があるときの処理<BR>
　　　no = Sheets("メイン").Range("c7")<BR>
　　　gyo = 2<BR>
　　　Sheets("データ").Select<BR>
　　　'メインのNoとデータのNoが同一になるまでループ<BR>
　　Do Until Cells(gyo, 2) = no Or Cells(gyo, 2) = ""<BR>
　　　gyo = gyo + 1<BR>
　　Loop<BR>
　　　If Cells(gyo, 2) = "" Then<BR>
　　　　　msg = "No" & no & "のデータが見つかりませんでした。"<BR>
　　　　　Title = "確認"<BR>
　　　　　msg_ret = MsgBox(msg, vbOKOnly, Title)<BR>
　　　　　Exit Sub 'データがなかったら終わる<BR>
　　　End If<BR>
　　　　　Range(Cells(gyo, 2), Cells(gyo + 20, 10)).Select<BR>
　　　　　Selection.Copy<BR>
　　　　　Sheets("入力").Select<BR>
　　　　　Range("A2").Select<BR>
　　　　　Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False<BR>
　　　　　Sheets("データ").Select<BR>
　　　　　Application.CutCopyMode = False<BR>
　　　　　Sheets("様式").Select<BR>
　　　　　ActiveWindow.SelectedSheets.PrintPreview 'プレビュー<BR>
<BR>
　End If<BR>
<BR>
　If Sheets("メイン").Range("c7") = "" Then 'Ｎｏ指定がないときの「レ」印での1行づつの処理<BR>
　　　Sheets("データ").Select<BR>
　　　datagyo = 2<BR>
　　　i = 1<BR>
　　　　Do<BR>
　　　　　　　Do Until Cells(datagyo, 3) = "" Or i > 21 'データがなくなるか該当データが10を越えたら終わり<BR>
　　　　　　　　　If Cells(datagyo, 1) = "レ" Then 'レ印がある行を探してコピーペースト<BR>
　　　　　　　　　　　Range(Cells(datagyo, 2), Cells(datagyo, 10)).Select<BR>
　　　　　　　　　　　Selection.Copy<BR>
　　　　　　　　　　　Sheets("入力").Select<BR>
　　　　　　　　　　　Cells(i + 1, 1).Select<BR>
　　　　　　　　　　　Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False '値のみ貼付け<BR>
　　　　　　　　　　　Sheets("データ").Select<BR>
　　　　　　　　　　　Application.CutCopyMode = False<BR>
　　　　　　　　　　　i = i + 1 '後処理<BR>
　　　　　　　　　End If<BR>
　　　　　　　　　　datagyo = datagyo + 1<BR>
　　　　　　　Loop<BR>
　　　　　　If i <> 1 Then 'チェックが10で割り切れるときに余分なものをプレビューしないため<BR>
　　　　　　　　Sheets("様式").Select<BR>
　　　　　　　　ActiveWindow.SelectedSheets.PrintPreview 'プレビュー<BR>
　　　　　　End If<BR>
　　　　　　　i = 1<BR>
　　　　　　　'中処理（ここで入力に入っていたデータを消去する）<BR>
　　　　　　　Sheets("入力").Select<BR>
　　　　　　　Range("A2:i22").Select<BR>
　　　　　　　Selection.ClearContents<BR>
　　　　　　　Sheets("データ").Select<BR>
　　　　Loop Until Cells(datagyo, 3) = "" 'データがなくなったら終わり<BR>
　End If<BR>
　　　　　　Sheets("様式").Select<BR>
　　　　　　MsgBox "作業を終了しました！", vbOKOnly + vbDefaultButton1 + vbInformation, "宛名ラベラー"<BR>
　　　　　　Sheets("メイン").Select<BR>
End Sub<BR>