Excel を Excel に差し込む方法

今回使用したシートをご紹介します。

画像は 1 inSheet1 で、下部は Sheet2 です。sheet2 が no になるようにコードを使用して位置を調整します。には順番に番号が付けられます。

VBA を使用するには、画面上部のリボンに[開発]タブを表示する必要があります。

[ファイル]タブを選択します。

選ぶ[Options].

Excel オプションダイアログボックスが表示されます。

(1) 選択[Ribbon User Settings](2)入れる[Check Mark]「開発」のチェックボックスで、(3)を押します。[OK]ボタン。

これで、[開発]タブが表示されます。

(1) 選択[Development]タブ, (2)[Visual Basic].

(1) 選択[Insert]タブ, (2)[Standard module].

(1) 以下のコードを入力します。

Sub Serialnumber_Print()

Dim s As Variant
Dim Serialnumber As Long

With Sheet1

'差し込みたい列の選択
For Each s In .Range(.Cells(2, 1), .Cells(.Rows.Count, 1).End(xlUp))
Serialnumber = Serialnumber + 1

With Sheet2
.Range("B2") = Serialnumber
.Range("H2") = s.Value

'印刷プレビュー
.PrintPreview

End With
Next s
End With
End Sub

(2) 選択[Run macro].

.範囲(「B2」)では、連番の挿入位置を調整できます。

印刷のプレビューが自動的に表示されます。

[印刷プレビューを閉じる]を選択します。

連番と名前が正しく挿入されていることを確認できます。

名簿には 12 個の個人情報が含まれているため、12 個の印刷プレビューが表示されます。

印刷時に、[Print]画面左上には、一覧に登録した人数と同じ番号を印刷できますので、ご確認ください。

使用するシートは次のとおりです。名簿は id と名前だけで簡略化されています。

(1) 選択[Sheet2](2) “セル (例: H2)" から “=VLOOKUP (B2, Sheet1!)A2: B13,2)。

=VLOOKUP(B2,シート1!A2: B13,2)、B2 はシート 1 の ID を入力するセルで、シート 1 のテーブル範囲 (A2 ~ B13) と指定する列 (2) を次に示します。

「セル(B2など)」に「任意のID(1など)」と入力します。入る押す。

番号を入力すると、シート 1 の表を参照して、氏名が自動的に入力されます。

[[File]タブをクリックして印刷します。

(1) 選択[Print](2)プレビューを見ても問題がなければ、[Print]ボタン。

また、表中の2番目以降、Sheet2のB2セルの番号を「2」に変更すれば、H2に「単語一郎」が自動的に入力されるような内容を変更することができる。

VLOOKUP 機能を使用した差し込み印刷ができましたので、確認してください。

VLOOKUP 関数を使用してエンベロープを作成します。

ユーザー一覧は上の画像をご覧ください。

封筒フレームは、封筒を差し込み印刷するために必要です。エンベロープフレームを作成する方法は次のとおりです。

選ぶ[New Sheet]作成されたリストの横に表示されます。

(1) 選択[Page Layout]タブ, (2)[Size](3)[Arbitrary envelope size (e.g. Long No. 3)].

DとEの間に点線が引かれ、封筒の印刷範囲が分かりやすくなります。

“=VLOOKUP (A1,Sheet1)" in “Cell (例: D2)" A2: D13,2)。

「セル(例:A1)」に「任意のID(例:1)」と入力し、入る押す。

これで、郵便番号を入力できるようになりました。

郵便番号のフォントサイズを変更します。

(1) 選択[Cell where the zip code was entered (e.g. D2)](2)[Home]タブ, (3)[Pull-down menu]"フォントサイズ"の横, (4)[Arbitrary font size (e.g. 14)].

アドレスを入力するには、「セル(D4など)」=VlookuP(A1、シート1!)に入力します。A2:D13,3)。

郵便番号の関数と異なる部分は、最後の「3」だけです。

これは、アドレス情報が List of Sheet1 の左から 3 番目であるためです。

私n 個の順序で名前を入力し、"セル (例: B4)" = VLOOKUP (A1、シート 1!)A2: D13,4)。

①Ctrl キーを押します押さえたまま[Cell (e.g. B4, D4)]右クリックし、(2)を選択します。[Format Cell].

セルの書式設定ダイアログボックスが表示されます。

(1) 選択[Arrangement]タブ, (2)[Vertical writing]とプレス (3)[OK]ボタン。

①Ctrl キーを押します選ぶ[Cells (e.g. B4, D4)].

(2) 選択[Pull-down menu]"フォントサイズ"の横, (3)[Arbitrary font size (e.g. 16)](4)[Right alignment].

タイトルを入力するときは、名前の下のセルに「任意のタイトル(例えばいいね)」と入力し(例:B5)、同じ手順で縦書き/フォントサイズを設定します。

印刷するには、引数が印刷されないように印刷範囲を指定する必要があります。

(1) 選択[Range you want to print (e.g. A2 to D12)]を選択し、(2) を選択します。[Page layout]タブ, (3)[Print range](4)[Set print range].

[ファイル]タブを選択します。

(1) 選択[Print](2)プレビューを見ても問題がなければ、[Print]ボタン。

封筒が差し込まれたので、確認してください。