Excelのテンプレートについて

質問

見積書を作成するにあたり、フォームはいつも一緒なのでデータだけを別に保存し、そこで検索したり変更したりして管理したいと思っています。Accessで作ればいいのかもしれませんが会社の他の方にはAccessが入っていない為、Excelで作るしかありません(^_^;)　
それでExcelのテンプレートを作ればいいのかな？と思ったのですが・・・
　見積書の原案は作りました。ただこれをどのようにしてデータだけを保管する場所を作ってつなげたらいいかわかりません。ネットなどで色々検索したのですが、作業について詳しく載っているサイトが見つけられなくて・・・。
素人がテンプレートなんて作れますか？またテンプレートの作成についてわかるサイトなどご存知のある方教えていただけませんか？
　また見積No.を連番でとっていきたいと思うのですが、Accessの「オートナンバー」というようなものはExcelでありますか？
　素人なので言ってることがややこしくてすみません。（自分で思っていることがなかなか文章で表現しにくくて・・・。）

回答No.2

chupark · ベストアンサー

マクロの解説サイトはあまり存じ上げませんが、Excel VBA　や Excelマクロ などで検索すれば解説サイトなどが見つかるかもしれません。

仮に#1に回答したようなものをマクロで書いてみるとこんな感じでいかがでしょう？

ちなみにマクロは[ツール]→[マクロ]→[Visual Basic Editor]から作成できます。

仮に、こんな条件だとします。
　データのシート名をSheet1、フォーム(見積書)のシート名をSheet2とする。
　Sheet1の列はそれぞれ、A:No. B:日付 C:宛名 D:数量 E:単価 としておいたとする。
　Sheet2にはあらかじめ作った見積書の書式があり、B3にNO. B5に日付 B7に宛名 D9に数量 E9に単価
を表示させるとする
　Sheet2のA1に行数を指定するとフォームに各データが入るようにする

　VisualBasicEditorの画面のSheet2のコードに以下のようなマクロを追加します。

Private Sub Worksheet_Change(ByVal Target As Range)

Dim gyou
Dim shtData As Worksheet
Dim shtForm As Worksheet

Set shtData = Worksheets("Sheet1")
Set shtForm = Worksheets("Sheet2")

If Target.Address = "$A$1" Then

gyou = shtForm.Range("A1").Value

shtForm.Range("B3").Value = shtData.Range("A" & gyou).Value
shtForm.Range("B5").Value = shtData.Range("B" & gyou).Value
shtForm.Range("B7").Value = shtData.Range("C" & gyou).Value
shtForm.Range("D9").Value = shtData.Range("D" & gyou).Value
shtForm.Range("E9").Value = shtData.Range("E" & gyou).Value

End If

End Sub

これを応用すればどのセルからどのセルへと自由に改造することもできるように思います。

ただし上のものはあくまで仮に書いたものですので、色んなバグがあると思います…。
(数値以外を指定するとエラーとか…。)

お礼

お返事遅くなってすみません。
詳しく教えていただいてありがとうございます。
VBAという発想がなかったもので色々と勉強したいと思います。ありがとうございました。

回答No.1

chupark

ご質問の文を拝見して、たとえば

　Sheet1に用意した１行１レコードのデータを
　Sheet2に用意した見積書フォームの変更する部分(金額や日付などなど)の該当セルにリンクさせる

　というようなことを考えたとして、
　「どの行(どのレコード)を見積書の枠内に表示させるか」
　をマクロなどで制御するというような仕組みなら割と簡単にできそうな気がしました。

　たとえば、見積No.200のデータが200行目に入っていたなら、200をどこかのセルに入力するとNo.200の見積書がSheet2上にできあがる…というようなイメージです。

　どのようなフォームなのかがわからないので、ここで具体的な回答ができないのが残念ですが、マクロなどの解説なら多くのサイトでされているはずです。

補足

回答ありがとうございます。
そうです！！その通りです！
私の説明不足な文章を解析していただいてありがとうございます。
該当セルにリンクさせるやり方がわからなくて・・・。
作りたいのは見積書です。件名や日付などは１対１なのですが明細などは何行もあるため、１対多のやり方などさっぱりわからなくて困っています(^^ゞ
これなら素人でもわかる！！っていうサイトご存知ですか？色々と検索したのですが見当たらなくて・・・。