EXCEL：領収書発行のマクロ

質問

おはようございます。
EXCELで領収書の発行のマクロを考えています。
入力sheetは各セルに自動採番（マクロで取得）、日付や相手、金額を入力します。転記sheetは、入力sheetで入力した内容を行ごとにマクロで保存していきます。
このような仕様のEXCELフリーソフトか、記述の参考となるマクロを教えてください。

回答No.3

imogasi · ベストアンサー

ほんとに、もう少しシートとセルを表現して、質問しないと、回答のし様がないですよ。
たとえ回答が載っても、自分で、自分のケースに合わせて、コードを微修正できるのか心配です。
下記は、ＶＢＡコード行数を少なく、簡単な内容のコードに限定し、誰でもできるように考えました。見慣れないとすればＥＮＤ（ｘｌＵｐ）、ＦｏｒＮｅｘｔ，ＰｒｉｎｔＯｕｔしか
使ってません。
例データ
Ａ１：Ｃ９
領収明細
連番　　相手　　領収額
1 Ａ商事 100
2 Ｂ産業 200
3 Ｃ商店 300
4 Ｄ工業 400
5 Ｅ物産 500
6 Ｆ洋行 600
7 Ｇ建物 700
Ａ列は連番で、空白でよい。プログラムで振ります。
Ｓｈｅｅｔ２に
5
領収書

Ｅ物産 殿

請求金額 500円
のうち
（１）領収書、殿、請求金額は、手入力（１回だけ、不動文字だから）。
（２）５００円のセルに＃、＃＃＃１円の書式設定。１回だけ。コードでもできるが、コードを簡単のために。
（３）関数の設定。この場合は得意先名、領収金額の２箇所。
関数はＶＬＯＯＫＵＰを使う。Ｓｈｅｅｔ２で、項目をセットしたいセルに入れるわけです。
得意先セルは
=VLOOKUP($A$1,Sheet1!$A$3:$C$11,2,FALSE)
領収金額セルは
=VLOOKUP($A$1,Sheet1!$A$3:$C$11,3,FALSE)
２，３はＳｈｅｅｔ１の表のなん列めかを指定している。
印刷コード
Sub test01()
Dim sh1 As Worksheet
Dim sh2 As Worksheet
Set sh1 = Worksheets("Sheet1")
Set sh2 = Worksheets("Sheet2")
'---最終行
d = sh1.Range("B65536").End(xlUp).Row
MsgBox d
n = 1
'---最終行まで自動採番
For i = 3 To d
sh1.Cells(i, "A") = n
n = n + 1
Next i
'----番号をＳｈｅｅｔ２のＡ１に一時的にセット
For i = 1 To d - 2
sh2.Cells(1, "A") = i
sh2.Range("A2:H10").PrintOut 'Ａ２：Ｈ１０を印刷
Next i
End Sub
Ａ１：ｈ１０は実際に合わせて変えて指定してください

お礼

こんにちは。
すみません。
でも、ご回答は確かに受け取り実行しました。
基本にさせていただいてカスタマイズを実行しようと思います。

回答No.2

noname#123709

何となくやりたいことは分かりますが、それぞれのシートがどうなっている
かも分かりませんし・・・。
詳細を書いて頂くと、質問者様の意図する回答が得られるかもしれませんよ。

お礼

すみません。これからは気をつけます。
ありがとうございました。

回答No.1

papayuka

ソースを書くには漠然としすぎています。
フリーのものならvectorあたりで見つかります。
http://www.vector.co.jp/soft/win95/business/se383674.html
http://www.vector.co.jp/soft/win95/business/se282212.html

お礼

ありがとうございました。
カスタマイズが難しいけど、
基本の動作はわかりました。
ありがとうございました。