領収書テンプレートに、エクセルシートのデータを反映させます

エクセルＶＢＡを使って独自に作った領収書に、発行情報をまとめた一覧表からのデータを反映させます。
こうすれば、その一覧表のデータ内容を変更するだけで簡単に登録修正や再発行ができるようになります。

こんにちは、じゅんぱ店長（@junpa33）です。

今回の記事は”発行データ入力”シートを作成し、

入力されたデータを領収書テンプレートの表示に関連付けをしていきます。

前回の記事を確認された上で読み進めて頂くと分かり易いかと思います。

領収書作成の記事編成

領収書作成ソフトの使い方とダウンロード
- 領収書作成ソフトのダウンロードと取説

領収書作成ソフトの作成手順

コンテンツ

データを取り込む入力シートを作成します

それでは、発行データ入力シートを作成していきます。

Sheet名を変更します

”Sheet2”というシート名を”発行データ入力”という名前に変更します。

シート名は前回も変更しましたので、同じ方法で作業してください。

変更方法はこの記事を参考にしてください。『Sheet（シート）名の変更』へ

このようになります。

データ入力の一覧表を作ります

Ａ列からＨ列まで１行目に項目名を書いていきます。

セルA1・・・伝票番号（発行通番）　　セルB1・・・作成年月日

セルC1・・・宛名１（社名組織名）　　セルD1・・・宛名２（発行先名）

セルE1・・・領収金額　　　　　　　　セルF1・・・消費税

セルG1・・・但し書き　　　　　　　　セルH1・・・発行済

ビジュアル的にはお好みに合わせて設定してください。

このような感じになります。

後は罫線など適当に引いていただいてもＯＫです。

エクセルでよく使う関数は各セルには埋め込みません。誤って関数式を消してしまうこともありません。

先頭行の項目表示以外は、”すべてのセル”は空のままです。

データの入れ方は、今配置したこの項目に合ったデータを記入するということです。

目次へ戻る

領収書にデータを反映させるVBAを組んでいきます

ここでは、本体のVBAを組み上げていきます。

まず手始めに入力されたデータを、領収書テンプレートに表示させるところから始ます。

発行年月日、表示金額（税込み金額、消費税、本体価格）と表示方法などは、表示データの加工が必要な部分になります。

後の記事の中で、今回説明するVBAコードをさらに加工することになります。

VBE（ビジュアルベーシックエディター）を起動する

2020年11月13日 VBA初めての起動。VBEの立ち上げ、保存と終了

”開発タブ”から”Visual Basic”をクリックしてVBエディターのウインドウを開いてください。

開いたウインドウの”挿入”タブから”標準モジュール”をクリックします。

このようになります。

VBAコードの記述方法

コードウインドにVBAコードを記述していきますが、記述方法にはルールがあります。

「Sub　・・・・・　End Sub」の中でコードを記述していきます。

詳しくは、記述方法を皆さんで調べてください。

VBA

Sub プロシージャー名()

    本文

End Sub

大雑把にこのような記述様式です。

変数とは、発行データ入力シートの各項目のデータになります。（それぞれの領収書で金額などが変わります。）

セルＡ１・・・伝票番号（発行通番）→　aN
セルＢ１・・・作成年月日　→　aDay
セルＣ１・・・宛名１（社名組織名など）→　aCusa
セルＤ１・・・宛名２（発行先名）　→　aCusb
セルＥ１・・・領収金額　→　aBill
セルＦ１・・・消費税　→　aTax
セルＧ１・・・但し書き　→　aNote
セルＨ１・・・発行済

と変数名を付けます。

ここまでの内容をコードとして記述します。

コード①

VBA

Sub 領収書作成()
  Dim aN As Long
  Dim aDay As String
  Dim aCusa As String
  Dim aCusb As String
  Dim aBill As Long
  Dim aTax As Long
  Dim aNote As String
  Dim anum As Integer
  Dim aBilln As String

領収書表示データを変数としてコード化する

次に、発行データ入力シートの「どの顧客の分の領収書を作るのか」を指定する方法ですが、

入力シートで、伝票番号（発行通番）をクリックすることで作成を決定できるようにします。

例えば「伝票番号0001番をクリックすれば、そのお客様の領収書を発行できる」ようにします。

エクセルＶＢＡでは今この時、カーソルが掴んでいる（置かれている）セルのことをアクティブなセルと言います。

そしてその位置（行と列番号）をプログラムコードに利用することができます。

その位置は、領収書発行の度に変わりますので、先ほどと同じように変数で表示することができます。

アクティブセルの行番号を変数aRとすると、aR=ActiveCell.Row　と表示できます。

さらには、

そのアクティブセルは、どのシート名での動きを言っているのかをプログラムに示す必要があります。

そのことを　Worksheets（”発行データ入力”）.Select　と指定します。

したがって、今指定した、発行したい領収書のデータは、

発行データ入力シートでの作業で	Worksheets(“発行データ入力”).Select
アクティブセルのあるaR行のＡ列の伝票番号	aN = Range(“A” & aR).Value
アクティブセルのあるaR行のＢ列の作成年月日	aDay = Range(“B” & aR).Value
アクティブセルのあるaR行のＣ列の宛名１	aCusa = Range(“C” & aR).Value
アクティブセルのあるaR行のＤ列の宛名２	aCusb = Range(“D” & aR).Value
アクティブセルのあるaR行のＥ列の領収金額	aBill = Range(“E” & aR).Value
アクティブセルのあるaR行のＦ列の消費税	aTax = Range(“F” & aR).Value
アクティブセルのあるaR行のＧ列の但し書き	aNote = Range(“G” & aR).Value

となります。

Rangeはセル位置の指定方法、Valueは値と覚えてください。

ここまでの内容をコードとして記述します。

コード②

VBA

    Worksheets("発行データ入力").Select
    aR = ActiveCell.Row
    aN = Range("A" & aR).Value
    aDay = Range("B" & aR).Value
    aCusa = Range("C" & aR).Value
    aCusb = Range("D" & aR).Value
    aBill = Range("E" & aR).Value
    aTax = Range("F" & aR).Value
    aNote = Range("G" & aR).Value

SELECTとActiveをもう少し詳しく説明しています。

2020年11月14日 VBA 似た者SelectとActivateの違いを理解

変数の値を領収書テンプレートに表示する

発行データから取り出したそれぞれの変数を、領収書テンプレートに表示させていきます。

ここでは、注意しなければならないことがあります。

領収書に表示される金額についてですが、税込み価格、本体価格、消費税額の３種類あります。

しかし発行データシートには本体価格のデータがありませんので、領収書を作成する都度計算して表示させる必要があります。

同時に消費税額が０円の場合は税込み価格になりますのであえて本体価格は表示しないようにします。

これには「もし〇〇なら××」という条件式を利用して計算します。

この作業は、コード④の部分になります。

また最初に、領収書シートで行うと指定することを忘れないようにします。

ここまでを内容をコードにしますとこのようになります。

コード③

VBA

    Worksheets("領収書").Select
    Range("T3") = aN
    Range("T25") = aN
    Range("R5") = aDay
    Range("R27") = aDay
    Range("C6") = aCusa
    Range("C7") = aCusb
    Range("C28") = aCusa
    Range("C29") = aCusb

コード④

VBA

    If aTax = 0 Then
        Range("G20") = " 円"
        Range("G42") = " 円"
        Range("H21") = " 円"
        Range("H43") = " 円"
    ElseIf aTax <> 0 Then
        Range("G20") = aBill - aTax & "円"
        Range("G42") = aBill - aTax & "円"
        Range("H21") = aTax & "円"
        Range("H43") = aTax & "円"
    End If
    Range("F13") = aNote
    Range("F35") = aNote

2020年11月4日 If条件文のVBAコードの組み方。条件の絞り方を最速理解

目次へ戻る

領収書の作成にエクセルのデータを反映のまとめ

ここまでの内容を一度コードウインドに記述してテストしてみましょう。

コード①、コード②、コード③、コード④を順番にコピペで貼り付けてみてください。

このような感じになったでしょうか。

発行データ入力シートに適当にサンプルデータを記入してください。

三角の緑色アイコン（SUB/ユーザーフォームの実行）をクリックすると記入したVBAマクロが実行されます。

自動で領収書シートが表示され、テンプレートにデータが表示されれば成功です。

次の記事では、金額表示の部分を少し凝ったものにしていきます。

Excelマクロ＆VBA超入門　今すぐ使えるかんたんぜったいデキます！

エクセルVBAを初めて勉強するときに効く

電子書籍版「Excelマクロ＆VBA超入門」をamazonで見てみる

（著者）井上香緒里
（出版社）技術評論社
（税込価格）1,738円（本体1,580円＋税）

マクロとVBAについて学んでみたいけれど，いまひとつ自信がないという方のために，ひとつひとつの操作を丁寧に解説する1冊目の教科書です。
エクセルVBAの「い・ろ・は　の　い」から説明していますので、安心して取り組める参考書です。
例題として、