EXCEL：領収書発行のマクロ

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

No.1 回答者： papayuka 回答日時： 2005/12/28 08:18

ソースを書くには漠然としすぎています。

フリーのものならvectorあたりで見つかります。
http://www.vector.co.jp/soft/win95/business/se38 …
http://www.vector.co.jp/soft/win95/business/se28 …

この回答へのお礼

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

お礼日時：2005/12/28 14:16

No.2 回答者： noname#123709 回答日時： 2005/12/28 08:46

何となくやりたいことは分かりますが、それぞれのシートがどうなっている

かも分かりませんし・・・。
詳細を書いて頂くと、質問者様の意図する回答が得られるかもしれませんよ。

この回答へのお礼

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

お礼日時：2005/12/28 14:17

No.3 ベストアンサー 回答者： imogasi 回答日時： 2005/12/28 09:25

ほんとに、もう少しシートとセルを表現して、質問しないと、回答のし様がないですよ。

たとえ回答が載っても、自分で、自分のケースに合わせて、コードを微修正できるのか心配です。
下記は、ＶＢＡコード行数を少なく、簡単な内容のコードに限定し、誰でもできるように考えました。見慣れないとすればＥＮＤ（ｘｌＵｐ）、ＦｏｒＮｅｘｔ，ＰｒｉｎｔＯｕｔしか
使ってません。
例データ
Ａ１：Ｃ９
領収明細
連番　　相手　　領収額
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
Ａ１：ｈ１０は実際に合わせて変えて指定してください

この回答へのお礼

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

お礼日時：2005/12/28 14:15