Excelを使ってフォームを自動保存したいのです！

質問

顧客からの売上内容（日付・顧客名・注文内容・数量・単位・価格・小計・消費税・合計）と業者からの仕入内容（業者名・仕入内容・数量・価格・小計・消費税・合計）と粗利益（金額・利益率）をＡ４サイズのシート１枚フォーム？で作成してます。

これに入力規則でリストをつけてます（売上内容の注文内容・数量・単位）リストは印刷されない列にOffset関数で設定済。

このフォームをマスターとして、入力し、保存の際に各顧客別に（ボタン操作等の）「自動」シート保存する事は可能でしょうか？

入力規則のリストをどの顧客に対しても同一に反映させたいのですが、マスター入力→シートコピー→名前を付けるという作業をどうも利用者がやっていないようでして・・・。人によっては「顧客ごと＝１ブック」という結構危険な事をやっている人もいるようです。

ちなみにユーザーはExcel2000以上のバージョンです。マクロツールが（ボタン作成など）インストールされてないＰＣもあります。

この辺まで来るとデータベースのフォームの領域ではなかろうかと私は思ってしまうのですが（そのほうが作るの楽なんです、私は）ユーザーでその辺が分からない人が多い為、Excelで、かつなるべく壊されないようなフォームで作成したいという要望が出ています。

ご指導の程よろしく御願い致します。

回答No.2

skikichi · ベストアンサー

こういう感じでしょうか！？

雛形のExcel（依頼書.xls）を作成し、ファイルのプロパティーで読み取り専用に設定しておきます。
（これで、雛形を壊されることは無くなります）

さて、この雛形のマクロの内容ですが・・・

=======＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Set ブック = Workbooks("依頼書.xls")
ブック.SaveAs FileName:=ブック.Sheets("Sheet1").Cells(1, 1) & ".csv"

msgbox("保存しました。　なお、このファイルは自動的に閉じられます。")
Application.Quit
=======＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

セルA1に顧客名を入力させるようにします。
データ入力後、顧客名付きのExcelファイルで保存されます。
たとえば、顧客名が「東京電力」でしたら保存ファイル名は「東京電力.csv」となります。
日付（date()関数）を付加してもいいでしょう。
（「東京電力ー20050413.csv」）

csvファイルとして保存後、雛形のExcelファイルはquitで強制的に保存されずに終了します。

保存のトリガーですが、Ctrl+hやファンクションキーなどに割り付けてはいかがでしょうか。

P.S.　マクロはパスワードでプロテクトしておかれた方がいいですね。

お礼

やってみました。ありがとうございます！
（返信が遅くなり大変失礼いたしました）

＞ブック.SaveAs FileName:=ブック.Sheets("Sheet1").Cells(1, 1) & ".csv"

この部分に

＞日付（date()関数）を付加してもいいでしょう。
（「東京電力ー20050413.csv」）

というのがいまいちうまくいきませんでした。。。
Ａ１に顧客名を入力するフォームにはなっていなかったのでRange(A1)を前につけ、顧客名のあるセルにCells(1, 1) を変えて組んだらできました。&でセルを２つまでは
付けられましたが、日付がつきませんでした。

あと、保存フォルダは特に設定していないとマイドキュメントになるんですね。マクロの記録の修正程度しかやってなかったので、ちゃんとテキストなりを買って勉強しようと思います。

回答No.3

skikichi

お無沙汰ですね！

date()関数は「2005/04/20」って感じに出力されます。
ファイル名に「/」は使用できませんので、たとえば「/」を取り除くように編集する必要があるわけです。

[A1]= "東京電力ー" & Left(Date, 4) & Mid(Date, 6, 2) & Right(Date, 2)

結果：A1＝東京電力ー20050420

お礼

関数、やっぱり勉強不足です。そして禁止文字！
教えて頂くと「確かに。」なのですが、作業中に
思いつかないのですね。。。希望通りのファイル名
で保存できました！保存先のフォルダ指定とかも
言われましたが、それは各自で移動するように
してしまいました。その辺はまずテキストを見て
知識をつけなければ。

いろいろとありがとうございました！また、何か
ありましたらよろしく御願い致します。

回答No.1

skikichi

う～ん、いまひとつどういうオペレーションをされているのか分りかねます。

分らない点は、つまり誰がどのタイミングでどんな頻度でどの単位でシートの保存を行うのでしょうか？
ユーザーが操作するのですか？

ExcelのマクロでVBAを組んで、ボタン操作による顧客毎のシート保存は可能です。

または、Accessを使用し同様に実現できますが、もしフォームを誤操作を避けるようにしたいのでしたら、mdeに変換されればよいと思いますが、そういうことを言っておられますか？

補足

早速のご回答、ありがとうございました！説明が明確でなくすみません。

＞分らない点は、つまり誰がどのタイミングでどんな頻度でどの単位でシートの保存を行うのでしょうか？
ユーザーが操作するのですか？

ユーザーが各項目入力後、各ＰＣに保存します。営業から経理へ「請求書発行依頼書」を作成している状態です。１施工（現場工事なので）が終了毎に、１顧客宛に受注伝票が１シート作成されます。

＞ExcelのマクロでVBAを組んで

やはり、そうなりますよね。不勉強なゆえ、私個人としてはAccessで作成したいのですが（１db上に顧客ごとのフォームを作れば良いかと）・・・。ユーザーの誤操作、よりはファイルメーカーを使っているのでこれ以上のＤＢは使いたくないのと、ファイルメーカー自体の操作も怪しいレベルがユーザーなのでＤＢ化しないでいいなら既存のExcel雛形を活用したいのです。

どうぞよろしく御願い致します。