簡単な輸出インボイス作成マクロ (2)

前回ブログの「シッピングインストラクション」と「インボイス」図をご参照下さい。

今回は、ごくごく簡単な「転記をする」エクセルマクロのプログラムをご紹介します。

簡単とは言え、「エクセルマクロ」の、とても大事な基本事項が詰まっています。

下記のプログラムをVBEの「コードウィンドウ」に入力して下さい。

そのまま、コピーして貼り付けても構いませんが、後々の学習を考えれば、手入力されることをお勧めします。

入力後、マクロの実行手順をお分かりの方は、実行を行ってみて下さい。

上手く実行ができなかったり、手順がお分かりにならない方はご連絡下さい。

次回から詳細に説明をしていきます。

Sub INVOICE1()
   
Dim INVNO As String, IDATE As String, DESCRI As String 
Dim VESSEL As String, FROM As String, SDATE As String
Dim DEST As String, MESSRS As String, ADDRESS As String
Dim ORDER As String, PAYMENT As String
   
'入力
Sheets("SI").Select
    INVNO = Cells(3, 2).Value
    IDATE = Cells(4, 2).Value
    DESCRI = Cells(5, 2).Value
    VESSEL = Cells(6, 2).Value
    SDATE = Cells(7, 2).Value
    FROM = Cells(8, 2).Value
    DEST = Cells(9, 2).Value
    MESSRS = Cells(10, 2).Value
    ADDRESS = Cells(11, 2).Value
    ORDER = Cells(13, 2).Value
    PAYMENT = Cells(14, 2).Value
 
'出力
Sheets("INV").Select
    Cells(5, 11).Value = INVNO
    Cells(6, 11).Value = IDATE
    Cells(8, 3).Value = DESCRI
    Cells(9, 3).Value = VESSEL
    Cells(9, 10).Value = SDATE
    Cells(10, 3).Value = FROM
    Cells(10, 8).Value = DEST
    Cells(12, 3).Value = MESSRS
    Cells(13, 3).Value = ADDRESS
    Cells(15, 3).Value = ORDER
    Cells(16, 3).Value = PAYMENT
    
MsgBox "終了です。お疲れ様です"

End Sub